Leere Spalten löschen
16.03.2007 11:04:00
Toastie
Habe hier im Forum ein Makro zum löschen leerer Spalten gefunden. Leider funktioniert diese Variante bei mir nicht, da ich in jeder Spalte noch in der Zeile 1 eine Überschrift habe. Jetzt würde ich das Makro gerne anpassen damit die Spalte ab Zeile 2 geprüft wird ob sie leer ist.
Habe aber ein leichtes Verständnis Problem mit der Zeile Application.WorksheetFunction.CountA(Columns(i)) = 0
Wie funktioniert denn CountA? Habe in der VBA Hilfe nichts gefunden...
Kann ich das Grundgerüst für meinen speziellen Fall "prüfe ab der zweiten Zeile" überhaupt verwenden?
Hier das Makro:
Sub LeereSpaltenLöschen()
Dim i As Integer, deleteIndex As Integer
'max. 255 Spalten sind möglich
For i = 1 To 255
'Sollte sich nichts in der Spalte befinden (entspricht Anzahl2(Spalte))
If Application.WorksheetFunction.CountA(Columns(i)) = 0 And deleteIndex Toastie