Hallo zusammen
Wer hat Ahnung mit VBA? Ich nicht ;-(
Folgende Situation:
Ich habe eine Datei mit den Mappen Januar bis Dezember.
Ich möchte das in jeder Mappe die Zelle C40 Bilnkt. Und zwar alles
was über 1200 geht Grün und alles was unter 1200 geht mit Rot.
Hier mal was ich so gefunden habe. Bekomme aber ein Debug.
Danke für die Hilfe
Gruß Noldi
Option Explicit
Public Pause As Variant
Dim arr1 As Variant
Dim arr2 As Variant
Sub Ende()
On Error Resume Next
Application.OnTime Pause, "Blinken", , False
Pause = ""
End Sub
Sub Blinken()
Pause = Now + TimeValue("00:00:01")
With Worksheets("Mai")
If .Range(arr1).Interior.ColorIndex = 3 Then
.Range(arr1).Interior.ColorIndex = xlNone
.Range(arr2).Interior.ColorIndex = 4
Else
.Range(arr1).Interior.ColorIndex = 3
.Range(arr2).Interior.ColorIndex = xlNone
End If
End With
Application.OnTime Pause, "Blinken"
End Sub
Sub Bedingungen()
Dim Bereich, xZelle As Range
arr1 = ""
arr2 = ""
With Worksheets("Mai")
Set Bereich = .Range("C40") '<=== Hier kann der Bereich geändert
werden
On Error Resume Next
Bereich.Interior.ColorIndex = 0
For Each xZelle In Bereich
If xZelle < 1199 Then '<=== Bedingung 1 festlegen
If arr1 = "" Then
arr1 = xZelle.Address
Else
arr1 = arr1 & "," & xZelle.Address
End If
End If
If xZelle > 1201 Then '<=== Bedingung 2 festlegen
If arr2 = "" Then
arr2 = xZelle.Address
Else
arr2 = arr2 & "," & xZelle.Address
End If
End If
Next xZelle
Ende
End With
Blinken
End Sub
