Zelleninhalte in anderes Blatt einfügen
11.02.2022 15:58:50
Yaya
ich würde gerne Zelleninhalte von anderen Tabellenblätter in einem 'Mastertabellenblatt' einfügen.
Allerdings werden die entsprechenden Tabellenblätter aus der kopiert werden soll zuvor mit diesem Makro erstellt:
___
Sub TestStepsErstellen()
Application.ScreenUpdating = False
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = letztezeile To 6 Step -1
Sheets("Vorlage").Copy After:=Sheets(2)
neuname = Sheets("Testfallübersicht").Cells(i, 2)
Sheets("Vorlage (2)").Name = neuname
wert1 = Sheets("Testfallübersicht").Cells(2, 3)
Sheets(neuname).Range("B1") = wert1
wert2 = Sheets("Testfallübersicht").Cells(3, 3)
Sheets(neuname).Range("B2") = wert2
wert3 = Sheets("Testfallübersicht").Cells(4, 3)
Sheets(neuname).Range("B3") = wert3
wert4 = Sheets("Testfallübersicht").Cells(i, 2)
Sheets(neuname).Range("B4") = wert4
wert5 = Sheets("Testfallübersicht").Cells(i, 3)
Sheets(neuname).Range("B5") = wert5
wert6 = Sheets("Testfallübersicht").Cells(i, 4)
Sheets(neuname).Range("B6") = wert6
wert7 = Sheets("Testfallübersicht").Cells(i, 5)
Sheets(neuname).Range("B7") = wert7
Sheets("Testfallübersicht").Select
Next i
ActiveWorkbook.Save
Application.ScreenUpdating = False
End Sub
Das heißt die Tabellenblätter aus denen kopiert werden soll sind nicht von vornherein bestimmt.
Wie oben abzulesen ist, wird der Name eines Tabellenblattes nach dem Inhalt der Spalte B definiert, der sich ändern kann.
Nun möchte ich, nachdem die Tabellenblätter erstellt wurden und der Inhalt bearbeitet wurde, immer die gleichen Zellen (B8 & B9) aus diesen Tabellenblätter in die 'Mastertabelle' kopieren.
Dies soll durch ein vordefiniertes Makro passieren, der generisch, d.h. ohne zu wissen wiviele Tabellenblätter es gibt und wie sie genau heißen (Benamung nach neuname = Sheets("Testfallübersicht").Cells(i, 2)), ist geschehen.
Habt ihr eine Idee wich ich es machen kann?
Lieben Dank vorab.