Ich habe folgendes Makro, um eine Wertkopie (auch von Seiten, die Passwortgeschützt sind) einer gesamten Arbeitsmappe zu erstellen. Mein Problem ist, dass ich zwei Hilfstabellen haben, die ich ausblende und bei diesen funktioniert es nicht bzw. ich bekomme dann einen Laufzeitfehler. Wie kann ich das Problem umgehen?
Hier das funktionierende Makro (aber nur, wenn die beiden Hilfstabellen eingeblendet sind):
Sub Wertkopie()
For i = 1 To Worksheets.Count
Worksheets(i).Select
ActiveSheet.Unprotect ("Passwort")
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next i
End Sub
Ich bräuchte also eine Lösung, um auch verborgende Tabellen mit einzubeziehen, oder alternativ müsste das Makro so sein, dass die beiden Hilfstabellen ausgeschlossen sind:
Tabelle 1 bis 43
Tabelle 45 bis 86
Tabelle 88 bis 98
Bei diesen müsste das Makro laufen und die Hilfstabellen sind 44 und 87. Wenn ihr einen Tipp für einen der beiden Wege habe, wäre ich sehr dankbar.