Makro mit Active Sheet
10.05.2016 17:04:33
AHEL
ich habe gerade zum ersten mal ein Makro aufgezeichnet.
Das Makro soll Zellen (bzw. bloß Werte, keine Formatierung etc) aus dem zweiten Tabellenblatt in das erste kopieren.
Es funktioniert auch wunderbar.
Ich würde dieses Makro nun auch gerne für die anderen Tabellenblätter anwenden: Werte aus dem vierten Blatt sollen in das dritte, Werte aus dem sechsten sollen in das fünfte usw. Es gehören also immer zwei Tabellenblätter zusammen, und es sollen immer die Werte vom hinteren Blatt in das vordere kopiert werden.
Hier der Code:
Sub Makro9()
' Makro9 Makro
Sheets("Tabelle2").Select
Range("B59:E64").Select
Selection.Copy
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE13").Select
Sheets("Tabelle2").Select
Range("B65:E70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE19").Select
End Sub
Die Kollegen meinen, es müsste irgendwie mit Active Sheet gehen. Ich habe einfach mal ausprobiert, jedes Sheets("Tabelle1").Select durch ActiveSheet.Select auszutauschen, das hat aber leider nicht geklappt...
Es wäre ohnehin nur die halbe Miete, denn ich muss ja jedes mal sowohl ein neues "Quellblatt" als auch ein neues "Zielblatt" definiert haben, wenn das Makro läuft.