AutoFilter-Ausgabe will nicht!!!
15.09.2003 16:01:34
Martin Halberstadt
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