ich möchte den aktiv markierten Bereich in einer Variablen speichern und in mehreren Tabellenblättern den selben Bereich markieren. Der markierte Bereich ist auch immer eines der zu bearbeiteten Tabellenblätter. Für eine einzelne Zelle habe ich es hinbekommen, bei einer Bereichsmarkierung funktioniert es leider nicht. Über Hilfe würde ich mich sehr freuen.
Sub Mko_S_Bereich_anwählen()
Application.ScreenUpdating = False
Dim strBereich As Range
Set strBereich = Selection.Address
Application.Goto Worksheets("1R 1A").Range(strBereich), True
Application.Goto Worksheets("1R 2A").Range(strBereich), True
Application.Goto Worksheets("1R 3A").Range(strBereich), True
Application.Goto Worksheets("1R 4A").Range(strBereich), True
Application.Goto Worksheets("1R 5A").Range(strBereich), True
Application.Goto Worksheets("1R 6A").Range(strBereich), True
Application.Goto Worksheets("1R 7A").Range(strBereich), True
Application.Goto Worksheets("1R 8A").Range(strBereich), True
Application.Goto Worksheets("1R 9A").Range(strBereich), True
Application.ScreenUpdating = True
End Sub