Zeilen ausschneiden bei gesuchten String in Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro2() On Error GoTo Fehler Dim TB2, ZE&, LR& Application.ScreenUpdating = False Set TB2 = Sheets("Tabelle2") ZE = 15 'ab Zeile TB2.Cells.ClearContents With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A .Rows(ZE).AutoFilter .Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=2, Criteria1:="=*Limo*" _ , Operator:=xlAnd .Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=4, Criteria1:="54321" .Rows(ZE & ":" & LR).Copy TB2.Rows(1) End With Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Hallo nochmal
löschen, kopieren noch überarbeitet...


Sub Makro2()
On Error GoTo Fehler
Dim TB2, ZE&, LR&
Application.ScreenUpdating = False
Set TB2 = Sheets("Tabelle2")
TB2.Cells.ClearContents
With ActiveSheet
If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten
LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A
ZE = WorksheetFunction.Match("Datum", .Columns(1))
.Rows(ZE).AutoFilter
.Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=2, Criteria1:="=*Limo*" _
, Operator:=xlAnd
.Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=4, Criteria1:="54321"
.Rows(ZE & ":" & LR).Copy TB2.Rows(1)
.Rows(ZE + 1 & ":" & LR).Delete xlUp
.AutoFilterMode = False
End With
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Sub Makro2() On Error GoTo Fehler Dim TB2, ZE&, LR& Application.ScreenUpdating = False Set TB2 = Sheets("Tabelle2") TB2.Cells.ClearContents With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten LR = .Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A ZE = WorksheetFunction.Match("Datum", .Columns(1)) .Rows(ZE).AutoFilter .Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=2, Criteria1:="=*Limo*" _ , Operator:=xlAnd .Range("$A$" & ZE & ":$E$" & LR).AutoFilter Field:=4, Criteria1:="54321" .Rows(ZE & ":" & LR).Copy TB2.Rows(1) End With Fehler: If Err.Number 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen ausschneiden bei gesuchten String in Spalte

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ausschneiden bei gesuchten String in Spalte

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread