Mehrere If Bedingungen
15.01.2020 22:58:14
Melli
Hallo zusammen,
zu allererst muss ich sagen, dass ich keine Ahnung mit VBA habe. Daher hoffe ich auf eure Hilfe.
Ich möchte ein Makro schreiben, dass prüft ob in einer der Zellen "True" steht. Falls ja, soll _
er das Makro GF_rot ausführen falls alle Zellen auf "False stehen" das Makro GF_grau ausführen. _
HIntergrund ist, dass wenn eine der Checkboxen auf true steht die Ampel rot eingefärbt ist und _ wenn alle auf false stehen soll sie grau sein. Könnt ihr mir weiterhelfen? Irgendwie funktioniert es nicht so recht....
Sub ICON_einfaerben
If ActiveSheet.Range("J36").Value = True Then
If ActiveSheet.Range("J40").Value = True Then
If ActiveSheet.Range("J41").Value = True Then
If ActiveSheet.Range("N36").Value = True Then
If ActiveSheet.Range("N37").Value = True Then
If ActiveSheet.Range("N38").Value = True Then
Call GF_rot
Else
Call GF_grau
End If
End If
End If
End If
End If
End If
End Sub
Vielen Dank vorab
S.