Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld horizontal mittig ausrichten

Forumthread: Textfeld horizontal mittig ausrichten

Textfeld horizontal mittig ausrichten
16.02.2023 14:44:39
Timm
Hallo nochmal,
wie richte ich einen Text in einem Textfeld horizonal mittig ausrichten?
Vertikal funktioniert es ja unter Eigenschaften:
TextAlign = 2 - fmTextAlignCenter
Gruß
Timm
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld horizontal mittig ausrichten
16.02.2023 15:30:13
onur
"wie richte ich einen Text in einem Textfeld horizonal mittig ausrichten?" ? Ist das deutsch?
Davon mal abgesehen: du weisst wohl nicht wirklich, was "horizontal" und "vertikal" bedeuten, oder ?
AW: Textfeld horizontal mittig ausrichten
16.02.2023 17:09:58
Oraculix
Servus Hoffe ich habe Dich richtig verstanden.
Den Namen der Textbox1 musst noch anpassen!
Me.TextBox1.TextAlign = fmTextAlignCenter
Gruß
Oraculix
Anzeige
AW: Textfeld horizontal mittig ausrichten
16.02.2023 21:11:00
Timm
Hallo Oraculix,
entschuldige ich habe mich vertan. Ich meinte vertikal ausrichten. Für eine horizontale Ausrichtung des Textes gibt es in den Eigenschaften des Textfeldes folgende Möglichkeit -->TextAlign = 2 -fmTextAlignCenter. Nur eine entsprechende Möglichkeit für die vertikale Ausrichtung habe ich nicht gefunden.
Gibt es diese nicht?
Gruß
Timm
Anzeige
AW: Textfeld horizontal mittig ausrichten
16.02.2023 22:48:43
Oraculix 
Private Sub Form_Current()
    Dim intTextHeight As Integer
    Dim intControlHeight As Integer
    
    intTextHeight = Me.TextBox.TextHeight(Me.TextBox.Value)
    intControlHeight = Me.TextBox.InsideHeight
    
    Me.TextBox.Top = (intControlHeight - intTextHeight) / 2
End Sub

AW: Textfeld horizontal mittig ausrichten
17.02.2023 22:04:20
Timm
Hallo Oraculix,
habe den Code an meine Gegebenheiten angepasst:
Sub Test3()
Dim TextHeight As Integer
Dim ControlHeight As Integer
    
    TextHeight = uf02.TextBox1.TextHeight(uf2.TextBox1.Value)
    ControlHeight = uf02.TextBox1.InsideHeight
    
    uf02.TextBox1.Top = (ControlHeight - TextHeight) / 2
End Sub
Beim Ausführen erhalte ich jedoch die folgende Fehlermeldung:
Fehler beim Kompilieren:
Methode oder Datenobjekt nicht gefunden
Dabei wird der Part TextHeight markiert.
Eine weitere Frage wäre, ob der Code auch für ein Beschriftungsfeld funktioniert.
Schon einmal vielen Dank für deine Hilfestellung.
Gruß
Timm
Anzeige
AW: Textfeld horizontal mittig ausrichten
17.02.2023 23:24:14
Oraculix
Die Fehlermeldung "Methode oder Datenobjekt nicht gefunden" tritt normalerweise auf, wenn der Code versucht, auf eine Methode oder ein Objekt zuzugreifen, das in der aktuellen Umgebung nicht verfügbar ist. In diesem Fall ist es schwer zu sagen, was genau das Problem verursacht, ohne mehr Infos zu haben.
Lade mal eine Beispielmappe hoch! Dann kann ich Dir helfen ansonst kann ich nur Vermuten!
Gruß
Oraculix
Anzeige
AW: Textfeld horizontal mittig ausrichten
19.02.2023 13:12:13
Timm
Noch offen
AW: Textfeld horizontal mittig ausrichten
19.02.2023 16:41:36
Oraculix
Hallo Timm!
Hier die Arbeitsmappe.
https://www.herber.de/bbs/user/157905.xlsm
Gruß
Oraculix
Anzeige
;

Forumthreads zu verwandten Themen

Textfeld ändern und in Zelle schreiben
Sergej

Hallo ich habe mehrer Textfelder, diesen ein Makro hinterlegt:
Dabei soll bei Eingabe der neue String in die bestimmte Zelle und in das Textfeld gechreiben werden, ich komme mit der Syntax nicth ganz klar, ich möchte in der ZEILE
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select, stat...
23.04.2013 13:48:00
Thread-ID: 1310019
2 Beiträge
VBA: bei verlassen Textbox 5, berechnen Textbox6
Bernd

