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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen