|
Hallo
ein letzter Versuch
Sub Spalten_filtern_XYZ()
Dim wkbOrig As Workbook
Dim wkbTarg As Workbook
Set wkbOrig = Workbooks.Open("PFAD")
Set wkbTarg = ThisWorkbook
Dim Rng As Range
Dim lngLetzte As Long
Dim loDeinWert11 As String
loDeinWert11 = "gesuchterWert" 'gesuchter Wert11 = gesuchter Wert
Set Rng = wkbOrig.Sheets("REITER3").Range("A7:ZZ7").Find(loDeinWert11) 'in REITER3, Spalten A1 bis ZZ1
If Rng Is Nothing Then
MsgBox "Wert " & loDeinWert11 & " nicht gefunden!" 'MassageBox, falls Wert in Spalte nicht gefunden wird
Else
With wkbOrig.Sheets("REITER3")
lngLetzte = .Cells(.Rows.Count, Rng.Column).End(xlUp).Row
.Range(.Cells(6, Rng.Column), .Cells(lngLetzte, Rng.Column)).Copy 'kopieren der ausgewählten Spalte
End With
wkbTarg.Sheets("REITER4").Range("A1").PasteSpecial Paste:=xlPasteAll 'einfügen der kopierten Spalten in Tabelle "REITER4", Beginn bei Spalte "A" Zelle "1"
End If
End Sub
sollte jetzt immer noch ein Fehler kommen, dann geh mit der Maus über die markierte Codezeile
da werden dir dann die Werte der einzelnen variablen angezeigt
MfG Tom
|