Werte aus UserForm Listbox in Tabelle übergeben
30.10.2002 22:31:49
Tobi
habe folgendes Problem und wäre für Hilfe dankbar.
Aus einem Sheet (Werkstoffe) möchte ich über eine UF-Listbox den gewünschten Werkstoff markieren. Quelle ist sind 3 Spalten mit "Bezeichnung Neu", "Bezeichnung alt2 und "Nummer".
Nachfolgender Code funktioniert bis zur Übernahme der Daten.
Option Explicit
Private Sub cmdOK_Click()
?
?
?
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim lR%
lR = Worksheets("Werkstoffe").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "Werkstoffe!C3:E" & lR
ListBox1.ListIndex = 0
End Sub
In einem anderen Sheet soll dann "Bezeichnung Neu", "Bezeichnung alt" und "Nummer" in jeweils einer Zelle stehen.
Kann mir jemand weiterhelfen???
Danke + Grüsse
Tobias