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

Frage

von kaka85

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

Antwort

von TheGrandmaster

29.09.2010, 20:47

Sub spaltenLoeschen()
    With ThisWorkbook.Worksheets("Sheet1")
        For i = 1 To .Columns.Count
            If .Cells(3, i) = "" Then
            .Columns(i).Delete
            End If
        Next i
    End With
End Sub

...zur Antwort

Frage

von kaka85

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

Antwort

von TheGrandmaster

29.09.2010, 20:36

Hallo kaka85,

probier's mal hiermit:

> Sub spaltenLoeschen()
> With ThisWorkbook.Worksheets("Sheet1") > For i = 1 To .Columns.Count > If .Cells(3, i) = "" Then > .Columns(i).Delete > End If > Next i
> End With
> End Sub

beachte jedoch, dass hiermit nur die dritte Zeile jeder Spalte geprüft wird! Wenn andere oder mehr Zellen geprüft werden sollen kannst du ja rumexperimentieren und den Code umändern :)

Beste Grüße, TheGrandmasta

...zur Antwort