Supportnet / Forum / Tabellenkalkulation
Excel Listenausgabe durch Auswahlfeld
Frage
Schönen guten Morgen allerseits,
zu erst einmal find ichs klasse das es euch gibt, habe durch euch schon einige Stunden an Knobelarbeit mir sparen können.
Heute habe ich allerdings ein Problem das hier anscheinend noch nicht behandelt wurde:
Ich habe ein Tabellenblatt mit 4 Spalten ähnlich der folgenden:
Name Strasse Wohnort Familienstand
Meier Hauptstr. München ledig
Müller Schnellstr. Hamburg geschieden
Huber Landstr. München ledig
Jetzt möchte ich nachdem ich in A1 München und in B1 ledig geschrieben habe, auf Knopfdruck (VBA Button o.ä.) eine Liste aller zutreffenden Datensätze angezeigt bekommen (ledige Münchner).
Idealerweise als Popup Liste zum ausdrucken, möglicherweise in einem anderen Tabellenblatt per VBA hineinkopiert, oder per Filter sortiert, oder wie auch immer.
Hoffe jemand hat evtl. ne idee wie man das lösen könnte?
Antwort 1 von waddehadde
Ach ja eine Lösung mit der Standart Filter Funktion funktioniert wohl nicht so einfach, da diese Filterfunktionen dann nicht sichtbar sein müssten.
Wenn dann müsste man in Feld A1 München und in Feld B1 ledig eingeben, und Excel das dann sozusagen als Filter Kriterien akzeptieren.
Danke schonmal für eure Ideen ...
Wenn dann müsste man in Feld A1 München und in Feld B1 ledig eingeben, und Excel das dann sozusagen als Filter Kriterien akzeptieren.
Danke schonmal für eure Ideen ...
Antwort 2 von JoeKe
Hallo,
da du nicht schreibst wo deine stehen, hier mal ein Beispiel bei dem die Daten in Spalte C-F stehen.
Option Explicit
Private Sub CommandButton1_Click()
Dim Crit1 As String, Crit2 As String
Crit1 = ActiveSheet.Range("A1")
Crit2 = ActiveSheet.Range("B1")
With Columns("C:F")
.AutoFilter Field:=3, Criteria1:=Crit1
.AutoFilter Field:=4, Criteria1:=Crit2
End With
ActiveSheet.Range(Cells(2, 3), Cells(Rows.Count, 6).End(xlUp)). _
SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Tabelle2").Range("A1")
Columns("C:F").AutoFilter
End Sub
Gruß
JöKe
da du nicht schreibst wo deine stehen, hier mal ein Beispiel bei dem die Daten in Spalte C-F stehen.
Option Explicit
Private Sub CommandButton1_Click()
Dim Crit1 As String, Crit2 As String
Crit1 = ActiveSheet.Range("A1")
Crit2 = ActiveSheet.Range("B1")
With Columns("C:F")
.AutoFilter Field:=3, Criteria1:=Crit1
.AutoFilter Field:=4, Criteria1:=Crit2
End With
ActiveSheet.Range(Cells(2, 3), Cells(Rows.Count, 6).End(xlUp)). _
SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Tabelle2").Range("A1")
Columns("C:F").AutoFilter
End Sub
Gruß
JöKe
Antwort 3 von waddehadde
Klasse, Super, Danke ;)
Bis darauf das der Button irgendwie noch nich mag, machts exakt das was ich will.
Und den bekomm ich schon noch alleine hin ;)
Vielen vielen Dank, und Jungs ihr seid die besten!
Bis darauf das der Button irgendwie noch nich mag, machts exakt das was ich will.
Und den bekomm ich schon noch alleine hin ;)
Vielen vielen Dank, und Jungs ihr seid die besten!
Antwort 4 von waddehadde
Per Makro ein Popup, oder nen VBA Objekt mit dem Inhalt von ein paar definierten Zellen zum ausdrucken gibt es nicht oder?
Hab sowas auch noch nie irgendwo gesehen.
Hab sowas auch noch nie irgendwo gesehen.