ich habe eine kurze Frage zu einer Schleife. Ich habe im Folgenden eine Testdatei hochgeladen.
https://www.herber.de/bbs/user/54815.xls
Vielen Dank im Voraus
Gruss Melchior
Sub KillZero()
Dim xlWbk As Workbook
Set xlWbk = ThisWorkbook
Dim xlSht As Worksheet
Set xlSht = xlWbk.Worksheets("Tabelle1")
Dim i&
For i = 1 To xlSht.Cells.SpecialCells(xlCellTypeLastCell).Row
'Wenn Zelle leer abbrechen
If xlSht.Cells(i, 1).Text = "" Then Exit For
'Wenn Wert gleich 0 --> Zeile löschen
If xlSht.Cells(i, 1).Value = 0 Then
xlSht.Rows(i).Delete
i = i - 1
End If
Next i
Set xlSht = Nothing
Set xlWbk = Nothing
End Sub
Sub Nullen_löschen()
z = Range("A65536").End(xlUp).Row
For i = z To 1 Step -1
If Cells(i, 1) = 0 Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
Hat Dir meine Antwort zu Deiner früheren Anfrage (Kopieren wenn nicht Null) weitergeholfen? Du hast darauf leider nicht mehr reagiert.
Gruß
Martin
Sub Nullen_löschen()
With Worksheets("Ziel")
z = .Range("A65536").End(xlUp).Row
For i = z To 1 Step -1
If .Cells(i, 1) = 0 Then
.Rows(i).EntireRow.Delete
End If
Next i
End With
End Sub
Code bitte mit copy and paste einfügen, da einige nicht so offensichtlich Punkte (".") eingefügt wurden.
Ich vermute allerdings, dass Nullen löschen ist nur ein anderer Weg ist, um zu erreichen, dass als Ergebnis des Kopiervorgangs nur noch Zeilen mit "echten Werten" in Spalte A übrig bleiben. Dann brauchst Du diesen Code überhaupt nicht, das erledigt der von mir in dem anderen Thread gepostete Zweizeiler schneller und eleganter. Schau's Dir mal an.
Gruß
Martin