Hallo,
vielleicht kann mir jemand bei folgendem Problem weiterhelfen. Ich habe ein Makro mit dem Makrorecorder aufgezeichnet, das für 10 Tabellenblätter in der gleichen Datei folgende Aufgabe erledigen soll:
In Tabelle 1 wird ein bestimmter Bereich ausgewählt, in dem Formeln hinterlegt sind. In diesem Bereich sollen nun die Formeln durch Werte ersetzt werden. Für Tabelle 2 bis 10 gilt das gleiche.
Hier noch ein Beispiel:
In Tabelle 1 wird der Bereich A10:B20 ausgewählt, dieser Bereich beinhaltet Formeln und soll durch Werte ersetzt werden. Nun soll der gleiche Bereich (A10:B20) in den Tabellen 2 bis 10 ebenfalls durch Werte ersetzt werden.
Leider funktioniert das Makro nur bei Tabelle1 und in Tabelle bleibt es hängen.

Sub FormelnInWerte_Umwandeln()
Dim rngAuswahl As Range
Worksheets("Tabelle1").Activate
Set rngAuswahl = Application.InputBox("Kopierbereich auswählen:", Type:=8)
rngAuswahl.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Worksheets("Tabelle2").Activate
rngAuswahl.Select……..’hier läuft das Makro nicht mehr weiter
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
...usw.
Ende Sub
Für Ihre Bemühungen bedanke ich mich im Voraus.