Office: (Office 2010) Excel VBA Suche mit Hilfe Command Buttons anzeigen

Hallo

Ich habe eine UserForm erstellt, welche mit voneinander Abhängige Comboboxen sucht. Dabei wurde mir schon geholfen in diesen Forum.
Ich würde mir gerne das Ergebnis mithilfe eines CommandButtons in einer MsgBox anzeigen lassen und die Zeile gerne via Cursor markieren lassen.
Ich habe jetzt schon viele Varianten ausprobiert und bekomm es einfach nicht hin.
Vielleicht kann mir ja einer von euch auf die Sprünge helfen.

Der komplette Code zu Veranschaulichung lautet:

Option Explicit

'Modulweite Variablen deklarieren

Const C_mstrDatenblatt As String = "Verbrauchsmaterial"

Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long



Private Sub cboKategorie_Enter()

'Erste Combobox. Jedes Land in Spalte A wird einmalig angezeigt

Set mobjDic = CreateObject("Scripting.Dictionary")

For mlngZ = 6 To mlngLast

mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ, 1).Value) = 0

Next

Me.cboKategorie.List = mobjDic.keys

Set mobjDic = Nothing

End Sub

Private Sub cboHersteller_Enter()

'Zweite Combobox in Abhängigkeit von Combobox1.

'Jeder passende Stadt in Spalte B wird einmalig angezeigt.

Set mobjDic = CreateObject("Scripting.Dictionary")

With Worksheets(C_mstrDatenblatt)

For mlngZ = 6 To mlngLast

If .Cells(mlngZ, 1).Value = Me.cboKategorie.Value Then

mobjDic(.Cells(mlngZ, 3).Value) = 0

End If

Next

End With

Me.cboHersteller.List = mobjDic.keys

Set mobjDic = Nothing

End Sub

Private Sub cboArtikelbez_Enter()

'Dritte Combobox in Abhängigkeit von Combobox 1 + 2.

Me.cboArtikelbez.Clear

With Worksheets(C_mstrDatenblatt)

For mlngZ = 6 To mlngLast

If .Cells(mlngZ, 1).Value = Me.cboKategorie.Value And .Cells(mlngZ, 3).Value = Me.cboHersteller.Value Then

Me.cboArtikelbez.AddItem .Cells(mlngZ, 2).Value

End If

Next

End With

End Sub

Private Sub cboArtNummer_Enter()

'Dritte Combobox in Abhängigkeit von Combobox 1 + 2.

Me.cboArtNummer.Clear

With Worksheets(C_mstrDatenblatt)

For mlngZ = 6 To mlngLast

If .Cells(mlngZ, 1).Value = Me.cboKategorie.Value And .Cells(mlngZ, 3).Value = Me.cboHersteller.Value And .Cells(mlngZ, 2).Value = Me.cboArtikelbez.Value Then

Me.cboArtNummer.AddItem .Cells(mlngZ, 4).Value

End If

Next

End With

End Sub


Private Sub Button_Abruch_Click()

'Userform schliessen

Unload Me

End Sub

Private Sub Button_Suche_Click()

Dim mobjDic As Range

If mobjDic Is Nothing Then
MsgBox "Ware nicht bekannt!"
Else
MsgBox "Gefunden in" & mobjDic.Address

End If

Unload Me


End Sub


Private Sub UserForm_Initialize()

'Bei Start der Userform wird die unterste Zeile in Spalte A ermittelt

mlngLast = Worksheets(C_mstrDatenblatt).Cells(Rows.Count, 1).End(xlUp).Row

End Sub

 

Hallo Katja,

in der beiliegenden Excel-Datei habe ich dir die "UserForm_Suche" eingefügt, die über den Button "Anzeige 'UserForm_Suche'" im Arbeitsblatt "Verbrauchsmaterial" aufgerufen werden kann.
In der UserForm müssen alle 4 Comboboxen entsprechend ausgewählt werden, damit der Button "Suchen" den entsprechend gewünschten Erfolg beschert.

 

Guten Morgen

Heute hat sich leider doch ein Fehler ergeben und ich verstehe nicht genau warum.
Ich habe den Code so übernommen, wie er in Antons Excel Datei vorhaben war, am Freitag konnte ich suchen und auch heute morgen hat es funktioniert. Nur leider wurde die Flasche Zeile angezeigt. Ich hatte dann noch einmal den kompletten Code verglichen, auf Schreibfehler usw.

Jetzt kommt einer Fehlermeldung bei:

Dim mobjDic As Scripting.Dictionary

Benutzerdefinierter Typ nicht definiert

Dieser Fehler ist neu und ich hatte soweit nichts mehr geändert. Bin auch der Meinung, das er definiert ist.

Set mobjDic = CreateObject("Scripting.Dictionary")

Kann mir vielleicht noch einmal jemand auf die Sprünge helfen?

Vielen Dank

 

Vielen Dank Anton

Funktioniert super...vielen Dank