Zeile nur löschen wenn A nicht leer
16.02.2015 14:25:15
Roger
folgenden Code füre ich aus
Sub Makro1()
Dim i As Long
For i = 25000 To 1 Step -1
If Cells(i, 6) Ich will das es mir in Spalte F schaut ob der Betrag Minus ist. Dann soll er mir die Zeile löschen. Nun löscht er mir auch die Zeilen bei denen in Spalte F gar keine Zahl drinn steht. Da die Tabelle in Spalte A auch etwas drinnstehen hat wenn in Spalte F keine Zahl vorahnden ist soll diese Zeile ja bleiben. Sieh beiliegendes Musterblatt.
https://www.herber.de/bbs/user/95793.xlsm
Danke für eure Hilfe
Gruss
Roger