Excel Fenster Aktivieren und in den Vordergrund
28.09.2016 17:30:52
Jonas
ich hoffe Ihr könnt mir helfen:
In meinem VBA Programm extrahiere ich Informationen aus dem Outlookkalender mit der Anweisung "Set myFolder = myNamespace.pickfolder", wodurch ein Fenster geöffnet wird indem ich den gewünschten Kalender aussuchen kann. Soweit so gut.
Jetzt möchte ich allerdings, dass nach der Auswahl wieder meine Excelmappe im Vordergrund und aktiv ist(es bleibt Outlook offen). Mein Ansatz ist wie folgt:
Sub Fensterholen
Dim Filename As String, Path As String, Thisapp As String
Dim TaskID As Integer
Path = ThisWorkbook.Path
Filename = ThisWorkbook.Name
Thisapp = Path & "\" & Filename
TaskID = Shell(Thisapp, vbMaximizedFocus)
AppActivate TaskID
End Sub
Es wäre wirklich super, wenn jemand weiß woran es hapert oder einen andern Lösungsvorschlag hat!
Vielen herzlichen Dank schon mal und liebe Grüße
Jonas
Anzeige