Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Combobox/Userform Daten in Zelle übertragen VBA
#1
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
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Phil from the Hill
Antwortento top
#3
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
Antwortento top
#4
Schau mal:

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

NB. Verzichte auf 'rowsource', verzichte in VBA auf 'Select' und 'Activate'
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Benutzer sagt Danke an snb für diesen Beitrag:
  • Phil from the Hill
Antwortento top
#5
(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
Antwortento top
#6
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste