Outlook Immer Im Vordergrund

", 2, "Speicherinformation" Next If Len(Dir$(strLZPath & strFile & arrDTyp(0), vbNormal)) < 4 Or _ Len(Dir$(strLZPath & strFile & arrDTyp(1), vbNormal)) < 4 Then savechanges:=False End Sub In der Zweiten Mappe im Klassenmodul DieseArbeitsmappe Diese Fenster sollen sichtbar sein! Code: Option Explicit Private Sub Workbook_Open() Dim strFile As String Call Home_Path If Len(Dir$(strLZPath & strFile & "", vbNormal)) < 4 Then reenUpdating = False heets("LZ-Werte"). Unprotect freshAll Call XLS_Speichern heets("LZ-Werte"). Protect reenUpdating = True "Die LZ-Werte konnten nicht als" & vbLf & vbLf & _ strFile & "" & vbLf & vbLf & "gespeichert werden! Outlook express drngt sich immer in den vordergrund Office-Loesung.de. ", 2, "Speicherinformation" Else "Die LZ-Werte wurden unter" & vbLf & vbLf & _ strLZPath & strFile & "" & vbLf & vbLf & "gespeichert! ", 2, "Speicherinformation" Call PDF_Speichern Verfasst am: 09. Mrz 2011, 01:11 Rufname: Max ein Beispiel. Code: Private Sub Workbook_Open() Dim WshShell As Object Call prcShowBoxForeground "Test", 2, BOX_TITLE, vbInformation Also vor jedem Aufruf des Popups diese Zeile: Code: Call prcShowBoxForeground einfgen.