Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Rahmen ausblenden

Forumthread: Userform Rahmen ausblenden

Userform Rahmen ausblenden
29.04.2007 15:45:43
Albrecht
Hallo Forum,
ich habe die Beiträge gelesen, wie man einen Rahmen der Userform ausblendet. Was ist aber mit der blauen Kopfzeile, kann ich auch die ausblenden oder verändern?
Mit freundlichen Grüßen
Albrecht
PS: es wäre sehr nett, wenn Ihr deutlich macht wo man die entsprechenden Zeilen hinschreiben muß. Mir ist das häufig völlig unklar

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Rahmen ausblenden
29.04.2007 16:08:49
Kurt
Hi,
poste mal den bisherigen Code.
mfg Kurt

AW: Userform Rahmen ausblenden
29.04.2007 16:38:29
Peter
Hallo Albrecht,
in den Eigenschaften des UserForm(ulars) kannst du unter Caption jeden beliebigen Text eintragen
oder im UserForm_Activate kannst du das mit UserForm1.Caption = "mein UserForm(at)" ebenfalls ändern.
Gruß Peter
PS: Rückmeldung ob es das war, was du gesucht hast, wäre nett.

Anzeige
AW: Userform Rahmen ausblenden
29.04.2007 16:55:39
Kurt
Hi,
das hat der nicht gemeint, er will den Rand und die Titelleiste der Userform verschwinden lassen.
mfg Kurt

AW: Userform Rahmen ausblenden
29.04.2007 17:41:58
Herbert
Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long, _
ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub CommandButton1_Click()
Unload Me
End Sub




Private Sub UserForm_Activate()
Dim x As Long, y As Long, r As Long, mWnd As Long
Me.Width = 300
Me.Height = 225
x = Me.Width
y = Me.Height
r = 25
mWnd = FindWindow(vbNullString, Me.Name)
SetWindowRgn mWnd, CreateRoundRectRgn(2, r, x, y, r, r), True
End Sub


mfg Herbert

Anzeige
AW: Userform Rahmen ausblenden
30.04.2007 10:12:54
Albrecht
Hallo Forum,
vielen Dank für die vielen Anregungen, mal sehn, was ich damit anfangen kann, Danke.
Ich möchte Euch aber noch auf ein Problem hinweisen:
wo muß ich den Code, den man mir verfügbar macht hinstellen: in Tabelle1, in Modul1, in der Userform.
Dies ist mir aus den Antworten nicht immer deutlich.
Mit freundlichen Grüßen
Albrecht

Anzeige
AW: Userform Rahmen ausblenden
30.04.2007 13:28:46
Kurt
Hi,
der Code muss in das Modul der Userform.
mfg Kurt
;
Anzeige
Anzeige

Infobox / Tutorial

Userform Rahmen in Excel ausblenden

Schritt-für-Schritt-Anleitung

Um den blauen Rahmen einer Userform in Excel auszublenden, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge eine Userform hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbookName)“ und wähle „Einfügen“ > „Userform“.

  3. Füge den Code ein: Klicke auf die Userform und öffne das Codefenster. Füge den folgenden Code ein, um den blauen Rahmen zu entfernen:

    Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
    (ByVal X1 As Long, ByVal Y1 As Long, _
     ByVal X2 As Long, ByVal Y2 As Long, _
     ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" _
    (ByVal hWnd As Long, ByVal hRgn As Long, _
     ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Activate()
    Dim x As Long, y As Long, r As Long, mWnd As Long
    Me.Width = 300
    Me.Height = 225
    x = Me.Width
    y = Me.Height
    r = 25
    mWnd = FindWindow(vbNullString, Me.Name)
    SetWindowRgn mWnd, CreateRoundRectRgn(2, r, x, y, r, r), True
End Sub

  4. Speichere und schließe den Editor: Vergiss nicht, dein Projekt zu speichern (CTRL + S).

  5. Starte die Userform: Klicke auf „F5“, um die Userform auszuführen und den Rahmen in Excel auszublenden.

Häufige Fehler und Lösungen

  • Fehler: Userform bleibt sichtbar mit Rahmen

    • Lösung: Stelle sicher, dass der Code im Modul der Userform eingefügt wurde. Der blauer Rahmen wird nur entfernt, wenn der Code korrekt platziert ist.

  • Fehler: Code wird nicht ausgeführt

    • Lösung: Überprüfe, ob die Userform aktiviert wird. Der Code in UserForm_Activate muss ausgeführt werden, wenn die Userform geöffnet wird.

Alternative Methoden

Eine alternative Methode, um die Kopfzeile in Excel auszublenden, besteht darin, folgende Schritte auszuführen:

  1. Öffne die Excel-Datei und gehe zu „Überprüfen“.
  2. Wähle „Seitenlayout“ und gehe dann zu „Kopf- und Fußzeile“.
  3. Deaktiviere die Kopfzeile oder ändere sie nach Bedarf.

Praktische Beispiele

  • Beispiel 1: Wenn Du eine Userform für die Dateneingabe verwendest, kannst Du den blauen Rahmen und die Titelzeile ausblenden, um eine benutzerfreundlichere Oberfläche zu schaffen.
  • Beispiel 2: Verwende den Code, um visuelle Effekte wie abgerundete Ecken zu erzielen, die die Userform ansprechender machen.

Tipps für Profis

  • Nutze die Caption-Eigenschaft der Userform, um die Titelleiste individuell zu gestalten, auch wenn Du sie nicht ausblenden kannst. Dies kann helfen, den Fokus auf die Inhalte der Userform zu lenken.
  • Experimentiere mit verschiedenen Werten in CreateRoundRectRgn, um kreative Designs zu erzielen, die über die Standardansicht hinausgehen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich die Kopfzeile in Excel ausblenden?
Antwort: Gehe zu „Seitenlayout“ und wähle „Kopf- und Fußzeile“. Dort kannst Du die Kopfzeile ausblenden.

2. Frage
Kann ich den blauen Rahmen in Excel 2016 entfernen?
Antwort: Ja, die oben genannten Schritte funktionieren in Excel 2016 und anderen Versionen, die VBA unterstützen.

3. Frage
Wo muss ich den VBA-Code einfügen?
Antwort: Der Code muss im Modul der Userform eingefügt werden, damit er richtig funktioniert.

4. Frage
Wie kann ich die Größe der Userform ändern?
Antwort: Ändere die Werte von Me.Width und Me.Height im UserForm_Activate-Code.

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