IsEmpty() und Ampel-Regel
22.04.2015 10:14:48
Frederik
ich versuche momentan mithilfe von IsEmpty den Wert einer Zelle zu überprüfen und daraufhin eine Zahl in eine andere Zelle zu schreiben, welche mit der Ampel-Regel belegt ist.
Kurze Erläuterung der Ampelwerte:
B5 & C5 leer macht grün
B5 = 0 & C5 = nicht leer macht rot
B5 = 1 & C5 = nicht leer macht gelb
alles andere soll -1 ergeben, somit schwarz
Dasselbe gilt für B6 und C6.
Hier der Code:
Sub Ampel()
Dim B5b As Boolean, B6b As Boolean, C5b As Boolean, C6b As Boolean, B5 As Integer, B6 As _
Integer, C5 As String, C6 As String
'B5b = Worksheets("Template").Range("B5")
'B6b = Worksheets("Template").Range("B6")
B5 = Worksheets("Template").Range("B5") '.Value
B6 = Worksheets("Template").Range("B6") '.Value
'C5b = Worksheets("Template").Range("C5")
'C6b = Worksheets("Template").Range("C6")
C5 = Worksheets("Template").Range("C5")
C6 = Worksheets("Template").Range("C6")
If IsEmpty(B5) = True And IsEmpty(C5) = True Or IsEmpty(B6) = True And IsEmpty(C6) = True Then
Worksheets("Template").Range("D4").Value = 2 'green light
ElseIf B5 = 0 And IsEmpty(C5) = False Or B6 = 0 And IsEmpty(C6) = False Then
Worksheets("Template").Range("D4").Value = 0 'red light
ElseIf B5 = 1 And IsEmpty(C5) = False Or B6 = 1 And IsEmpty(C6) = False Then
Worksheets("Template").Range("D4").Value = 1 'yellow light
Else
Worksheets("Template").Range("D4").Value = -1 'black light
End If
End Sub
Egal welche Werte ich in Excel eingebe, am Ende wird D4 = 0 gesetzt.
Boolean, Integer, String, bringt mich ein bisschen durcheinander. Muss ich dafür - wie schon im Code angedeutet - neue Variablen definieren?
Danke für eure Hilfe!
Frederik