Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Löschen einer Zeile nach flexiblem Kriterium in C3

Löschen einer Zeile nach flexiblem Kriterium in C3
30.03.2015 19:31:57
Hans

Hallo ich habe eine Frage zu einem Makro von mir und würde um eure Hilfe bitten. Ich möchte nach einem Wert, der in Zeile "C3" steht filtern und die entsprechende Zeile löschen. Dieser Wert kommt in 2 Zeilen in der Spalte C vor. Jedoch soll nur die obere der beiden Zeilen gelöscht werden.
Mein Versuch mittels Aufzeichnung schaut wiefolgt aus.
Range("C3").Select
Selection.Copy
ActiveSheet.Range("$C$9:$BL$37").AutoFilter Field:=1, Criteria1:= _
"E1_BD_0051"
Rows("24:24").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Vielen Dank im voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ohne Filter
30.03.2015 21:07:09
Gerd L
Servus!
Sub test()
Dim X As Range
Set X = Columns(3).Find(Range("C3").Value, after:=Range("C8"), LookIn:=xlValues, lookat:= _
xlWhole, MatchCase:=True)
If Not X Is Nothing Then If X.Row > 8 Then X.EntireRow.Delete shift:=xlShiftUp
End Sub

Gruß Gerd

AW: Ohne Filter
30.03.2015 21:19:08
Hans
Es funktioniert!
Danke Gerd!

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige