Excel: VBA IF-Abfrage

[gary]

Hallo zusammen,

So, wollte nur zur Information sagen das ich es geschafft habe, einen Zellenzustand grafisch anzuzeigen.

Der Code um alle Ampelsignale auf aus zu setzen:

' Alle Ampeln aus
    ActiveSheet.Shapes("Group 41").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    ActiveSheet.Shapes("Group 42").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    ActiveSheet.Shapes("Group 46").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    ActiveSheet.Shapes("Group 50").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    ActiveSheet.Shapes("Group 54").Select
    Selection.ShapeRange.ZOrder msoBringToFront
    ActiveSheet.Shapes("Group 58").Select
    Selection.ShapeRange.ZOrder msoBringToFront

Und die Abfrage, die so schwer gar nicht ist, wenn man weisswies geht:

' D-Ampel-Setting

' green light
  If Range("F50") = True Then
    ActiveSheet.Shapes("Oval 22").Select
    Selection.ShapeRange.ZOrder msoBringToFront
  End If

' red light
  If Range("F50") = False Then
    ActiveSheet.Shapes("Oval 27").Select
    Selection.ShapeRange.ZOrder msoBringToFront
  End If

Die Excel-Syntax ist halt schon stark gewöhnungsbedürftig. Nennt sich  wie gesagt wurde VBA (Visual Basic for Applications) und dann kommen noch spezifische Unterschiede je nach verwendeter Excel Version dazu,tztz

Viele Grüsse gary

Ende!