Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform verliert Fokus | Herbers Excel-Forum


Betrifft: Userform verliert Fokus von: Paddy
Geschrieben am: 24.10.2008 11:43:57

Hallo!

Habe ein kleines Problem....

In einer Userform rufe ich den Ordner-suchen-Dialog auf und mache gleichzeitig die Userform auf "enabled", damit mir keiner die Userform schließt bevor ich den Ordner ausgewählt habe.
Nach der Auswahl des Ordners und Schließen des Dialogs setzte ich die Enabled-Eigenschaft wieder auf true. Funktioniert auch... ABER: ich verliere den Fokus auf mein Formular... Es versteckt sich einfach...

Wie bekomme ich das Formular wieder nach vorne (ohne großen Aufwand!!!) ohne die gerade erst eingetragenen Daten (ausgewählter Ordner) zu verlieren (also geht hide-show nicht...)?

Vielen Dank im voraus!

Paddy

  

Betrifft: AW: Userform verliert Fokus von: Nepumuk
Geschrieben am: 24.10.2008 12:40:41

Hallo Paddy,

versuch es mal so:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Declare Function SetActiveWindow Lib "user32.dll" ( _
    ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Const CG_CLASSNAMEMSOFFICEFORM = "ThunderDFrame"

Private Sub CommandButton1_Click()
    Dim vntReturn As Variant
    Dim hWnd As Long
    vntReturn = Application.GetOpenFilename
    hWnd = FindWindow(CG_CLASSNAMEMSOFFICEFORM, Me.Caption)
    If hWnd <> 0 Then Call SetActiveWindow(hWnd)
End Sub

Gruß
Nepumuk (auch Profi) ;-)


  

Betrifft: AW: Userform verliert Fokus von: Paddy
Geschrieben am: 24.10.2008 12:52:33

Hallo Nepumuk!

Vielen Dank! Dieser Weg war mir bekannt. (brauche übrigens den Teil mit dem File-öffnen nicht, da ich nach einem Ordner browse... ;-) [was auch funktioniert...] ). Kennt du nicht noch einen VBA-internen Weg?

Grüße

Paddy


  

Betrifft: AW: Userform verliert Fokus von: Nepumuk
Geschrieben am: 24.10.2008 12:54:47

Hallo Paddy,

NEIN. Nicht ohne schließen und wieder anzeigen.

Gruß
Nepumuk


  

Betrifft: AW: Userform verliert Fokus von: Paddy
Geschrieben am: 24.10.2008 12:55:46

Schade aber auch....

Aber dennoch danke!

Grüße

Paddy


  

Betrifft: AW: Userform verliert Fokus von: Tino
Geschrieben am: 24.10.2008 21:08:08

Hallo,
geht es vieleicht so?

ungetestet

UserForm1.Enabled = True
AppActivate UserForm1.Caption



Gruß Tino


  

Betrifft: AW: Userform verliert Fokus von: Paddy
Geschrieben am: 27.10.2008 07:59:43

Hallo!

Wunderbar! klappt!
Geht nicht, gibt's nicht! ..........

Vielen Dank!

Grüße

Paddy


Beiträge aus den Excel-Beispielen zum Thema "Userform verliert Fokus"