Hallo zusammen,
bei folgendem Problem komme ich nicht weiter.
Userform Textbox5 enthält Geburtstag. In TextBox6 sollen die Tage bis zum nächsten Geb. berechnet werden. Am Geb. direkt soll "Happy Birthday" in TextBox6 stehen.
Habe eine Formel, die in der Tabelle bereits diese Ergebni...
06.08.2013 15:18:19
Thread-ID: 1325930
8 Beiträge
Text in Combobox vertikal zentrieren
{Boris}
Hi Leute,
ist es möglich, den Text in einer Combobox vertikal zu zentrieren?
Also analog der Zellausrichtung für "Vertikal" - Zentriert.
Oder muss man das immer aus Comboboxhöhe und Schriftgröße "zusammenbasteln"?
Danke und
Grüße {Boris}
09.02.2004 15:56:46
Thread-ID: 379155
3 Beiträge
Userform an zelle ausrichten
Torsten

Hallo,
ich öchte dass wenn ich in Spalte A in eine Zelle klicke (Worksheet Selection Change), dass dann eine Userform sich öffnet und diese sich unten rechts an der Zelle positioniert.
Vielen Dank,
Torsten
13.10.2004 11:40:18
Thread-ID: 499736
2 Beiträge
UserForm an Zelle ausrichten
markus

Hallo,
ich suche eine Möglichkeit, eine Userform an einer x-beliebigen Zelle in einer Tabelle auszurichten. Damit möchte ich bewirken, dass die UF immer an der gleichen Stelle erscheint, egal welche Größe / Position das Fenster der Datei gerade hat. Ist das möglich?
Danke für Eure Hilfe...
05.03.2005 03:24:12
Thread-ID: 581015
2 Beiträge
Anzeige
Userform an Zelle ausrichten
SteffenS

Hallo und guten Abend,
ich brauche bei einem für schwierigem Problem Eure Hilfe!
Ich habe eine Userform die ich über eine Funktionstaste aufrufe.
Rufe ich die Userform auf, so soll diese unterhalb der aktive Zelle positioniert werden.
Mit anderen Worten ich möchte eine Userform...
05.04.2005 21:47:28
Thread-ID: 594665
2 Beiträge
Textfeld bei anklicken einer Zelle
igel

Ich möchte in einzelne Zellen einer Tabelle längere Texte schreiben. Aber die Spaltenbreite bzw -höhe nicht verändern. Gibt es eine Möglichkeit, dass sich beim Anklicken einer Zelle ein Textfeld öffnet, das dann den Text beinhaltet? Das ganze soll allerdings ohne Makro realisiert werden. Kann m...
19.07.2006 08:39:33
Thread-ID: 783459
2 Beiträge
Userform an Zellen ausrichten
Daniel

Hallo
ich hätte zwei Fragen zum Thema Positionierung einer Userform auf dem Bildschirm.
1. Problem: ich möchte erreichen, daß beim Start der UF die linke obere Ecke innerhalb der Zelle K3 liegt unabhängig von Fenstergrößen, Scrollpositionen, Bildschirmauflösungen, Spaltenbreiten usw.
06.09.2006 23:09:10
Thread-ID: 799372
7 Beiträge
860to864: Steuerelemente per VBA an Zelle ausrichten
Eckart

Hallo zusammen,
wie ermittelt man die Koordinaten der oberen linken Ecke der aktuell ausgewählten Zelle, um daran ein Steuerelement auszurichten, das in einer Tabelle platziert ist?
Für schnelle Hilfe bedanke mich im Voraus.
Gruß
Eckart
05.04.2007 17:12:00
Thread-ID: 860627
3 Beiträge
Anzeige
Textbox 1 bis Textbox 320 bedingte Formatierung mit VBA
Achim H.
Hallo Excel HelferInnen,

in meiner UserformTermine habe ich von TextBox2 bis Textboxen 367. Aus Zellen in der Tabelle Listen werden diese Boxen mit den Wochentag zb. Mo, oder Di, oder Mi usw. gefüllt. Über ein Makro wird eine Bedingte Formatierung. Sa gleich Blau und So gleich Rot angezeigt...
25.03.2024 10:08:26
Thread-ID: 1971211
4 Beiträge
vertikal und horizontal
ludmila

Hallo Spezialisten,
In der Tabelle "Liste" sind Daten horizontal eingetragen.
Diese sollen nun in der Tabelle "Projekt" vertikal eingetragen werden.
Nachstehendes makro ließt jedoch nur das Datum ab der Zelle A 63 ein.
wo liegt der Fehler?
Danke!
LG Ludmila
Sub Lie...
15.03.2009 10:58:27
Thread-ID: 1060364
3 Beiträge
Texte in Textfeldet per Makro umformatieren
Michael

Guten Tag,
ich bekomme von vielen diversen Personen Kommentare in Form von Textfeldern (ca. 90 pro Monat) zugesandt, die ich dann in mein Layout umformatieren muss (Bitten an die Sender mein benötigtes Format zu nehmen, finden leider selten Gehör:-(().
Jetzt habe ich mir die Frage geste...
02.07.2009 12:41:55
Thread-ID: 1085928
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige