Office: Combobox Zwei Spalten in TextBoxen ausgeben

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

:)

 

Code:

 

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

 

das hatte ich vergessen, ersetze es auch durch ComboBox1

 

und komplett
Code:

 

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