Office: Zeile sortiert einfügen

Hallo zusammen,

ich habe ein kniffliges Problem und hoffe dass mir eventuell hier jemand weiterhelfen kann.

Ich habe auf einer Arbeitsmappe drei Tabellen direkt nebeneinander (das sollte nicht geändert werden, wenn es irgendwie auch anders geht). Ich hab ein Minimalbeispiel angefügt.

Nun möchte ich per VBA in ein Pop Up den Namen einer weiteren Aktie einfügen (in dem Beispiel: VW), die ID soll dann automatisch per SVERWEIS gezogen werden. Die Aktie soll nun aber an eben jener Stelle direkt alphabetisch richtig eingefügt werden. Eine Sortierung im Nachhinein bekomme ich nicht hin, da ja drei Tabellen nebeneinander an sich im Bezug stehen und Excel irgendwie nicht die parallele Sortierung mehrere Tabellen nebeneinander erlaubt.

Auch in den anderen beiden Tabellen soll in der zusätzlich hinzugefügten Zeile Leerzeilen entstehen, bzw. bei den Spalten "Aktuell" und "ID" die Formel ergänzt werden.

Dabei steht in der angrenzenden Tabelle der finale Closing Kurs des jeweiligen Jahrs (natürlich fiktive Werte im Beispiel *Smilie ) in Spalte "Aktuell" steht der aus einer anderen Tabelle gezogene aktuelle Kurs, einmalig am Ende jeden Jahres soll dann die mittlere Tabelle um ein weiteres Jahr nach rechts ergänzt werden und die Werte aus "Aktuell" als Werte eingefügt werden. (Letzteres habe ich bereits als Makro hinbekommen (viel rumprobieren und aufzeichnen))

Daher wäre ich ungeheuer dankbar wenn mir jemand beim ersten Teil behilflich sein könnte, ich habe bereits gefühlt alles versucht und bin bisher gescheitert.

Danke schonmal
Dominik

:)

 

das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

 

Hajo, diese Antwort von dir hilft wirklich keinem.

 

Die Datei war nur als Beispiel gedacht, die tatsächlich Tabelle ist natürlich in xlsm, nur damit meine Frage veranschaulicht wird

 

Ich habe mir die Tabelle angesehen, aber leider nicht ganz verstanden was du vor hast. Vielleicht kannst du noch etwas Kontext geben?

Insbesondere die drei Tabellen nebeneinander machen die Datenverarbeitung unnötig kompliziert, ohne dass ich darin den Vorteil sehe.

VG, Santa

 

Das Ziel sollte etwa so aussehen, dies soll am besten durch ein Makro passieren in welches ich zum Beispiel VW eingebe und die Tabellen werden dann alle um eins ergänzt (alphabetisch richtig (da ist VW ein schlechtes Beispiel weil es natürlich das letzte ist))

 

Und es müssen leider drei Tabellen sein, weil sonst mein Makro für den zweiten Teil funktioniert, sollte natürlich jemand ein Makro schreiben dass alles kann, dann gerne auch mit nur einer Tabelle *Smilie

 

Ich glaube es ist einfacher die Tabellen zu einer Tabelle zu machen und das zweite Makro anzupassen.

Falls alles funktioniert, würdest du dann eine neue Aktie in die erste leere Zeile unter der Tabelle schreiben. Die Tabelle, mit allen Formeln, erweitert sich automatisch, und wenn du willst, kannst du dann die Tabelle sortieren.

Wie umfangreich ist das zweite Makro?

 

Das zweite Makro schaut folgendermaßen aus:
Code:

Da auf dem Tabellenblatt ca. 16 Tabellen mit unterschiedlichen Kennzahlen sind, wäre es gut wenn das zweite Makro auch funktioniert,

auch wäre wichtig dass die neue Aktie nicht direkt unter die anderen angefügt wird, sondern an der richtigen alphabetischen Stelle

 

Ich würde folgende Änderungen vornehmen.

Die Tabelle zusammenfassen und benennen als "Main_Table".
Die Formeln bei ID und Aktuell ändern
Code:

Code:

Eine neue Aktie unten an die Tabelle anfügen. Die Formeln erweitern sich so automatisch.
Sortieren der Zeilen und das Kopieren der Spalten (Makro2) kann dann in einem Schritt passieren, etwa so:
Code:

 

Danke, funktioniert super,

auf dem eigentlichen Arbeitsblatt habe ich statt einer Tabelle nun über zwölf Tabellen (Zeilennamen und Spaltennamen identisch, nur andere SVERWEISE bei Aktuell) wie kann ich das Makro auf alle anwenden?

und gibts es einen Weg, dass ich den Namen der Aktie nicht immer händisch bei allen Tabellen ergänzen muss?

Danke schonmal

 

Vielen Dank für dein Feedback!

Ich denke auch für das neue Problem lässt sich eine Lösung finden.
Vorab ein paar Begriffe, damit wir nicht an einander vorbei reden:

Arbeitsmappe: Die Datei (= .xlsx/m)
Arbeitsblatt: Eines der Tabellenblätter. Bei einer neuen Datei werden automatisch 3 Tabellenblätter erstellt. Manchmal werden diese auch Reiter genannt.
Tabelle: Soll hier in diesem Kontext nur eine Tabelle beschreiben, wenn diese sich auf einen bestimmten Bereich bezieht (Einfügen > Tabelle... ).

Auf deine Frage bezogen: Wenn du sagen willst, dass du auf einem Arbeitsblatt mehrere Tabellen hast, dann würde ich auch diese verschiedenen Tabellen auflösen. Wenn die Daten auf einem Arbeitsblatt zusammengehören, gehören diese auch alle in eine einzige Tabelle. Pro Arbeitsblatt habe ich immer nur eine Tabelle. Falls die Daten auf einem Arbeitsblatt unterschiedlich sind, gehören sie meiner Meinung nach gar nicht auf ein einzelnes Arbeitsblatt.

Möglicherweise habe ich deine Frage falsch verstanden, bitte versuche dann die Situation noch einmal mit den oben definierten Begriffen zu erläutern.

 

Hey,

bisher sind auf dem gleichen Arbeitsblatt untereinander die Tabellen, da die Arbeitsmappe schon über 30 Arbeitsblätter hat. Die Tabellen in eine zu fügen, stelle ich mir schwer und unübersichtlich vor, da es ja im Ende drei Dimensionen hätte (Name bzw. ID der Aktien, Zeit, die verschiedenen Kennzahlen)

Danke schonmal *Smilie

 

Mit folgender Funktion kannst du in allen Tabellen auf dem aktuellen Arbeitsblatt eine neue Zeile anlegen.
Derzeit wird in die erste Spalte der angegebene Name eingetragen und in allen weiteren Spalten wird, sofern vorhanden, die Formel von oben übernommen.

Code:

 

Super, danke *Smilie

jetzt noch zwei Kleinigkeiten:

wie kann ich das erste Makro von dir auf alle Tabellen auf dem gleichen Arbeitsblatt anwenden,

und gibt es auch eine Möglichkeit alle Zeilen aus allen Tabellen auf dem gleichen Arbeitsblatt, welche eine bestimmten Namen haben, zu löschen (gerne wieder mit Pop-up)

Danke schonmal