Combobox/Userform Daten in Zelle übertragen VBA

[Phil from the Hill]

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

[Kuwer]

Hallo,

Private Sub Abbrechen_Click()

  'Eingabefenster schließen

  Unload Me

End Sub



Private Sub UserForm_Initialize()

  Me.Box1.RowSource = "Tabelle1!A2:A15"

  Me.Box1.ControlSource = "Tabelle1!A1"

End Sub

Gruß Uwe

[Phil from the Hill]

Sieht sehr logisch aus. Allerdings kriege ich deinen Vorschlag nicht in meine Macro eingebettet.
Kannst du mir zeigen an welcher Stelle ich einfügen muss. Bisher kommt bei mir immer eine Fehlermeldung.

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

[snb]

Schau mal:

https://www.snb-vba.eu/VBA_Fill_combobox...ox_en.html

NB. Verzichte auf 'rowsource', verzichte in VBA auf 'Select' und 'Activate'

[Phil from the Hill]

Schau mal:

https://www.snb-vba.eu/VBA_Fill_combobox...ox_en.html

NB. Verzichte auf 'rowsource', verzichte in VBA auf 'Select' und 'Activate'

Danke dafür, allerdings sieht es für mich sehr kompliziert aus. Ich stehe bei VBA noch ganz am Anfang.
Ich möchte eigentlich nur Wissen wie ich die ausgewähltene Kunden aus der Autoform in einen Zelle anweise.

Grüße

[snb]

So:

PHP-Code:

Sub M_snb()
   if combobox1.listindex>-1 then sheet1.cells(3,1)=combobox1.value
End Sub 


schau mal

https://www.snb-vba.eu/VBA_Userform_in_database_en.html