EXCEL VBA listObjects, RowsCount

[DieMelone]

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)

Code:

  Dim last_d As Integer
  last_d = dat.ListObjects("Euro_Tab").Cells(Rows.Count, 1).End(xlUp).Row

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.

[RPP63]

Moin!
Ohne mir die Datei angesehen zu haben:
Bei Listobjects musst Du noch mal Vokabeln lernen. ;)
Hier gibt es eine umfangreiche Auflistung der Befehle.

Gruß Ralf

[DieMelone]

Das hilft mir schonmal, danke für den Link, ich werde mich nachher nochmal daran versuchen.
Danke!