Office: Kopierfunktion auf ausgeblendeten Arbeitsblättern

Hallo an alle Spezis,

ich habe eine Datei programmiert, bei der der größte Teil der Arbeitsblätter ausgeblendet ist. Jedoch finden auf diesen ausgeblendeten Arbeitsblättern Kopierfunktionen statt. Läuft der entsprechende VBA-Code durch werden hierzu die Arbeitsblätter einen Moment einblendet und nach erfolgtem Kopieren wieder ausgeblendet. Hier mein aktueller Code:

Sheets("Basis Aktiv").visible = xlSheetVisible
Sheets("Basis Aktiv").Select
ActiveSheet.Unprotect
Range("AR15:AS1000").Select
Selection.Copy
Range("AI15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect
Sheets("Basis Aktiv").visible = xlVeryHidden

Wie kann ich es erreichen, das der Code "unbemerkt" durchläuft und auf ein Einblenden der Arbeitsblätter verzichtet wird. Anstatt dessen möchte ich eine Fortschrittsanzeige einblenden.

LG Ghost

:)

 

Hallo Ghost,

einfach ohne Selects:

Code: