Hallo Zusammen,
ich bastel schon eine ganze Weile an einem Rechnungsformular. Ich möchte über eine Combobox einen Artikel auswählen, dann soll in einem Preisfeld der zugehörige Preis erscheinen, dass habe ich soweit hinbekommen.
Jetzt möchte ich aber dem Nutzer noch die Möglichkeit anbieten zusätzlich einen freien Text in der Combobox einzugeben und den sonst ausgelesenen Preis manuell einzugeben und da hab ich so meine Probleme, anbei was ich bereits habe. Wäre prima wenn mir da jemand helfen könnte, bzw. mir eine kleine Hilfestellung gibt, vielen Dank im voraus.
Private Sub UserForm_Initialize()
'Erste Spalte mit Produkt füllen
With cboProdukt
.AddItem "Nelken"
.AddItem "Rosen"
.AddItem "Gerbera"
.AddItem "Tulpen"
.AddItem "Sonnenblumen"
End With
'Zweite Spalte mit Preis füllen
With cboProdukt
.List(cboProdukt.ListCount - 1, 1) = "5,00€"
.List(cboProdukt.ListCount - 2, 1) = "1,50€"
.List(cboProdukt.ListCount - 3, 1) = "2,50€"
.List(cboProdukt.ListCount - 4, 1) = "3,00€"
.List(cboProdukt.ListCount - 5, 1) = "2,00€"
End With
End Sub
Private Sub cboProdukt_Change()
'Variablendeklaration
Dim strEinzelbetrag As String
With Me
txtEinzelbetrag.Value = cboProdukt.List(cboProdukt.ListIndex, 1)
End With
End Sub
|