Macro erst ab Zeile 7
05.04.2020 19:43:12
Justus
Ich benutze folgenden Code um in meiner Tabelle leere Spalten auszublenden:
Sub LeereSpaltenAusblenden()
Dim sp As Long
For sp = 1 To ActiveSheet.UsedRange.Columns.Count
If WorksheetFunction.CountA(Columns(sp)) = 0 Then Columns(sp).Hidden = True
Next
End Sub
Jetzt habe ich das Problem, dass ich in Zeile 1-6 Daten als eine Art Titelzeile eingefügt habe und das Ausblenden funktioniert nicht mehr.
Das Makro soll also erst ab Zeile 7 untersuchen, ob in einer Spalte alle Zeilen leer sind.
Wie muss ich die Range umschreiben? Ich benutze Excel 2016
Ich verzweifle, da ich keine Programmierkentnisse habe.
Gruß Justus