ich stehe vor folgendem Problem. Ich verwende folgende Formel zum markieren der Arbeistblätter, es werden dabei die Blätter Testblatt bis zum letzten Arbeitsblatt markiert.
Sub exportieren()
b = Sheets("Testblatt").Index
For f = b To Worksheets.Count
Sheets(f).Select False
Next
End Sub
Nun möchte ich diese markierten Blätter mit dem Befehl "move" verschieben, was nicht so ganz funktioniert.
Ich habe mal das Verschieben als Makro aufgezeichnet, hier wird das ganze aber mit einem Array gemacht. Da geht allerdings bei mir nicht, da die Blätter hinter Testblatt veränderlich sind.
Weiß jemand wie das hinbekomme?
Vielen Dank schon mal für Euere Bemühungen
viele Grüße
Chris