Office: (Office 2013) Userform immer im Vordergrund

Helfe beim Thema Userform immer im Vordergrund in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Experten Wie kann ich es in VBA schaffen das ich eine User Form immer im Vordergrund habe auch wenn ich andere Tabellen öffne das diese sichtlich... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Supi111, 7. April 2018.

Seite 1 von 2

SUPI111

Supi111

Userform immer im Vordergrund

Hallo Experten
Wie kann ich es in VBA schaffen das ich eine User Form immer
im Vordergrund habe auch wenn ich andere Tabellen öffne das diese sichtlich ist ? wer könnte mir helfen ?

L.G. Supi

:)

Supi111, 7. April 2018

#1
STORAX

Storax

Google liefert das für die Userform
Code:

Option Explicit

Private Sub UserForm_Initialize()
AlwaysOnTop Me.caption
AddButtons Me.caption, WS_MINIMIZEBOX 'minimise box only
'AddButtons Me.caption, WS_MINIMIZEBOX Or WS_MAXIMIZEBOX 'minimise and maximise boxes
End Sub

Private Sub AlwaysOnTop(caption As String)

Dim hWnd As Long, lResult As Long

If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", caption)
Else
hWnd = FindWindow("ThunderXFrame", caption)
End If

If hWnd 0 Then

lResult = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

Else

MsgBox "AlwaysOnTop: userform with caption '" & caption & "' not found"

End If

End Sub

Private Sub AddButtons(caption As String, buttonStyle As Long)

Dim hWnd As Long, lstyle As Long, lResult As Long

If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", caption)
Else
hWnd = FindWindow("ThunderXFrame", caption)
End If

If hWnd 0 Then

lstyle = GetWindowLong(hWnd, GWL_STYLE)
lstyle = lstyle Or WS_SYSMENU Or buttonStyle

'Add specified icons to userform

lResult = SetWindowLong(hWnd, GWL_STYLE, lstyle)
If lResult = 0 Then
Debug.Print "SetWindowLong error:"; Err.LastDllError
End If

DrawMenuBar hWnd

Else

MsgBox "AddButtons: userform with caption '" & caption & "' not found"

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und das in ein Modul Code:

Option Explicit

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Const HWND_TOP = 0
Public Const HWND_BOTTOM = 1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2

Public Const GWL_STYLE = -16

Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_SYSMENU = &H80000

#If VBA7 Then
Public Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal hWnd As LongPtr, _
ByVal hWndInsertAfter As LongPtr, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal uFlags As Long) As Long

Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As LongPtr

Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As LongPtr, _
ByVal nIndex As Long) As Long

Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As LongPtr, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Public Declare PtrSafe Function DrawMenuBar Lib "user32" _
(ByVal hWnd As LongPtr) As Long

#Else

Public Declare Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal uFlags As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Public Declare Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long

#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder diesen Link, ausprobieren musst Du selber

Storax, 9. April 2018

#2
SUPI111

Supi111

Hallo Storax

hier bleib es gleich hängen?

If VBA7 Then

wahrscheinlich würde das VBA7 umbenannt gehören aber in was ?

den Oberen Code haben ich in Diese Arbeitsmappe
und den unteren in ein Modul

aber kann nicht testen da vba7 kommt?

L.G. Supi

Supi111, 9. April 2018

#3
STORAX

Storax

Userform immer im Vordergrund

Bedingte Kompilierungsanweisungen nicht entfernen
Code:

#If VBA7 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

muss genauso eingefügt werden. Nichts ändern!

Storax, 9. April 2018

#4
HAKLESOFT

haklesoft

schon beantwortet

haklesoft, 9. April 2018

#5
SUPI111

Supi111

Hallo Storax

Habe es jetzt ohne Änderung eingegeben, aber es erfüllt nicht das was ich vor hätte! Die Mappe mit der Userform ist offen und das Userform ist im Vordergrund. wenn ich eine weitere Excel Tabelle öffne ist die Userform
im Hintergrund das will ich erreichen das sie immer sichtbar ist !

L.G.Supi

Supi111, 9. April 2018

#6
STORAX

Storax

Tja, dann leg los, Beispielcode hast Du ja und programmiern kannst Du doch, oder?

Was mir gerade beim Testen aufgefallen ist, dass die Userform in den Hintergrund verschwindet,
wenn man über die Backstage Ansicht geht,um eine Datei zu öffnen.
ABER, ansonsten bleibt sie immer im Vordergrund und erscheint auch wieder,
wenn man die Backstage Ansicht verläßt.

PS Startet man die Userform modal und öffnet eine zweite Excelinstanz, bleibt die Userform immer im Vordergrund

Storax, 9. April 2018

#7
SUPI111

Supi111

Userform immer im Vordergrund

Hallo Storax

leider nein ich kann das Vba nicht Programmieren Sorry

Ich helfe mir über das Forum und versuche es zu lernen.

wie ich es beschrieben haben den einen Code habe ich in Diese Arbeitsmappe und den anderen im Modul.

aber könntest du mir deine Date wo es funktioniert senden dann kann ich vergleichen was ich falsch habe?

