Problem bei Listenfeld
09.01.2020 11:22:35
veliks
With Worksheets("Maßnahmen")
Maßnahmen.MaßnahmenListe.RowSource = "'Maßnahmen'!A3:A" & .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
über diesen Befehl soll aus der Tabellenspalte A ein Listenfeld mit Einträgen aus den Zellen gefüllt werden. In A2 steht eine Überschrift, die nicht mit eingelesen werden soll, daher ließt er Zelleneinträge ab A3 ein. Das ganze funktioniert auch sobald in A3 etwas steht. Mein Problem ist, dass wenn A3 leer ist, die Überschrift in A2 mit eingelesen wird. Das heiß er liefert dann zurück, dass die Range A3:A2 eingelesen werden soll. Ich hatte nicht auf dem Schirm, dass das überhaupt möglich ist wenn der Wert rechts kleiner ist als der links.
Gibt es eine Möglichkeit dies zu umgehen (wenn möglich ohne If-Schleife)? Also dass er immer
nur unterhalb der Überschrift einliest, auch wenn A3 leer ist.
Vielen Dank und Liebe Grüße