08.03.2020, 15:45
Hallo zusammen,
ich mache gerade erste Schritte mit VBA. Ich habe folgende Userform gebaut. Leider habe ich keine Ahnung mit welchem Code ich die ich die ausgewählten Kunden in eine Zelle übertrage. Es soll immer dieselbe Zelle sein und bei bedarf durch neue Eingaben überschrieben werden.
Bitte gebt mir einen Hinweis wie ich das hinkriege.
Danke und Grüße Phil
Private Sub Abbrechen_Click()
'Eingabefenster schließen
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
'1. Vorbelegung der Combobox
With UserForm1.Box1
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 1 '
End With
With UserForm1.Box2
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 0 '
End With
With UserForm1.Box3
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 2 '
End With
With UserForm1.Box4
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 3 '
End With
'2. Möglichkeit der Combobox
Worksheets("Tabelle1").Activate
UserForm1.Box1.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box2.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box3.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box4.RowSource = "A2:A15"
End Sub
ich mache gerade erste Schritte mit VBA. Ich habe folgende Userform gebaut. Leider habe ich keine Ahnung mit welchem Code ich die ich die ausgewählten Kunden in eine Zelle übertrage. Es soll immer dieselbe Zelle sein und bei bedarf durch neue Eingaben überschrieben werden.
Bitte gebt mir einen Hinweis wie ich das hinkriege.
Danke und Grüße Phil
Private Sub Abbrechen_Click()
'Eingabefenster schließen
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
'1. Vorbelegung der Combobox
With UserForm1.Box1
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 1 '
End With
With UserForm1.Box2
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 0 '
End With
With UserForm1.Box3
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 2 '
End With
With UserForm1.Box4
.AddItem "Kunde1"
.AddItem "Kunde2"
.AddItem "Kunde3"
.AddItem "Kunde4"
.ListIndex = 3 '
End With
'2. Möglichkeit der Combobox
Worksheets("Tabelle1").Activate
UserForm1.Box1.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box2.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box3.RowSource = "A2:A15"
Worksheets("Tabelle1").Activate
UserForm1.Box4.RowSource = "A2:A15"
End Sub