PDA

Vollständige Version anzeigen : Combobox Zwei Spalten in TextBoxen ausgeben


Leuchte
27.06.2015, 08:33
Hallo liebe Gemeinde
Ich bekomme es nicht hin.
Problem:
In der Userform ist die Combobox1 mit Daten aus zwei Tabellenspalten.
Anzeige z.B 1. "Eage 55" die 55 steht für Qm.
Frage: Wie bekomme ich nun die Auswahl in die TextBox 20 (1.Etage) und
in die TextBox 21 die Zahl 55
Mit der 55 wird später gerechnet.
Schon jetzt vielen Dank für eure Antworten.
Ein Schönes Wochenende wünscht
LEUCHTE

Hajo_Zi
27.06.2015, 08:39
TextBox1 = ComboBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ComboBox1.List(ListBox1.ListIndex, 1)


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Leuchte
27.06.2015, 16:08
Hallo Hajo
Vielen Dank für Deine schnelle Lösung.
Leider bekomme ich eine Fehlermeldung.
"Variable nicht definiert"
Im Debugger ist dann "LisBbox1" blau unterlegt.
Hier mein kompletter Code (aus der Testdatei)

Private Sub UserForm_Initialize()
Dim arr As Variant
arr = Tabelle1.Range("a1", "b1" & Range("c65536").End(xlUp).Row + 1)
ComboBox1.List = arr
TextBox1 = ComboBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ComboBox1.List(ListBox1.ListIndex, 1)
End Sub

Was mache ich falsch?
Wenn ich die beiden Zeilen Von Dir auskommentiere, läuft die Combobox prima. Wie definiere ich "Listbox1?
Ich freue mich auf Deine Antwort. Vielen Dank für deine Mühe.
Ein schönes Wochenende wünscht
LEUCHTE

Hajo_Zi
27.06.2015, 16:10
das hatte ich vergessen, ersetze es auch durch ComboBox1

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Hajo_Zi
27.06.2015, 16:14
und komplett
Option Explicit

Private Sub ComboBox2_Change()
TextBox1 = ComboBox2.List(ComboBox2.ListIndex, 0)
TextBox2 = ComboBox2.List(ComboBox2.ListIndex, 1)
End Sub


<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Leuchte
27.06.2015, 17:55
Hallo Hajo.
Ganz herzlichen Dank für Deine Hilfe. Jetzt funktioniert es.
Ich habe viele Stunden (vergeblich) nach einer Lösung gesucht.
Ohne Leute wie Dich würden Anfänger nicht weiter kommen und Hobbyprogrammierer die Lust verlieren.
Bei meiner Suche nach der richtigen Lösung bin ich oft auf Deine Vorschläge gestoßen.
Sicher spreche ich im Namen vieler Anfänger.
An dich (und alle anderen die gern helfen)
HERZLICHEN DANK. http://www.ms-office-forum.net/forum/smile.gif
sagt Leuchte