Hallo michlchen81,
Da ich nicht vor ORt bin gebe ich folgendene Ratschläge:
- Du könntest den Rechner deiner Kollegin identifizieren und bei ihr eine andere Regelung finden
If Environ("Computername") = "PC-LokalerNetzwerkName" Then
'Hier dein Befehl
End If
- Oder eben die Tabelle nicht kopieren, sondern die Blatt_all_fil Tabelle leeren und mit den besagten Angaben aus Blatt_all füllen.
Ich bevorzuge die zweite Variante. Da ich ungerne neue Tabellen erstelle und den Namen danach umändern möchte. Denn die neue Tabelle muss nicht zwingend Blatt_all(2) heissen ect.
Damit sollte dein Problem also eigentlich leicht behebbar sein.
Zum Schutz des Blattes Blatt_all_fil, könntest du es komplett oder temporär ausblenden.
Meine Anmerkung basiert sich nur auf die folgenden 3 Zeilen welche du codiert hast.
lg,
Chris
Sheets(Blatt_all).Copy after:=Sheets(Blatt_all) ' hier bleibt das blöde makro mit besagter Meldung hängen...
' blatt mit den aktivitaeten kopieren und filter nach formular bzw. filterblatt setzen...
Sheets(Blatt_all & " (2)").Name = Blatt_all & "_fil"
|