Werte falls nicht vorhanden, in neue Tabelle
09.10.2014 14:34:11
Clemence
ich habe ein kleines Problem:
Ich habe eine UserForm in der ich Werte abfrage. Diese Werte trage ich jeweils in eine neue Zelle in einer Spalte ein.
Tabelle1.Cells(lRow,1).Value = ComboBox/Textbox
Nun habe ich eine ComboBox, mit der ich aus einem Worksheet2 vordefinierte Werte abfrage, in der momentan 500 Einträge sind.
With ThisWorkbook.Worksheets("Neues")
ComboBox.List() = WorksheetsFunction.Transpose(.Range("A1:A500")
Nun möchte ich das Feature haben, wenn man einen neuen Eintrag in die ComboBox einträgt, wenn der noch nicht in der Worksheet("Neues") in der Range vorhanden ist, den auch dort in die nächste Zeile einträgt (A501).
Dann muss sich natürlich die neue Range ändern auf "A1:501" usw.
Hoffe ich hab das verständlich genug erklärt? Kann mir jemand helfen?
LG,
Clemence