ich fülle eine Listbox über Rowsource.
Asu den Listboxeinträgen (3 Spalten) kann ich eine Zeile auswählen, in ein Textfeld übertragen und dann bearbeiten. Wenn ich eine Zeile bearbeite, lösche ich diese aus der Rowsource der Listbox.
Nach der bearbeiteung der Zeile wieder in diese Rowsource der Listbox einfügen, die ja nun eine leere Zeile enthält.
Mit end(xlDown) wird sie aber immer am Ende der gesamten Rowsource eingefügt, d.h. ich habe nach 3 Bearbeitungen schon 3
leere Zeilen in der Rowsource.
Folgender Teilcode:
'RawSource für Listbox wird gefüllt
Set eintr = Sheets("Daten").Range("K10").End(xlDown).Offset(1, 0)
eintr.Value = such
Set eintr2 = eintr.Offset(0, 1) 'Sheets("Daten").Range("L11").End(xlDown).Offset(1, 0)
eintr2.Value = txtName.Value
Set eintr2 = eintr.Offset(0, 2) 'Sheets("Daten").Range("M11").End(xlDown).Offset(1, 0)
eintr2.Value = txtStck.Value
wie kann ich es machen, dass die erste freie Zelle des Bereiches K10 : K200 gefunden wird?
Ich dachte immer, mit end(xlDown) würde das funktionieren.
Hat jemand einen Tip für mich ?
Vielen Dank vorab,
Michael