title image


Smiley VBA-Outlook-Excel - Mappe ist ausgeblendet
Hallo,



mit folgendem Code - aus verschiedenen Internet-Tipps zusamengestrickt - übertrage ich Outlook-Daten nach Excel

Dim xlAnw As Object

Dim xlMappe As Object

Set xlMappe = GetObject("c:\temp\Problem_Faxe.xls")

Set xlAnw = xlMappe.Parent

xlAnw.WindowState = -4143 '-4143 = Normal, -4137 = Maximized; -4140 = Minimized

xlAnw.Visible = True



' hier jetzt Code zum Datenübertragen



xlAnw.Workbooks("Problem_Faxe.xls").Close savechanges:=True

Set xlMappe = Nothing

Set xlAnw = Nothing



Alles funktioniert wie gewollt - nur eins ist unschön: wenn ich anschließend die so aktualisierte Excel-Datei öffne, ist sie verborgen - ich muss immer erst Fenster, einblenden wählen, und dann die Datei auswählen, um die Daten zu sehen.



Durch welchen Befehl kommt das und wie kann ich das ändern?



Viele Grüße



Ulrich
(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: