Code ändern für Zellen ein- und ausblenden
11.06.2003 10:26:58
Sören
ich habe ein leeres Tabellenblatt. In dieses wird die selbe Tabelle mehrmals (untereinander) eingefügt. Der folgende Code soll die Zeilen, die in Spalte 2 leer sind ausblenden. Tut er auch, aber nur bei der 1. Tabelle - bei den folgenden nicht. Woran liegt das?
Sub Ausblenden()
Dim iRow As Integer, iRowL As Integer
If ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden" Then
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Hidden = True
ElseIf WorksheetFunction.IsText(Cells(iRow, 1)) Then
ElseIf Cells(iRow, 1).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.Buttons(Application.Caller).Caption = "Einblenden"
Else
Rows.Hidden = False
ActiveSheet.Buttons(Application.Caller).Caption = "Ausblenden"
End If
End Sub
Anzeige