Aus-/Einblenden mit 1 Button
12.08.2003 00:39:07
Franz W.
ich stell mich mal grad wieder erbärmlich, aber ich komm leider nicht hin: ich möchte mit einem einzigen Button je nach Zustand bestimmte Zeilen ein- bzw. ausblenden, hier mein Ansatz (nicht alles darin ist hierfür nötig (z.B. c= oder step), ist nur ein Teil des letztendlichen Codes):
Private Sub CommandButton1_Click()
Dim myStart As String
Dim c As Integer, r As Long
Dim loletzte As Long
myStart = ActiveCell.Address
Range(myStart).Select
If Range("B65536") = "" Then loletzte = Range("B65536").End(xlUp).Row
c = 2
For r = 5 To loletzte Step 1
If Rows(r).EntireRow.Hidden Then
Rows(r).EntireRow.Hidden = False
End If
CommandButton1.Caption = "Zeilen ausblenden"
Next
???? Exit Sub ????
For r = 5 To loletzte Step 1
If Cells(r, c) = 0 Then
Rows(r).EntireRow.Hidden = True
End If
CommandButton1.Caption = "Zeilen einblenden"
Next
End Sub
Wo bitte muss das Exit Sub hin, damit er nur einen der beiden Teile ausführt und nicht beide? Oder gar keinen? Oder den oberen nur in "Einzelschritten"? Oder muss ich's ganz anders drehen? Ich bitte um Eure Hilfe.
Vielen Dank im Voraus
Grüße
Franz
Anzeige