Listboxwert in Zelle eintragen
07.09.2003 14:06:32
sigi
wie kann ich nachfolgenden Code so abändern,
dass wenn ich einen Namen in der Listbox "IstB"
anwähle dieser in Zelle "D1" ausgegeben wird.
Danke!
Sigi
Option Explicit
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub lstA_Click()
Dim iRow As Integer
iRow = 2
lstB.Clear
Do Until IsEmpty(Cells(iRow, 1))
lstB.AddItem Cells(iRow, lstA.ListIndex + 1)
iRow = iRow + 1
Loop
End Sub
Private Sub UserForm_Initialize()
lstA.Column = Range("A1").CurrentRegion.Rows(1).Value
End Sub