Blatt kopieren und Werte übertragen
10.01.2018 14:22:46
Leo
hier eine knifflige Frage:
Zunächst eine Übersicht:
Wir haben OriginalBlatt, KopieBlatt und DrittesBlatt
Ich möchte ein Makro, mit dem man ein neues Blatt per Kopie eines alten Blatts erstellt und wenigstens einen Zellenwert/-inhalt aus diesem neuen Blatt in ein drittes Blatt überträgt bzw. verbindet (also OriginalBlatt wird kopiert -> Ergebnis ist KopieBlatt -> Zellenwert aus KopieBlatt wird irgendwo in DrittesBlatt übertragen und wenn man diesen Zellenwert in KopieBlatt ändert, ändert sich genauso der entsprechende Wert in DrittesBlatt).
Diesen Vorgang möchte ich beliebig oft wiederholen können bis man über Hundert KopieBlätter hat, deren bestimmte Zellenwerte untereinander in DrittesBlatt aufgelistet werden.
Ebenfalls soll es möglich sein, die KopieBlätter beliebig umbennen zu können.
Direkte Ansprache à la Worksheets("SoUndSo") ist also nicht möglich.
Bisher habe ich mir folgendes überlegt und komme ganz unten leider nicht mehr weiter.
Sub Test()
ThisWorkbook.Activate
Worksheets("Neu").Visible = True
Worksheets("Neu").Copy Before:=Worksheets("Neu")
Worksheets("Neu").Visible = False
wksL im Zwischenspeicher
Dim wksL As Worksheet
Set wksL = ActiveWorkbook.ActiveSheet
Worksheets("DrittesBlatt").Cells(5, 2).Value = wksL.Cells(3, 3).Value
End Sub
Es wird zwar der Wert von der Kopieblatt in DrittesBlatt übertragen, aber auch nur einmal. Wenn ich den entsprechenden Zellenwert in Kopieblatt ändere, wird keine automatische Änderung in DrittesBlatt vorgenommen.
Ist das Problem überhaupt lösbar?
Falls ja, bitte narrensichere Erklärung :D
Liebe Grüße