@Mase vielen Dank für deine Antwort, leider bin ich mir nicht sicher was du meinst. Da ich doch leider nicht viel Ahnung habe von VBA
Meine Formular Bestellung wird geladen mit .Show in eben diesem Formular "Anmeldefenster" per Button Click. Das beduetet das Anmeldefenster mit der ComboBox schließt sicht per Button Klick und das Bestellformular mit dem Label öffnet sich ich hatte es jetzt so umgesetzt in Excel:
Private Sub cb_Station_Change()
With Me.cb_Station
Me.LabelStationsnummer.Caption = cb_Station
End With
' MsgBox (cb_Station.List(cb_Station.ListIndex, 1))
cb_user.ColumnCount = 5
For R = 2 To Sheets("tbl_user").Range("A65536").End(xlUp).Row
If Sheets("tbl_user").Cells(R, 3) = cb_Station.List(cb_Station.ListIndex, 1) Then
cb_user.AddItem Sheets("tbl_user").Cells(R, 2)
cb_user.List(cb_user.ListCount - 1, 1) = Sheets("tbl_user").Cells(R, 1)
cb_user.List(cb_user.ListCount - 1, 2) = Sheets("tbl_user").Cells(R, 2)
cb_user.List(cb_user.ListCount - 1, 3) = Sheets("tbl_user").Cells(R, 3)
cb_user.List(cb_user.ListCount - 1, 4) = Sheets("tbl_user").Cells(R, 4)
cb_user.List(cb_user.ListCount - 1, 5) = Sheets("tbl_user").Cells(R, 5)
End If
Next
End Sub
Aber sobald ich das Makro versuche zu starten und in dieser ComboBox meine Nummer auswählen will, da startet er den Debugger und sagt mir Fehler beim Komplimieren: Methode oder Datenobjekt nicht gefunden.
Muss ich vor dem Label doch noch das andere Formular schreiben? Wenn ja, wie genau? Das hatte ich nämlich auch schon probiert, hat aber nicht geklappt.
Vielen Dank im Voraus!
|