Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

TextBox in UserForm zentrieren

Forumthread: TextBox in UserForm zentrieren

TextBox in UserForm zentrieren
31.05.2025 15:12:41
Werner
TextBox in UserForm zentrieren

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

Betreff
Datum
Anwender
Anzeige
AW: TextBox in UserForm zentrieren
31.05.2025 15:15:05
Werner
Hallo VBA Kenner!

Kann in einer UserForm eine TextBox zentriert werden?
Nur die vertikale Zentrierung.

Mit freundlichen Grüßen
Werner
AW: TextBox in UserForm zentrieren
31.05.2025 17:08:22
Yal
Hallo Werner,

es geht über die Eigenschaften "left" und "width" des Textboxes und des Userform:

Tb.Left = (Uf.Width - Tb.Width) / 2

VG
Yal
Anzeige
AW: TextBox in UserForm zentrieren
31.05.2025 20:25:57
Werner
Hallo Yal,

einen schönen Dank für Deine Hilfe!
Dein Vorschlag funktioniert einwandfrei!

Einen schönen Tag
Werner
AW: TextBox in UserForm zentrieren
31.05.2025 18:12:26
xlKing
Hi, Vertikal so:

Private Sub UserForm_Initialize()

TextBox1.Top = (UserForm1.InsideHeight - TextBox1.Height) / 2
End Sub


Gruß Mr. K.
Anzeige
AW: TextBox in UserForm zentrieren
31.05.2025 20:28:28
Werner
Hallo xlKing,

einen schönen Dank für Deine Hilfe!
Ich konnte DeinenVorschlag umsetzen.
Funktioniert einwandfrei!

Einen schönen Tag
Werner
AW: TextBox in UserForm zentrieren
31.05.2025 22:46:41
Luschi
Hallo Werner,

wenn es klappt, muß der Vba-Code aber nicht optimal sein:
- TextBox1 steht ohne Bezug auf das Elternobjekt da
- hier wäre es besser, wenn der Debugger diese Unkorrektheit als Fehler auswerfen würde

Private Sub UserForm_Initialize()

With Me
.TextBox1.Top = (.InsideHeight - .TextBox1.Height) / 2
End With
End Sub

Gruß von Luschi
aus klein-Paris

PS: da dieser Code in einem Klassenmodul läuft, ist 'Me' der Verweis auf das aktuelle Formular und bei .TextBox1 verweist der '.' auf 'Me'
Anzeige
AW: TextBox in UserForm zentrieren
01.06.2025 14:31:17
JoWE
also so klappts priml:

Option Explicit


Private Sub UserForm_Initialize()
With Me.TextBox1
.Top = (Me.InsideHeight - .Height) / 2
.Left = (Me.Width - .Width) / 2
End With
End Sub


Gruß
Jochen
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18