Hallo zusammen,
ich bin in Sachen EXCEL VBA blutiger Anfänger und wollte mich an einem einfachen Projekt versuchen.
Ziel:
Per Userform drei Werte einlesen und mit diesen dann eine Tabelle (ListObject "Euro_Tab") um eine Zeile erweitern und einfache Berechnungen anstellen. Im Worksheet "temp" soll bei jedem neuen Eintrag eine neue Spalte zwischen D und E eingefügt werden. In dieser neuen Spalte soll in Zeile 8 die Jahreszahl und in Zeile 9 die Wertsteigerung in Prozent, alle weiteren Zeilen der neuen Spalte sollen das Produkt der jeweils rechten Zelle und dem Wert aus Zeile 9 sein. Der letzte Wert jeder neuen Spalte muss logischerweise 100% sein.
Das Sheet funktioniert auch einigermaßen, nur kommt mittlerweile immer der gleiche Laufzeitfehler und ich weiß nicht was ich falsch gemacht habe: (Z17)
Anbei ist auch das Dummysheet, ich hoffe ihr könnt mir helfen!
-dieMelone
Jetzt, da ich meine Frage aufgeschrieben sehe, frage ich mich, ob es vielleicht sinnvoll sei, ein weiteres temp Sheet anzulegen und die Daten einfach in ein Listobject zu kopieren, allerdings habe ich hiervon keine konkrete Vorstellung.
leider kann ich keine .xlsm hochladen, daher als .zip
Anhang anzeigen Sternsingererloes_mit_Inflation_Dummy.zip
Habs selbst rausgefunden, bitte Thema schließen.
ich bin in Sachen EXCEL VBA blutiger Anfänger und wollte mich an einem einfachen Projekt versuchen.
Ziel:
Per Userform drei Werte einlesen und mit diesen dann eine Tabelle (ListObject "Euro_Tab") um eine Zeile erweitern und einfache Berechnungen anstellen. Im Worksheet "temp" soll bei jedem neuen Eintrag eine neue Spalte zwischen D und E eingefügt werden. In dieser neuen Spalte soll in Zeile 8 die Jahreszahl und in Zeile 9 die Wertsteigerung in Prozent, alle weiteren Zeilen der neuen Spalte sollen das Produkt der jeweils rechten Zelle und dem Wert aus Zeile 9 sein. Der letzte Wert jeder neuen Spalte muss logischerweise 100% sein.
Das Sheet funktioniert auch einigermaßen, nur kommt mittlerweile immer der gleiche Laufzeitfehler und ich weiß nicht was ich falsch gemacht habe: (Z17)
Code:
Dim last_d As Integer
last_d = dat.ListObjects("Euro_Tab").Cells(Rows.Count, 1).End(xlUp).RowAnbei ist auch das Dummysheet, ich hoffe ihr könnt mir helfen!
-dieMelone
Jetzt, da ich meine Frage aufgeschrieben sehe, frage ich mich, ob es vielleicht sinnvoll sei, ein weiteres temp Sheet anzulegen und die Daten einfach in ein Listobject zu kopieren, allerdings habe ich hiervon keine konkrete Vorstellung.
leider kann ich keine .xlsm hochladen, daher als .zip
Anhang anzeigen Sternsingererloes_mit_Inflation_Dummy.zip
Ergänzung ()
Habs selbst rausgefunden, bitte Thema schließen.
