Hallo zusammen,
erstmal vielen lieben Dank und UweD und Mase für eure Hilfe bis hier hin.
Ich habe jetzt diesen Code eingefügt.
Sub vorrollen()
Dim i As Integer
For i = 4 To Sheets.Count
If Sheets(i).Visible = True Then 'nur wenn eingeblendet
Select Case Sheets(i).Name
Case "Tabelle6", "Tabelle7" ', usw
Range("D9:G11").Select
Selection.Copy
Range("D8:G10").Select
ActiveSheet.Paste
Range("D11:G11").Select
Selection.ClearContents
Case "Tabelle5", "Tabelle8"
Range("D19:G21").Select
Selection.Copy
Range("D18:G20").Select
ActiveSheet.Paste
Range("D21:G21").Select
Selection.ClearContents
Case Else
'mach nix
End Select
End If
Next
Leider klappt es noch nicht so, wie ich möchte. Wenn ich bspw. auf auf dem ersten Sheet bin führt er das Makro dort aus. Generell wird das Makro immer nur auf dem Sheet ausgeführt, was aktiv ist, bevor man das Makro startet.
VG
|