Hallo ,
ich habe seit einigen Tagen ein Problem, dass ich nicht lösen kann.
Ich habe den Wert eine Combobox als Variable in einen Autofilter gelegt und möchte das Filterergebnis in eine andere Tabelle kopieren.
Der Filter funktioniert, jedoch kann ich das Ergebnis nicht kopieren.
Strukur der Daten: Meine Datentabellen sind in Tab2 hinterlegt und sollen über eine ComboBox(Tab1) in Tab1 kopiert werden.
Filtercode:
Sub VertragKurzbezeichnungFiltern()
Dim Bereich As Range
wert = Worksheets("Tab1").ComboBox1.Value
Worksheets("Tab2").Range(Selection, Selection.End(xlDown)).Select
Worksheets("Tab2").Range(Selection, Selection.End(xlToRight)).Select
Set Bereich = ActiveSheet.UsedRange
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=wert
Kopiercode:
sheets("Tab2").Activate
Range("A200:D" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Tab1").Range("A1")
'Range("A2:D200").SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Tab1").Range("A1")
' ActiveWorkbook.Range(Cells(1, 1).End(xlDown), Cells(1, 4)).SpecialCells(xlCellTypeVisible).Copy
'Sheets("Tab1").Select
'Range("A1").Select
'ActiveCell.PasteSpecial xlPasteAll
Versucht habe ich schon diverse Möglichkeiten des Kopierens, jedoch finde ich keinen passenden Code, der den Fehler "Die SpecialCells-Eigenschaft kann auf die Methode nicht angewendet werden". Versuche ich es mit einer alternativen Methode, kommt entweder der gleiche Fehler oder gar ein anderer.
Kann mir ggf. jemand helfen?
Vielen Dank & Gruß