makros verhindern in userform
alehopp89
da ich leider bei office-lösungen keine antwort bekomme versuch ichs hier mal.
ich habe eine userform mit togglebutton und commandbutton. die togglebutton haben makros hinterlegt, die zellen ein und ausblenden. über die cb soll eine spalte auf x untersucht werden. am schluss sollen die tb aktiviert werden, bei denen ein x steht (ohne Abfrage, dass mach ich händisch).
Mein Problem ist, dass die durch Aktivierung der Tb die makros nochmal durchlaufen. wie kann _
ich das verhindern? geht das überhaupt?
Private Sub CommandButton8_Click()
Dim lngZeile As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows("3:600").Hidden = True
For lngZeile = 4 To 600
If Cells(lngZeile, 23).Value = "X" Then
Rows(lngZeile).Hidden = False
End If
Next lngZeile
For i = 1 To 56
Controls("ToggleButton" & i).Value = False
Next i
ToggleButton8.Value = True
ToggleButton9.Value = True
ToggleButton10.Value = True
ToggleButton34.Value = True
ToggleButton37.Value = True
ToggleButton38.Value = True
ToggleButton56.Value = True
ToggleButton39.Value = True
ToggleButton44.Value = True
ToggleButton49.Value = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Danke im Voraus
Anzeige