16.02.2016, 15:36
Hi atilla,
heißt das, daß für jede belegte Zeile > 1 ein Mal die ComboBox gefüllt wird, es also reichen würde, zu schreiben:
ohne For und If,
oder
?
[getestet]
OK, das erste geht so, aber das zweite bringt nur die letzte Zeile.
(16.02.2016, 15:05)atilla schrieb: [ -> ]erkennst Du, was hier passiert:
heißt das, daß für jede belegte Zeile > 1 ein Mal die ComboBox gefüllt wird, es also reichen würde, zu schreiben:
Code:
loLetzte = objWs.Cells(Rows.Count, 1).End(xlUp).Row ' letzte belegte in Spalte A (1)
ComboBox1.RowSource = "Datenbankliste!H2:H" & loLetzte
oder
Code:
For Each objZeile In objWs.UsedRange.Rows
If objZeile.Row > 1 Then
ComboBox1.RowSource = "Datenbankliste!H" & objZeile.Row
End If
Next objZeile
?
[getestet]
OK, das erste geht so, aber das zweite bringt nur die letzte Zeile.