API - UserForm - Excelfenster!

Frage aus Office-Loesung: Wie kann man bei einer ungebunden geladenen UserForm (UserForm1.Show 0) nach Klick auf z. B. einen CommandButton ohne mit der Maus in das Tabellenblatt zu klicken gleich im Tabellenblatt mit der Tabtaste navigieren? Realisiert über die API-Funktionen "FindWindow" und "BringWindowToTop":

API - UserForm - Excelfenster...[ZIP, 50 KB]

Code gehört in Modul1:

Option Explicit
Sub UF_Show()
UserForm1.Show 0
End Sub


Code gehört in das Klassenmodul UserForm:

Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32.dll" _
(ByVal hwnd As Long) As Long
Private Sub CommandButton1_Click()
Dim lngTMP As Long
lngTMP = FindWindow("XLMAIN", vbNullString)
BringWindowToTop lngTMP
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...