Office 2010: Workbook_open Worksheet_activate

[khe]

Nach langer "Excelpause" versuche ich z. Zt. meine alten EXCEL2003 Dateien auf EXCEL2010 umzustellen. Im "Workbook_open" laufen bestimmte Makros ab, die z. B. Für alle Tabellen den Blattschutz einschalten. Je nach Datum wird in eine Tabelle mit dem Datumsmonat verzweigt und wird die Tabelle aktiviert, dann scrollt das Fenster in die Zeile mit dem Datum.

Das alles wird brav ausgeführt, doch hat die Arbeitsmappe danach nicht mehr den Focus. Bevor ich etwas tun kann, muss ich zunächst mal in eine Zelle oder auf die Titelleiste klicken.

In Mappen ohne solche Open- bzw. Activate-Makros passiert das nicht

Liebe Grüße Karl-Heinz

[Officer]

Hallo,

wähle doch auf dem Blatt als letzte Aktion einfach eine Zelle aus, z. B. mit

activesheet.range("A1").select

Guß Alois
[Officer]

[khe]

Das tue ich sehr wohl - die Zelle ist auch aktiviert - nur eben kein Focus
Liebe Grüße Karl-Heinz

[Officer]

Hallo,

vielleicht hilft dir das hier weiter.

Code: Visual Basic

1. With ThisWorkbook
2.   .Activate
3.   .Sheets(1).Select
4.   .Sheets(1).Range("A1").Select
5. End With
6. AppActivate "Microsoft Excel"
7.  

LG Alois
[Officer]

[khe]

Hallo Alois,

die Zeile 6 Deines Codes war alleine schon ausreichend!!
Vielen Dank
Gruß Karl-Heinz