Office: (Office 2010) VBA Werte aus Listbox/Textbox in Zelle schreiben

Hallo zusammen,

ich habe eine Userform mit zwei Listboxen und einer Textbox.

Ich würde gerne beim drücken des Buttons in eine Spalte den selektierten Eintrag der linken Listbox mit entweder dem selektierten Eintrag der rechten Listbox oder mit dem eingegeben Eintrag in der Textbox schreiben lassen.


Bisher sieht mein Code für die Schlatfläche so aus:

Private Sub CommandButton1_Click()
Auswahl1 = ListBox1.List(ListBox1.ListIndex)
Auswahl2 = ListBox2.List(ListBox2.ListIndex)
Range("J100000").End(xlUp).Offset(1, 0) = Auswahl1
Range("J100000").End(xlUp).Offset(0, 1) = Auswahl2
End Sub

Wie muss ich den Code nun verändern, damit für Auswahl2 auch der Textbox-Eintrag gültig wäre?

Vielen Grüße
Lukas

 

Hi Lukas,

und wie wird festgelegt, ob der Inhalt der ListBox ODER der Inhalt der TextBox übergeben werden soll?

Bis später,
Karin

 

Hi Beverly,

ich hab es nun so verucht:

Private Sub CommandButton1_Click()
Auswahl1 = ListBox1.List(ListBox1.ListIndex)
If ListBox2.ListIndex = -1 Then
Auswahl2 = TextBox1.Value
Else
ListBox2.List(ListBox2.ListIndex) = Auswahl2
End If
Range("J100000").End(xlUp).Offset(1, 0) = Auswahl1
Range("J100000").End(xlUp).Offset(0, 1) = Auswahl2
End Sub


Das ist aber auch nicht wirklich die Lösung...

 

Ahhhh ich habs jetzt...trotzdem Danke!

 

Du solltest deine Lösung posten - dann können andere User mit einer ähnlichen Frage auch davon profitieren.

Bis später,
Karin