ich würde gern alle ungewünschten Zeilen und Spalten ausblenden. Jedoch nicht über markieren und rechte Maustaste Ausblenden.
Danke für die Hilfe
Florian
Sub leere_Zeilen_ausblenden()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Hidden = True
End If
Next iRow
End Sub
Sub leere_Spalte_ausblenden()
Dim iCounter As Integer
Application.ScreenUpdating = False
For iCounter = 1 To 256
If WorksheetFunction.CountA(Columns(iCounter)) = 0 Then
Columns(iCounter).Hidden = True
End If
Next iCounter
End Sub