AW: Textbox eingabe in leere Zelle
23.10.2021 14:35:31
Daniel
Hi
wenn immer am Ende der Liste eingefügt werden soll:
Cells(Rows.Count, 1).End(xlup).offset(1, 0).Value = Textbox1.Text
kommen auch zwischendrin Leerzellen vor die zunächst gefüllt werden sollen bevor am Ende weiter geschrieben wird:
columns(1).find(what:="", lookat:=xlwhole, lookin:=xlformulas).value = Textbox1.Text
wobei man hier wissen muss, dass mit dieser Einstellung die Suche nicht in Zeile 1 beginnt, sondern in Zeile 2. Dh sollte die erste Leerzelle in Zeile 1 sein, wird diese nicht gefunden, da diese von der Suchfunktion als allerlezte durchsucht und nur verendet wird, wenn alle anderen Zellen der Spalte gefüllt sind.
Gruß Daniel
