Problem mit Funktion "lösche Zeilen mit 0"
20.05.2005 09:41:43
Anja
ich habe hier eine Folgende Funktion, die Zeilen löscht wo in der Spalte K "0" steht bis zu vorletzten Eintrag. Die Funktion wird beim Knopfdruck ausgeführt.
Es funktioniert zwar so weit, nun was ich gar nicht verstehen kann wie so ich bis meinem Ergebniss den Knopf mehrmals betätigen soll... ?
Das ist mir echt ein Rätzel...
Hier ist der Code:
Sub Zeilen_löschen()
Dim Zeile As Long, a As Long
Zeile = Range("K65536").End(xlUp).Row
For a = 2 To Zeile - 1
If Cells(a, 11) = "0" Then
Rows(a).Delete
End If
Next a
End Sub
Im Beispiel habe ich eine Datei beigefügt, wo im Blatt "Probe" ausführung erfolgt. Das Ziel ist, wenn ich das Inhlat vom Blatt "Daten" kopiere und in "Probe" einfüge, sollte bei EINEM (und nicht mehreren) Knopfdruck auf knopf "losche" alle Zeilen gelöscht wo in der Spalte K "0" steht...
Hier ist die Beispiel: (siehe auch Modul Funktion Zeile_loesche)
https://www.herber.de/bbs/user/22994.xls
Würde mich sehr freuen wenn ihr mir helft... :)
danke und viele Grüße
Anja
Anzeige