|
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
1 2 3 | If Environ("Computername") = "PC-LokalerNetzwerkName" Then
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
1 2 3 | Sheets(Blatt_all).Copy after:=Sheets(Blatt_all)
Sheets(Blatt_all & " (2)").Name = Blatt_all & "_fil"
|
|