Profil von TheGrandmaster

Frage

29.09.2010, 16:50

Spalten löschen wenn nach Spaltenüberschrift kein Inhalt vorhanden ist!

Hallo liebe Leute,

ich sitze hier seit stunden und komme einfach nicht weiter. Ich habe eine Excel Datei, dort soll wenn kein Inhalt in dieser Spalte vorhanden ist die Spalte gelöscht werden. Die Spalte ab wann die Prüfung stattfinden soll ist I und beginnt in der Zeile 3,weil dort die Spaltenüberschrift steht. Die Spalten davor sollen erhalten bleiben also A-H. Wenn ein Wert /text in der Spalte I vorhanden ist soll die Spalte erhalten bleiben. Dies soll für die Spalten I bis Z erfolgen. Ich hoffe das mir jemand helfen kann.

...zur Frage

Hilfreichste Antwort

von TheGrandmaster

29.09.2010, 23:33

Sub spaltenLoeschen()

'mit with kann man ein Objekt (Hier das Sheet) direkt ansprechen:

With ThisWorkbook.Worksheets("Sheet1")

'eine Schleife von 4te Spalte (da D = 4er Buchstabe im Alphabet) bis Spaltenanzahl (Für Zeile 200 anstatt .Columns.Count einfach 200 einsetzen ;) )

For i = 4 To .Columns.Count

'Prüft ob es in der Zelle mit Adresse - Zeile 3, Spalte D bis Ende einen Eintrag gibt:

If .Cells(3, i) = ""

'Wenn nicht löschen:

Then.Columns(i).Delete

'Und alles wieder schließen

End If


Next i


End With


End Sub

Hier nochmal kommentiert, damit man auch als VBA Neuling alles vesteht.

...zur Antwort