Sub FuerDruck()
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 = 2 To iRowL
If IsEmpty(Cells(iRow, 2)) Then
Rows(iRow).Hidden = True
ElseIf WorksheetFunction.IsText(Cells(iRow, 2)) Then
ElseIf Cells(iRow, 2).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
Kann mir jemand sagen warum? Ich arbeite auf einem PC und habe dadurch keine Möglichkeit es zu testen.
Vielen Dank Sören