diesmal keine Frage sondern ein Tipp für Alle die unter excel97 ein UserForm Non Modal anzeigen möchten.
Folgenden Code eingeben.
'Code Anfang
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal _
hwnd As Long, ByVal fEnable As Long) As Long
Private Sub UserForm_Activate()
'dieser Code gibt den Fokus an Excel zurück (Non Modal)
EnableWindow FindWindow("XLMAIN", vbNullString), True
End Sub
'Code Ende
Funktioniert Super, allerdings muss man noch in eine Tabelle klicken damit diese den Fokus erhält.
gesehen unter: http:\\www.vb-fun.de
P.S.: Die Lösung:
SendKeys "{Esc}"
Application.Dialogs(xlDialogOpen).Show
SendKeys "{Esc}"
Application.Dialogs(xlDialogShowToolbar).Show
die ich hier gefunden habe, hat mir aber auch sehr weiter geholfen!!
Ein Dank an den Tippgeber!!
Grüße an Alle
franz