Private Sub Commandbutton2_Click()
Me.Commandbutton2.Visible = False
With Me.TextBox1
.Text = Me.Commandbutton2.Caption
.Visible = True
.Enabled = True
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.Commandbutton2
.Caption = Me.TextBox1.Text
.Visible = True
End With
With Me.TextBox1
.Visible = False
.Enabled = False
End With
End Sub
Um den Text in einem Textfeld einer UserForm in Excel horizontal und vertikal zu zentrieren, folge diesen Schritten:
TextAlign auf fmTextAlignCenter, um den Text horizontal zu zentrieren.False.Problem: Der Text im Textfeld ist nur horizontal zentriert und steht am oberen Rand.
Problem: Die Schaltfläche verdeckt das Textfeld und ist nicht sichtbar.
Falls du eine vollwertige Lösung anstelle des Tricks mit der Schaltfläche suchen möchtest, kannst du auch HTML verwenden, um Text in einem Web-basierten Kontext zu zentrieren:
<div style="text-align: center; vertical-align: middle; height: 100px;">
Dein Text hier
</div>Diese Methode ist jedoch nicht direkt in Excel anwendbar, sondern eher für HTML-Dokumente gedacht.
Hier ist ein Beispiel, wie du den VBA-Code in deine UserForm integrieren kannst:
Private Sub CommandButton1_Click()
Me.CommandButton1.Visible = False
With Me.TextBox1
.Text = Me.CommandButton1.Caption
.Visible = True
.Enabled = True
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.CommandButton1
.Caption = Me.TextBox1.Text
.Visible = True
End With
With Me.TextBox1
.Visible = False
.Enabled = False
End With
End SubHierbei wird beim Klicken auf die Schaltfläche das Textfeld sichtbar und der Text wird nach Verlassen des Textfeldes in der Schaltfläche angezeigt.
1. Kann ich den Text auch nur vertikal zentrieren?
Das ist in Excel nicht direkt möglich. Du kannst jedoch die oben genannten Tricks verwenden, um eine ähnliche Wirkung zu erzielen.
2. Welche Excel-Version benötige ich für diese Anleitung?
Die beschriebenen Schritte sind für Excel VBA in Versionen ab Excel 2007 anwendbar.