Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: khe am Juli 07, 2014, 12:53:33 Nachmittag

Titel: Office 2010: Workbook_open Worksheet_activate
Beitrag von: khe am Juli 07, 2014, 12:53:33 Nachmittag
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
Titel: Antw:Office 2010: Workbook_open Worksheet_activate
Beitrag von: Officer am Juli 07, 2014, 12:56:28 Nachmittag
Hallo,

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

activesheet.range("A1").select

Guß Alois
[Officer]
Titel: Office 2010: Antw:Office 2010: Workbook_open Worksheet_activate
Beitrag von: khe am Juli 07, 2014, 12:59:54 Nachmittag
Das tue ich sehr wohl - die Zelle ist auch aktiviert - nur eben kein Focus
Liebe Grüße Karl-Heinz
Titel: Antw:Office 2010: Workbook_open Worksheet_activate
Beitrag von: Officer am Juli 07, 2014, 13:13:38 Nachmittag
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]
Titel: Antw:Office 2010: Workbook_open Worksheet_activate
Beitrag von: khe am Juli 07, 2014, 19:31:35 Nachmittag
Hallo Alois,

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