Schleife

Forumthread: Schleife
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schleife

Schleife

20.04.2007 13:14:00

Christian

hallo zusammen,
wie kann ich folgende Schleife abändern, dass sie nicht nur für Spalte 1 gilt, sondern für die Spalten 1 bis 14 (A:N)? Also ich meine eine Schleife in einer Schleife, erst Spalte A überprüfen auf volle Zellen und löschen , dann B, u.s.w. wahrscheinlich brauche ich noch irgendeine Laufvariable für die Spalte, aber dafür reichen meine Kenntnisse nicht aus.


Sub löschen()
Dim zeile As Long
For zeile = 65536 To 2 Step -1
If Cells(zeile, 1).Value  "" Then Rows(zeile).Delete
Next zeile
End Sub

Vielen dank für euere Hilfe
Gruß
Christian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife

20.04.2007 13:34:51

IngGi
AW: Schleife

20.04.2007 13:54:31

Christian

AW: Schleife

20.04.2007 13:34:51

IngGi

Hallo Christian,
so?


Sub löschen()
Dim zeile As Long
Dim spalte As Integer
For zeile = 65536 To 2 Step -1
For spalte = 1 To 14
If Cells(zeile, spalte).Value  "" Then Rows(zeile).Delete
Exit For
Next 'spalte
Next 'zeile
End Sub

So löscht das Makro aber alle Zeilen, in denen in den Spalten A bis N irgend etwas steht! Ist das so gewollt.
Gruß