Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Lösche Zeile wenn gefunden mit zusätzl. Variabel

Forumthread: Lösche Zeile wenn gefunden mit zusätzl. Variabel

Lösche Zeile wenn gefunden mit zusätzl. Variabel
27.04.2004 20:37:44
Achim
Hallo Excel Freunde

Mein Problem: Ich habe ein Makro das nach 73/und Rest dahinter Variabel suchen
soll und danach die Zeile löschen soll.zB.
73/8/1/5 oder 73/1/1/5 usw.
Leider klappt das nicht. Nun mein Makro:

' Alle Zeilen mit 73.....löschen
Range("A1").Select
Range(Selection, Selection.End(xlDown) ).Select
Selection.Name = "Bereich"
For i = 1 To Range("Bereich") .Cells.Count
wert = Range("Bereich").Cells(i)
If Mid$(wert, 1, 2) = "73/" And i (größer) 1 Then
Rows(i).Select
Selection.Delete
End if
Next i
End Sub
Was mache ich falsch???

Danke schon mal für das Interesse und eventuell Hilfe.
Gruß Achim
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lösche Zeile wenn gefunden mit zusätzl. Variabel
27.04.2004 20:45:20
PeterW
Hallo Achim,
versuch es mal so:

Sub Loeschen73()
Dim rngC As Range
For Each rngC In Range("A1:A" & Range("A65536").End(xlUp).Row)
If Left(rngC, 3) = "73/" Then
Rows(rngC.Row).Delete
End If
Next
End Sub

Gruß
Peter
AW: Lösche Zeile wenn gefunden mit zusätzl. Variabel
27.04.2004 20:49:54
Matthias G
Hallo Achim,
das wichigste, wenn in der Schleife Zeilen gelöscht werden:
Von unten nach oben arbeiten. Sonst werden leicht Zeilen übersprungen.
Mein Vorschlag:

Sub test()
Dim lz As Long, Wert
Range("A1").Select
lz = Range("A65536").End(xlUp).Row
For i = lz To 1 Step -1
Wert = Cells(i, 1)
If Left(Wert, 3) = "73/" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Gruß Matthias
Anzeige
AW: Lösche Zeile wenn gefunden mit zusätzl. Variabel
27.04.2004 20:58:09
Achim
Hallo Matthias G und Peter W.
Danke für die schnelle Hilfe!!!!!
Danke für die Rückmeldung - o.T.
27.04.2004 23:57:24
Matthias G
:-)

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige