Excel VBA komplette Spalte ansprechen

[tobias_2]

Guten Morgen,

suche eine If-Abfrage für folgendes Schema:
Wenn in der kompletten Spalte A kein Wert steht, dann Spalte A löschen.

 

[SheldonCooper]

http://www.exceltricks.de/home/inha...fbereitungen/sonstiges/leere-spalten-loeschen

 

[tobias_2]

    If Application.CountA(Columns(1)) = 0 Then
        Columns(1).Delete
    End If

So funktioniert es scheinbar.. allerdings verstehe ich dieses Application.CountA() nicht?!

 

[_killy_]

Du kannst dir die Information auch direkt mittels der Excel VBA Hilfe anzeigen lassen. Einfach den Curser auf CountA setzen und F1 drücken.

-> die Funktion zählt alle Zellen, die einen Wert enthalten. (Text oder Zahl) Alle Leerzellen werden mit 0 gezählt.