Hi Leute,
komm einfach nicht mehr weiter -.-
Also ich hab meine Datenbank in Excel importiert, und will jetzt
Namen aus einer spalte davon auslesen und in meine Kombobox einfügen.
For Each cell In Worksheets(1).Range("C:C")
If cell.Text = "contact_last_name" Then
cell.Select
'MsgBox "selektiert"
Do While Not cell.Text = "list_value"
Selection.Offset(1, 0).Select
cmdProjectOwner.AddItem (Selection.Offset(1, 0) + ", " + Selection.Offset(1, -1))
'MsgBox "hinzugefügt"
If cell.Text = "list_value" Then
MsgBox "ende"
End If
Loop
End If
Next cell
Anstatt bei cell.Text = "list_value" die msgbox "ende" auszugeben, springt er mir nur noch weiter nach unten in der spalte?!
Ich benötige den bereich zwischen "contact_last_name" und "list_value".
Kann mir da jemand helfen?!
Habs mit Exit For und Exit Do probiert....aber der springt nie an der Stelle raus, wo ich es haben will.