Leere Combobox
31.07.2018 21:26:47
Steve
ich habe folgendes Problem. Ich möchte in eine ComboBox Werte eintragen lassen.
hier der Code:
Option Explicit
Dim i As Integer
Private Sub Initialize()
For i = ActiveCell.Row To 42
If Cells(i, 34) "" Then
Me.JahrBox.AddItem Cells(i, 34)
Me.JahrBox.AddItem Cells(i, 36)
End If
Next i
Me.JahrBox.ListIndex = 0
End Sub
Private Sub CommandButton1_Click() 'Zum Eintragen in die Tabelle
ActiveCell.Value = Me.JahrBox
Unload Me
End Sub
auf anderen Arbeitsblättern funktioniert der Code. Ich habe ihn 1 zu 1 kopiert nur mit anderen Zellbezügen (hier die Schleife zeilenweise bei den anderen die schleife spaltenweise)
ich habe auch schon versuch nur text einzutragen Mit AddItem "A" auch hier kein eintrag in der Combobox
danke schonmal im vorraus