Guten Abend,
Wie mache ich diesen Resize Code optimal?
Für die Auswahl von Werten benutze ich eine Dropdown Liste (Tabelle3). Wenn ich nun einen Wert gewählt habe, soll dieser aus der Dropdown Liste entfernt werden. Dann sortiere ich die Liste, damit die leere Zelle am Schluss der Liste steht. Anschliessend soll die Tabelle mit Resize angepasst werden. Weil die Tabellen wechseln, setzte ich die Tabelle in eine Range-Variable.
Ein Programmzeile kann wie folgend aussehen (zuerst nur für Tabelle3):
Für diese Lösung braucht es aber eine StringVariable und eine Rangevariable mit dem Tabellennamen. Geht es eine Lösung mit einer einzigen Variable?
Die Range.Resize Eigenschaft mit relativen Verschiebungen ist mir hier unsympathisch.
P.S. Wenn neue Werte an die Tabelle angehängt werden, geschieht die Anpassung automatisch.
Gruss Fritz
Wie mache ich diesen Resize Code optimal?
Für die Auswahl von Werten benutze ich eine Dropdown Liste (Tabelle3). Wenn ich nun einen Wert gewählt habe, soll dieser aus der Dropdown Liste entfernt werden. Dann sortiere ich die Liste, damit die leere Zelle am Schluss der Liste steht. Anschliessend soll die Tabelle mit Resize angepasst werden. Weil die Tabellen wechseln, setzte ich die Tabelle in eine Range-Variable.
Ein Programmzeile kann wie folgend aussehen (zuerst nur für Tabelle3):
ActiveSheet.ListObjects("Tabelle3").Resize Range(Range("Tabelle3")(0, 1), Range("Tabelle3").End(xlDown).Address) oder allgemein
ActiveSheet.ListObjects(strTabx).Resize Range(rngTabx(0, 1).Address, rngTabx.End(xlDown).Address)
Für diese Lösung braucht es aber eine StringVariable und eine Rangevariable mit dem Tabellennamen. Geht es eine Lösung mit einer einzigen Variable?
Die Range.Resize Eigenschaft mit relativen Verschiebungen ist mir hier unsympathisch.
P.S. Wenn neue Werte an die Tabelle angehängt werden, geschieht die Anpassung automatisch.
Gruss Fritz