Bereich verschieben in bestimmten Blättern
28.11.2025 13:11:11
stephan66
ich würde gerne in bestimmten Blättern in jedem Blatt den gleichen Bereich verschieben, scheitere aber daran, dass der Bereich in einem Blatt korrekt verschoben wird, in den anderen aber komplett falsch
Mein Makro sieht so aus:
Sub Bereich_verschieben()
Dim aBlaetter As Variant, i As Integer
aBlaetter = Array("Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
For i = 0 To UBound(aBlaetter)
On Error Resume Next
With Worksheets(aBlaetter(i))
.Range("C43:D45").Cut Destination:=Range("C42")
.Range("C45:D45").Interior.Color = RGB(191, 191, 191)
End With
On Error GoTo 0
Next
End Sub
Das Makro hat ursprünglich in ausgewählten Blättern den Inhalt bestimmter Zellen gelöscht und ich habs nur angepasst, aber offensichtlich funktoniert das mit cut&paste so nicht.
Wäre für Hilfe dankbar.
VG Stephan
Anzeige