Löschen
27.01.2004 12:57:00
tim
ich habe folgendes Problem.
Ich habe eine Liste in der Werte vorhanden sind.
Ich möchte das alle Spalten in denen alle Werte 0 erkannt werden und gelöscht werden und das sich die Liste so verschiebt das keine Leerspalten vorhanden sind.
Kann mir jemand helfen?
Besten Dank im voraus.
Ich denke mal ich habe zu wenig Ahnung ;-/
Wenn ich das in mein Tabellenblatt einfüge und durchlaufen lasse
passiert nach Eingabe des gesuchten Wertes nix.
Was mache ich falsch?
Sub Löschen()
Dim Wert As String
Dim I As Integer
Wert = InputBox("Bitte den Suchbegriff eingeben", "Suchbegriff")
If Wert = "" Then Exit Sub
For I = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
If Cells(I, 7) = Wert Then Rows(I).Delete
Next
End Sub