geschweifte klammern sind nicht dabei
... ein paar Threads weiter unten auch schon :-(
Gruss Rainer
... ein paar Threads weiter unten auch schon :-(
Gruss Rainer
Option Explicit
Dim lz As Long
Private Sub UserForm_Initialize()
Dim z As Long
lz = [a65536].End(xlUp).Row
For z = 1 To lz
ComboBox1.AddItem Cells(z, 1)
Next
End Sub
sagen wir 'müller' in der combobox_liste vorhanden ist.
das ist eigentlich das was ich wissen will
ich hab das problem gelöst mit einer if anweisung:
Private Sub cmbName_change()
If cmbName.ListIndex = -1 Then
Userform1.tbName = " "
MsgBox "Nicht vorhanden!"
Exit Sub
Else
Const spalte0 As Integer = 0
With Userform1.cmbName
Userform1.tbName = .List(.ListIndex, spalte0)
End With
End If
das ganze hat zwar einen haken .. siehe meinen beitrag ...
dafür hab ich leider noch keine Lösung