Gefilterte Werte durch Combobox
20.06.2013 00:35:39
dandan
ich schlage mich seit Tagen mit folgendem Problem rum:
Es gibt 2 Tabellen in zwei verschiedenen Sheets('Fertigteile' und 'Stücklisten').
In 'Fertigteile' gibt es eine Liste mit Nummern (Bereichsname lautet 'KDV_Teilnummern'), Nummern kommen einmalig darin vor
In 'Stücklisten' gibt es ebenfalls eine Spalte (Spalte 3) in der Nummern vorkommen, Nummern kommen mehrmahlig darin vor.
Ziel:
In 'Stücklisten' soll nach derjenigen Nummer gefiltert werden, die in einer Combobox einer Userform (frmStucklisteAktualisieren)ausgewählt wurden. Die Nummern aus der ComboBox kommen aus KDV_Teilnummern.
Das ist der Code bisher:
Sub cmdAuswaehlen_Click()
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Dim rngDaten As Excel.Range
Dim rngResults As Excel.Range
Dim strNr As String
Dim strFA As String
Set wks = Worksheets("Stücklisten")
Set rngDaten = wks.Columns("C") 'bzw. Spalte 3
strNr = ComboBox1.Text
Set rng = rngDaten.Find(strNr, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
strFA = rng.Address
Do
If Not rngResults Is Nothing Then
Set rngResults = Union(rng, rngResults)
Else
Set rngResults = rng
End If
Set rng = rngDaten.FindNext(After:=rng)
Loop Until rng.Address = strFA
Call rngResults.Select
End If
Unload Me
End Sub
Habt ihr eine Idee was ich noch tun kann um das ganze zum laufen zu bringen?