Else ohne If
29.05.2004 14:34:32
thomas
Wenn ich das Makro ausführen will, bekomme ich immer die Meldung:
Else ohne If. Wie kann ein Else ein If haben? Sieht jemand den Fehler? Ich möchte, dass das Makro den ersten Block ausführt, wenn in der Checkbox ein Häklein gesetzt wird und den zweiten Block ausführt, wenn kein Häklein gesetzt wird.
Danke für Hilfe! thomas
Private Sub CheckBox1_Click()
If CheckBox1 Then
With Sheets("Tab1")
.Rows("8:37").Hidden = False
.CommandButton2.Visible = True
With Sheets("Tab2")
.Rows("8:37").Hidden = False
.CommandButton2.Visible = True
With Sheets("Tab3")
.Rows("8:37").Hidden = False
.CommandButton2.Visible = True
With Sheets("Tab4")
.Rows("8:37").Hidden = False
.CommandButton2.Visible = True
End With
Else
'Lässt bei Nichtwahl des Szenariengenerators nichtbenötigte Zeilen
'und CommandButtons verschwinden
With Sheets("Tab1")
.Rows("8:37").Hidden = True
.CommandButton2.Visible = False
With Sheets("Tab2")
.Rows("8:37").Hidden = True
.CommandButton2.Visible = False
With Sheets("Tab3")
.Rows("8:37").Hidden = True
.CommandButton2.Visible = False
With Sheets("Tab4")
.Rows("8:37").Hidden = True
.CommandButton2.Visible = False
End With
End If
End Sub
Anzeige