Clever-Excel-Forum

Normale Version: Combobox/Userform Daten in Zelle übertragen VBA
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
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
Schau mal:

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

NB. Verzichte auf 'rowsource', verzichte in VBA auf 'Select' und 'Activate'
(11.03.2020, 12:53)snb schrieb: [ -> ]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
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