noch auf der Suche nach einer Möglichkeit, bestimmte Datensätze aus einem Tabellenblatt in eine neue Tabelle zu kopieren, stieß auch auf der CD "Herbers Excel Beispiele" auf untenstehenden Code, um innerhalb eines Tabellenblattes zu filtern. Das funktioniert anscheinend aber nur bis Spalte G - danach werden die Daten ungefiltert in ein neues Tabellenblatt kopiert. Ich habe im jeweils aktuellem Tabellenblatt bis Spalte N zu filtern. Wie muß der Code angepaßt werden? - Die jeweiligen Combo-Boxen habe ich bereits i.d. Userform eingebaut und die Spalten darin zugewiesen. Was mache ich nur falsch? - Ich wäre sehr dankbar, wenn mir da jemand weiterhelfen könnte. Schön wäre es auch, wenn das neue Tabellenblatt nicht in die aktuelle Arbeitsmappe eingefügt werden könnte, sondern eine neue Mappe mit dem einen Tabellenblatt angelegt werden würde. Danke schon jetzt wieder für Eure Mithilfe.
Gruß - Wolfgang
Private Sub CommandButton1_Click()
Dim TB As Worksheet
Dim i%
Set TB = ActiveSheet
For i = 1 To 5
If Controls("ComboBox" & i).ListIndex <> -1 Then
TB.Range("A1").AutoFilter Field:=i, _
Criteria1:=Controls("ComboBox" & i).Value
End If
Next i
TB.Range("A1").CurrentRegion.Copy
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
TB.Range("A1").AutoFilter
Unload Me
End Sub