Danke supi

Supi111, 9. April 2018

#8
STORAX

Storax

...
leider nein ich kann das Vba nicht Programmieren Sorry

Ich helfe mir über das Forum und versuche es zu lernen.
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann empfehle ich Macromastery, hier anfangen

...
aber könntest du mir deine Date wo es funktioniert senden dann kann ich vergleichen was ich falsch habe?
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Selber rausfinden, das hilft am meisten weiter. Außerdem würde es Dir nicht helfen, wenn Du völlig am Anfang stehst. Mit APIs sollte man nicht gleich am Anfang starten, IMHO.

Ansonsten befogle die Tipps von der o.g. Seite

Practice, Practice, Practice Dont try to learn by reading.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Storax, 9. April 2018

#9
SUPI111

Supi111

danke für diese seite werde ich mir ansehen, nur verstehe ich nicht wenn du das beispiel versucht hast und bei dir geht es, was kann ich da falsch machen das es bei mir nicht funktioniert ? würde mich echt interesieren.
L.G. Supi

Supi111, 9. April 2018

#10
SUPI111

Supi111

Hallo Storax

Danke für deine Hilfe würdest du so nett sein und mir trotzdem sagen was ich falsch mache das es bei mir nicht funktioniert?

were mir echt hilfreich !

L.G. Supi

Supi111, 10. April 2018

#11
STORAX

Storax

Lade eine Datei mit Deinem Versuch hoch ...

Storax, 10. April 2018

#12
SUPI111

Supi111

Userform immer im Vordergrund

Hallo

Danke das du dir ´nochmals Zeit nimmst !

anbei meine Datei ?

Danke für deine Hilfe

wie gesagt wenn andere Blätter offen sind soll sie im Vordergrund angezeigt werden!

L.G. Supi

Supi111, 10. April 2018

#13
SUPI111

Supi111

Hallo

Danke für deine Hilfe habe es gefunden und es Funktioniert bei mir

L.G. Supi

Supi111, 11. April 2018

#14
STORAX

Storax

So recht glaube ich Dir nicht, denn Copy&Paste sollte man schon beherrschen. In Deiner Datei fehlt der Code in der Userform *upps

Außerdem sollte man auch nicht die Default Instanz einer Userform nutzen, obwohl das in diesem Beispiel sicher egal ist

Storax, 11. April 2018

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Userform immer im Vordergrund

Die Seite wird geladen...

Userform immer im Vordergrund - Similar Threads - Userform Vordergrund
Userform unterdrücken - wenn Datei von andere Datei geöffnet wird
in Microsoft Excel Hilfe
Userform unterdrücken - wenn Datei von andere Datei geöffnet wird: Hallo, ich habe einer Excel-Datei X ein Userform vorgeschaltet, d.h. wenn die Datei X geöffnet wird, wird das Userform geöffnet und der Anwender zur Eingabe von paar Daten aufgefordert....
UserForm in Office 2019 für MacOS fehlt
in Microsoft Excel Hilfe
UserForm in Office 2019 für MacOS fehlt: Hallo, ich wollte nach Hardwarewechsel auf Macbook im Office 2019 für MacOS eine UserForm erstellen und bin überrascht das ich keine Möglichkeit dazu finde, die Auswahlmöglichkeit im...
Userform Login Benutzername in Zelle schreiben
in Microsoft Excel Hilfe
Userform Login Benutzername in Zelle schreiben: Hallo mal wieder ins Forum, ich habe mir nach einem Video ein Login nachgebaut. Das funktioniert auch einwandfrei. Hier der Code: Private Sub bttnAnmelden_MouseDown(ByVal Button As Integer, ByVal...
Datum in Userform formatieren
in Microsoft Word Hilfe
Datum in Userform formatieren: Hallo! Ich habe folgende Herausforderung: Word 365. In einer Userform gibt es zwei Textboxen (TB_Datum und TB_Datum für Termin) In die Textbox TB_Datum soll ein Datum eingetragen werden können....
Userform dauerhaft im Vordergrund
in Microsoft Excel Hilfe
Userform dauerhaft im Vordergrund: Hallo Mitstreiter, gibt es eine Möglichkeit, eine kleine Userform, dauerhaft im Vordergrund auf dem Desktop zu halten, selbst wenn eine andere Anwendung aktiviert ist? 327462
Word Dokument über Excel-Userform im Vordergrund öffnen
in Microsoft Excel Hilfe
Word Dokument über Excel-Userform im Vordergrund öffnen: Ein freundliches Hallo an Alle, ich möchte über eine Userform in Excel ein Worddokument öffnen. Es soll vor Excel geöffnet werden, nicht in der Taskleiste abgelegt werden. Hier aus dem Forum und...
UserForm im Vordergrund halten wenn application visible=false
in Microsoft Excel Hilfe
UserForm im Vordergrund halten wenn application visible=false: Hallo, Ich habe für meine Kollegen eine kleine Anwendung gebaut, in der über ein Formular Daten eingeben und gespeichert werden können. Wenn die UF initialisiert wird, wird dabei Excell mit:...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden