AutoFilter-Ausgabe will nicht!!!

Hallo liebe Excel-Profis,

ich habe ein VBA-Problem mit dem ich alleine nicht fertig werde.
Und zwar:
Ich habe eine Excel-Datei mit einer Suchmaske in Tabelle 1.
Tabelle 2, 3 und 4 enthalten Daten; jeweils in den Spalten A bis G.

Im ersten Tabellenblatt klicke ich auf einen von drei OptionButtons.
Nun kann ich in einem nebenstehenden Kombinationsfeld einen Begriff auswählen.
Situation: OptionButton1 auf aktiv gesetzt und als Begriff "Hallo" ausgewählt!

Nun soll Excel in Tabelle 2 den Begriff suchen und diese Tabelle nach diesem Begriff filtern. Das Filtern selbst klappt soweit.
Nun soll mir aber das gefilterte im ersten Tabellenblatt in einer Listbox ausgegeben werden.

Mein Code fürs Filtern bisher ist folgender:


Private Sub cboAuswahl_Click()
If optTelefon1.Value = True Then
Sheets("Tabelle2").Select
Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl
ElseIf optTelefon2.Value = True Then
Sheets("Tabelle3").Select
Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl
ElseIf optTelefon3.Value = True Then
Sheets("Tabelle4").Select
Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl
End If
End Sub

Wie gesagt, nun soll das gefilterte in Tabelle1 in "lstAuswahl" eingefügt werden.
Ich habe nur keine Ahnung wie! Ob Copy & Paste....oder....mir raucht schon der Schädel!

Ich bin für jede Hilfe dankbar.

Vielen Dank im voraus für Eure Hilfe.

MfG,
Martin Halberstadt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: AutoFilter-Ausgabe will nicht!!!

15.09.2003 16:19:04

Nepumuk

Weitere Erläuterungen!

16.09.2003 07:52:11

Martin Halberstadt

AW: Weitere Erläuterungen!

16.09.2003 17:58:12

Nepumuk

Fehlermeldung

17.09.2003 08:07:21

Martin Halberstadt

AW: Fehlermeldung

17.09.2003 16:38:51

Nepumuk

Problem gelöst.

18.09.2003 12:14:48

Martin Halberstadt

Hallo Nepumuk,

sorry, dass die weiteren Erläuterungen erst heute kommen, aber ich habe gestern nach dem Posten gefrustet Feierabend gemacht :-(

Die Tabellenblätter 2, 3 und 4 enthalten Daten in den Spalten A bis G.
In den Zellen A3 bis G3 sind die Spaltenüberschriften mit dem Excel-AutoFilter und ab Zeile 4 beginnen dann die Datensätze. In die ListBox sollen auch alle 7 Spalten übernommen werden. Die ListBox ist auch schon eingerichtet, allerdings kriege ich die Daten die gefiltert werden nicht in die ListBox übertragen.

Ich hoffe, dass ich meine Problemsituation jetzt besser geschildert habe, so dass Du auch genug Infos hast um mir zu helfen.

Vielen, vielen Dank im voraus.

MfG,
Martin Halberstadt

Option Explicit Private Sub cboAuswahl_Click() Dim Feld As Variant Application.ScreenUpdating = False Worksheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = "Temp" If optTelefon1.Value = True Then Sheets("Tabelle2").Select Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl ElseIf optTelefon2.Value = True Then Sheets("Tabelle3").Select Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl ElseIf optTelefon3.Value = True Then Sheets("Tabelle4").Select Selection.AutoFilter Field:=4, Criteria1:=cboAuswahl End If Range(Range("A4:G4"), Selection.End(xlDown)).Copy Worksheets("Temp").Select Range("A1").PasteSpecial Paste:=xlPasteAll Feld = Range("A1:G" & CStr(Range("D65536").End(xlUp).Row)) ListBox1.List = Feld Application.DisplayAlerts = False Worksheets("Temp").Delete With Application .DisplayAlerts = True .ScreenUpdating = True End With End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread