Tabellenblätter auslesen

Hallo,
ich bin neu hier und habe auch schon ein bisschen hier im Forum gelesen, aber noch nichts gefunden, was mir wirklich weiter hilft.
Mein Problem ich habe eine Exceldatei mit mehreren Tabellenblättern. Diese Datei kopiere ich jedes Jahr, damit ich eine neue Datei habe, in der ich die aktuellen Werte für das neue Jahr eintragen kann. Es kommen jedes Jahr neue Tabellenblätter hinzu und andere werden gelöscht. Die Tabellenblätter behalten in beiden Jahren den selben Namen.
Ich möchte aber, in den Tabellenblättern den letzten Wert mehrere Spalten als Anfangswert in den neuen Tabellenblättern übernehmen. Bis jetzt mache ich das so, dass ich beide Dateien öffne, ich mir das Tabellenblatt "A" in Jahr 2016 suche, hier in Zelle "A1" schreibe "=", dann von Hand Tabellenblatt "A" in Jahr 2015 suche und hier die Zelle "A31" anklicke. Das gleiche mache ich bei den Zellen "B1" zu "B31", "C1" zu "C31" und "D1" zu "D31". Jetzt mache ich weiter mit Tabellenblatt "B".
Es muss doch auch einfacher gehen. Ich suche ein Lösung, die z.B. den Namen des Tabellenblattes ausliest, vom aktuellen Jahr ein Jahr abzieht, damit die Datei vom letzten Jahr öffnet, dort das Tabellenblatt mit dem gleichen Jahr sucht, die Zelle "A31" ausliest und in der Zelle "A1" (aktuellen Tabellenblatt) wieder ausgibt.
Ist so etwas möglich?
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt. Falls nicht, einfach nochmal nachfragen.
Danke schon mal im voraus für Eure Mühen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NeuesJahrAnlegen() Dim wks As Worksheet With ThisWorkbook ' alte Datei speichern und Kopie unter neuem Namen speichern .Save .SaveAs Left(.FullName, Len(.FullName) - 9) & Left(Right(.Name, 9), 4) + 1, 52 For Each wks In .Worksheets With wks If .CodeName "Tabelle1" Then ' Übertrag .Range("B5") = Date .Range("C5") = "Übertrag " & Left(Right(ThisWorkbook.Name, 9), 4) - 1 .Range("D5:G5") = .Range("M34:P34").Value .Range("Q5") = "System" ' Rest leeren .Range("B6:L34, Q6:Q34").ClearContents End If End With Next wks End With End Sub

So, hallo nochmal Mike,
zunächst zu deinem letzten Wunsch, ja das ist ein Kinderspiel, dafür gibt es das "Workbook_SheetBeforeDelete"- bzw. "Workbook_NewSheet"-Ereignis mit dem man das Aus- bzw. Eintragen steuern könnte. Diesen Punkt würde ich aber hinten anstellen wollen.
Das mit dem früher Abgeben hätte man auch anders lösen können, aber das Nachtragen ist vollkommen nachvollziehbar, daran habe ich nicht gedacht. Das bedeutet es muss eine Verknüpfung hergestellt werden, zumindest jedes Mal wenn du eine Änderung in der Mappe des vorangegangenen Jahres tätigst. Schwierig, aber mit entsprechender API machbar. Jedoch gilt das gleiche wie bei Autos, je mehr Technik dahinter steckt desto fehleranfälliger wird das ganze.
Ich habe einen anderen Vorschlag, der weniger mit VBA noch Formeln zu tun hat, eher eine Struktur-Umstellung:
Hast du schon mal darüber nachgedacht deine Liste einfach fortzuführen? Das alte Jahr kann man Gruppieren und somit ausblenden. Damit sieht deine Liste aus wie immer, und über die Steuerung der Gruppierung (kleines Plus bzw. Minus am linken Rand) kannst du in den alten Jahren nachschlagen.
Den "Übertrag" der keiner mehr ist kann man wie gewohnt eintragen, seine Werte sind die Summe der oben stehen Zahlen seiner Spalte, also genau das was deine Formeln eh schon tun. Stör dich nicht daran dass meine Formeln anders aussehen, ich habe nur etwas ausprobiert.
Ich habe dazu für Herrn Mustermann und Herrn Meier zwei Varianten eingefügt wie ich mir das vorstelle. https://www.herber.de/bbs/user/104384.xlsx
lg Steve
PS.: Nach dem Upload habe ich gemerkt, dass für die Tabelle von Herrn Mustermann der Übertrag in dem Falle eigentlich überflüssig ist, die Überschrift für das Jahr entspricht der Zusammenfassung aus dem alten Jahr und damit dem Übertrag. Ich wollte nur keine neue Mappe für diese Kleinigkeit hochladen.

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread