Hallo
wenn du eh alles kopieren willst dann brauchts kein PasteSpecial
dann kann man den Copy/Paste in eine Zeile schreiben (hier nur mit Unterstrich wegen der Länge)
Sub Spalten_filtern_XYZ()
Dim wkbOrig As Workbook
Dim wkbTarg As Workbook
Dim Rng As Range
Dim loDeinWert11 As String
Dim lngLetzte As Long
Set wkbOrig = Workbooks.Open("PFAD")
Set wkbTarg = ThisWorkbook
loDeinWert11 = "gesuchterWert"
With wkbOrig.Sheets("REITER3")
Set Rng = .Range("A7:ZZ7").Find(loDeinWert11)
If Not Rng Is Nothing Then
lngLetzte = .Cells(.Rows.Count, Rng.Column)
.Cells(6, Rng.Column).Resize(lngLetzte, 1).Copy _
wkbTarg.Sheets("REITER4").Range("A1")
Else
MsgBox "Wert " & loDeinWert11 & " nicht gefunden!"
End If
End With
End Sub
btw. benutze einen anderen Browser, so ist es unlesbar was du schreibst
MfG Tom
|