VBA Schleife

Bild

Betrifft: VBA Schleife
von: Thorsten
Geschrieben am: 29.10.2003 10:09:30

Hallo zusammen,

ich habe eine recht lange Exceltabelle. In Zeile 1 stehen die Tabellenüberschriften. Nun muss ich ein Makro erstellen. Dieses Makro soll Zeilen die ich nicht benötige löschen. In der Spalte H stehen Kundennamen. Es sollen alle gelöscht werden die nicht mit Winco beginnen. Ich dachte da vieleicht an eine DO .... LOOP Schleife. BITTE HELFT MIR !

Bild


Betrifft: AW: VBA Schleife
von: Remo
Geschrieben am: 29.10.2003 10:40:09

Hallo Thorsten

Mit folgendem Makro sollte es klappen.

Gruss Remo



Sub löschen()
Zeile = 2
Do Until Range("A" & Zeile).Value = ""
If Range("H" & Zeile).Value Like "Winco*" Then
Zeile = Zeile + 1
Else
Rows(Zeile).Delete
End If
Loop
End Sub



Bild


Betrifft: AW: VBA Schleife
von: Thorsten
Geschrieben am: 29.10.2003 10:57:36

Vielen Dank.

Werde mich ab heute ein wenig mehr mit VBA beschäftigen!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " VBA Schleife"