Den nachstehenden Code habe ich im Forum gefunden. Nun möchte ich aber, dass nur zeilen mit einem bestimmten wert in der zelle a kopiert werden. Der zu suchende Wert steht im Tabellenblatt "Ziel" Zelle A1. Kann mir jemand helfen und mir schreiben wo ich den code wie anpassen muss?
besten Dank
Andi
Dim i%, LRow1%, LRow2%, strTab$
strTab = "Übersicht" 'Name anpassen
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
LRow1 = Sheets(strTab).Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(i)
If .Name strTab Then
LRow2 = .Cells(Rows.Count, 1).End(xlUp).Row
.Rows("68:" & LRow2).Copy Sheets(strTab).Range("A" & LRow1 + 1)
End If
End With
Next i