Combobox ohne Leerezeile
17.05.2016 20:18:08
Marco
ich habe im Internet einen Code für mein Problem gefunden. Jetzt ist meine Frage an euch wie _
verändere ich den Code damit mir in der Combobox nicht ab Zeile 1 die Werte angezeigt werden sondern ab Zeile 4?
Option Explicit
'Modulweite Variablen deklarieren
Const C_mstrDatenblatt As String = "Datenbank"
Const C_mstrZielblatt As String = "Tabelle2"
Dim mobjDic As Object
Dim mlngLast As Long
Dim mlngZ As Long
Private Sub ComboBox1_Enter()
'Erste Combobox. Jeder Standort in Spalte A wird einmalig angezeigt
Set mobjDic = CreateObject("Scripting.Dictionary")
For mlngZ = 2 To mlngLast
mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ, 1).Value) = 0
Next
Me.ComboBox1.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Ich habe es mal selbst versucht und in der Zeile aus einer 2 eine 4 gemacht. Das hat auch geklappt aber ich weiß nicht ob das richtig war und jetzt wird leider in Combobox eine Leerzeile angezeigt. Wieso ist das so
For mlngZ = 4 To mlngLast
Schon mal vielen dank an alle die mir weiter helfen können
Viele Grüße Marco
Anzeige