Combobox
10.10.2003 11:58:33
Daniel Kaleja
bin im Moment an meinen ersten Erfahrungen mit Makros. Habe das Problem:
Ich habe diese Makro geschrieben:
Das Makro befindet sich in einem Excel-sheet und soll daten, die in einer Zeile unter einander stehen in die Combobox einlese. Ohne Clear-Befehl funktionierts wenigstens einmal, nut mir Clear-Befehl kann man keine Auswahl mehr treffen...
Sie Selektion wird wahrscheinlich durch sofortiges nochmaliges Durchlaufen des Makros wieder gelöscht. Was kann ich tun, um auch ein Ergebnis aus dieser Cobobo heraus zu bekommen?
Danke für die Hilfe schon mal im Vorraus
Dim name As String
Dim a As Integer
Dim objSheet As Worksheet
Set objSheet = Workbooks("proj_liste-kopie.xls").Worksheets("ibs-Projekt-Nummern aktuell")
If cmbProjects.Value = "" Then
name = objSheet.Cells(4, 3)
a = 0
Do Until name = ""
cmbProjects.AddItem (name)
a = a + 1
name = objSheet.Cells(4 + a, 3)
Loop
Else
cmbProjects.Clear
End If
End Sub