Hallo,
tschuldigung, noch eine Frage …
Wie kann ich es bewerkstelligen, die leeren Zeilen im Eingabebereich (Zeile 1-600, Spalte A-Q) per VBA ausblenden kann?
Mit diesem Code (s.u.) werden nur die ganz leeren ausgeblendet. In Spalte A & B steht aber immer was drin. D.h. diese sollten nicht beachtet werden.
Also, wenn bsw. in C4, C5, C6 keine Einträge sind, dann sollen diese ausgeblendet werden. C7, C8, C9 usw. hat Einträge, diese bleiben da - C11, C12 usw. sind leer, also wieder ausblenden.
Sub LeereSpalteAus()
Dim iCounter As Long
Application.ScreenUpdating = False
For iCounter = 1 To 256
If WorksheetFunction.CountA(Columns(iCounter)) = 0 Then
Columns(iCounter).Hidden = True
End If
Next iCounter
For iCounter = 1 To 600
If WorksheetFunction.CountA(Rows(iCounter)) = 0 Then
Rows(iCounter).Hidden = True
End If
Next iCounter
Application.ScreenUpdating = True
End Sub
Danke & Gruß, olli