Range anhand Inhalt in Spalte A löschen

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Excel Arbeitsblatt mit ca. 1000 Zeilen. Ich möchte nun eine Range löschen. Die Range soll variabel definiert werden, Kriterium ist dass in Spalte A die Zeichenfolge "XYZ_P1" vorkommt. Wichtig dabei ist, dass hinter der Zeichenfolge "XYZ_P1" noch weiterer Text folgt.
Wenn also, sagen wir in Zeile 89 - Zeile 103 die Zeichenfolge "XYZ_P1" vorkommt, soll die Range ("A89:H103") gelöscht werden und die Zellen sollen nach oben verschoben werden.
Meine VBA Kenntnisse beschränken sich auf das Aufzeichnen von Makros mit dem Rekorder und anschließendes "entschlacken" des aufgezeichneten Codes von Hand.
Ich würde mich sehr freuen wenn mir jemand helfen könnte.
Vielen Dank im Voraus.
Liebe Grüße Tamás

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TT Dim LR As Long, i As Long, RNG As Range Set RNG = Columns("A:H") LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte For i = LR To 1 Step -1 If Cells(i, 1) Like "XYZ_P1*" Then Intersect(Rows(i), RNG).Delete xlUp End If Next End Sub

Sub TT() Dim LR As Long, i As Long, RNG As Range On Error GoTo Fehler With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With Set RNG = Columns("A:H") LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte For i = LR To 1 Step -1 If Cells(i, 1) Like "XYZ_P1*" Then Intersect(Rows(i), RNG).Delete xlUp End If Next Fehler: '*** Rücksetzen With Application .EnableEvents = True .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

Hi
Mit meiner Lösung kannst du auch nur die Spalten A:H löschen.
Dazu gibt es die Funktionen Resize oder Intersect.
Als ganzes sieht der Code dann so aus:

Columns(1).Replace "XYZ_P1", true, xlpart
Columns(1).SpecialCells(xlcelltypeconstants, 4).resize(,8).delete Shift:=xlup

Sollte das eine spürbare Rechenzeit ergeben, kannst du die noch verbessern wenn die Liste sortiert werden darf:

Columns(1).Replace "XYZ_P1", true, xlpart
Range("A:H").Sort key1:=Cells(1, 1), Order1:=xlascending, header:=xlguess
Columns(1).SpecialCells(xlcelltypeconstants, 4).resize(,8).delete Shift:=xlup

Damit solltest du deutlich unter einer Sekunde liegen und es sind nur 3 Zeilen Code.
Wenn du den Code verstanden hast, bist du außerdem zukünftig in der Lage, solche Aufgaben mit großen Datenmengen auch von Hand in kürzester Zeit zu erledigen, ohne dass du einen Code schreiben musst.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Range anhand Inhalt in Spalte A löschen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range anhand Inhalt in Spalte A löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread