Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bildschirm abdunkeln bei Userform

Forumthread: Bildschirm abdunkeln bei Userform

Bildschirm abdunkeln bei Userform
27.02.2016 18:10:36
Jan
Hallo zusammen,
hab jetzt schon ne Weile gesucht, aber leider weniger als kaum was gefunden.
Ich möchte gern den Bildschirmhintergrund abdunkeln, solange eine Userform geöffnet ist für Eingaben.
Wahrscheinlich geht das nur über die Windows API, aber man weiß ja nie...vllt auch ohne. Weiß wer was?
Grüße und Vielen Dank :)

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Userform-Vollbild genügt nicht? oT
27.02.2016 18:19:23
Helmut

AW: Userform-Vollbild genügt nicht? oT
27.02.2016 18:23:21
Jan
Hallo,
Abdunkeln oder ähnliches sieht halt schöner aus :)
Danke trotzdem

..und Excel ausblenden? auch nicht? oT
27.02.2016 18:31:53
Helmut

Anzeige
AW: ..und Excel ausblenden? auch nicht? oT
27.02.2016 19:07:24
Jan
Paaah ;)
Modul mit:
#If Win64 Then
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Diese Arbeitsmappe: 
Private Sub Workbook_Open()
Application.Visible = False
ArbeitsplanerUserForm.Show
End Sub


Private Sub UserForm_Initialize()
Me.Left = 0
Me.Top = 0
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
End Sub
und Abbruch Button mit: 
Private Sub CommandButton1_Click()
Application.Visible = True
Unload Me
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige