Auswahl in ComboBox Quelle als Adresse ausgeben
02.12.2024 17:15:27
Daniel Eberhard
Wie kann ich aus einer Combobox die Quelladresse in einer MsgBox ausgeben?
Die Combobox wird aber nicht immer mit der gleichen Menge befüllt.
Die Combobox fülle ich mit unterstehen Code:
Sub CB_bis_Mittag_füllen()
Dim i As Long
'Füllt die ComboBox2 (Bis Mittag)aus der Liste
With UF_Arbeitszeit
If .ComboBox1.ListIndex = 0 Then
With .ComboBox2
.Clear
.AddItem
End With
Else
With .ComboBox2
.Clear
.AddItem ""
For i = UF_Arbeitszeit.ComboBox1.ListIndex + 4 To 14
.AddItem Format(ThisWorkbook.Worksheets("Tabelle1").Cells(i, 1), "##00.#0 Uhr")
Next i
End With
End If
End With
end Sub
Besten Dank für Eure Hilfe.
Freundliche Grüsse
Daniel Eberhard
Anzeige