Hallo zusammen,
ich habe eine Datei gebastelt mit Worksheet.activate Ereignisse betreffend einzelne Blätter:
Private Sub Worksheet_activate()
ActiveSheet.ScrollArea = "$A$1:$ad$45"
ActiveSheet.Range("a1:ad1").Select
ActiveWindow.Zoom = True
ActiveSheet.Range("c3").Select
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowInsertingRows:=True, userInterfaceOnly:=True, Password:=" _
VCKB"
End Sub
Funktioniert auch. Nur wenn ich jetzt zwei Blätter auswählen und zum Bsp. in einer anderen Datei reinkopieren möchte, hängt sich Excel komplett auf. Dadurch ich es auch dazu gekommen, da eine Datei nicht mehr zu öffnen ist, es kommt eine Fehlermeldung und Excel hängt sich komplett auf so dass man nur noch über den Task-Manager da raus kommt...
Weiss jemand Rat?
Gruss und Danke
Salim