Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
AW: Textfeld horizontal mittig ausrichten
19.02.2023 13:11:29
Timm
Hallo Oraculix,
hier nun die Beispieldatei.
https://www.herber.de/bbs/user/157903.xlsm
Danke für deine Unterstützung.
Gruß
Timm
Anzeige
AW: Textfeld horizontal mittig ausrichten
19.02.2023 13:12:13
Timm
Noch offen

66 Forumthreads zu ähnlichen 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
Anzeige
VBA Textbox - Texteingabe wird nicht angzeigt
MFuchs

Hallo zusammen.
Nachdem ich die letzten zwei Tage durch div. Beiträge hier und mit Googles Hilfe versucht habe eine Lösung für mein Problem zu finden, aber bisher zu keinem Ergebnis gekommen bin, bitte ich jetzt doch die Experten um Rat.
Beschreibung des Situation:
Ich habe ein User...
19.08.2016 15:18:56
Thread-ID: 1510217
2 Beiträge
Diagramm an Zelle ausrichten?
TomTom
Hallo Forum,

ich mal wieder...
Meine Diagramme machen was sie sollen, ... fast ...

Ich erstelle einige Diagramme und zwar als Objekte in einem bestimmten Datenblatt. Kann ich irgendwie festlegen, dass die linke obere Ecke des Diagramm1 an Zelle A1 und alle fogenden Diagramme da...
15.10.2003 11:16:01
Thread-ID: 323780
4 Beiträge
Anzeige
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
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
Userform an Zelle ausrichten II
SteffenS

Hallo und guten Abend,
ich brauche nochmal Eure Hilfe!
Und zwar möchte ich eine Userform an einer Zelle ausrichten
Dazu habe ich schon folgenden Code:
Private Sub UserForm_Initialize() 'UF ausrichten Dim zeile, spalte zeile = ActiveCell.Row spalte = ActiveCell.Column zeile2 = A...
10.04.2005 18:58:36
Thread-ID: 596922
3 Beiträge
Shapes an Zellen ausrichten
PeterP

Hallo Excel-Gemeinde,
kann ich Shapes (Formular-Kombifelder, nicht VBA!) per VBA an Zellen positionieren?
Also z.B. ein Kombifeld namens C3 per VBA zur Zelle C3 (linke obere Ecke Feld an linke obere Ecke Zelle) bewegen? Wenn ja - wie?
Gruß&Dank
Peter
06.01.2006 11:06:51
Thread-ID: 715812
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
7
1
3
2
1
1
1
2
2
1
6
2
8
4
2
2
5
5
4
2
4
8
12
2