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

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige