Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1308to1312
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
Inhaltsverzeichnis

Fontgröße in Textbox je nach Zeichenzahl anpassen

Fontgröße in Textbox je nach Zeichenzahl anpassen
26.04.2013 15:55:58
Peter
Hallo,
ich hab da noch ein Problem mit einer Textbox.
Die Textboxen werdem mittels einer Listbox gefüllt.
Es ist erforderlich, dass in einer Textbox die Schriftgrösse autom. je nach
Zeichenzahl angepasst wird.
Bitte entschuldigtdie schreibweise von (kleiner/gleich).Ich muß noch auf die
Suche nach einen pass. Programm gehen um den VBA Code einzufügen.
Wer kann helfen?
Danke im voraus
Peter
For Each oleObj In wks.OLEObjects
With oleObj
If TypeName(.Object) = "TextBox" Then
If .Name Like "txtZuname*" Then .Object.Text = UCase(Trim$(Left(Dat.Cells(lstMultiCol.ListIndex + 3, 5), InStr(1, Datdat.Cells(lstMultiCol.ListIndex + 3, 5), ",") - 1)))
Hier tritt der Fehler auf:
Select Case Len(.Name("txtZuname90").Text)
Case Is (kleiner/gleich) 10: .Object.Text.Font.Size = 36
Case Is (kleiner/gleich) 12: .Object.Text.Font.Size = 30
End Select

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fontgröße in Textbox je nach Zeichenzahl anpassen
26.04.2013 16:45:03
hary
Moin Peter
sollte es nicht so sein?
Select Case Len(txtZuname90.Text)

gruss hary

OT: größer und kleiner als eingeben…
26.04.2013 17:45:54
Sheldon
Hi Peter,
Zeichen, die auch für HTML-Codierung Verwendung finden wie u.a. Größer als, Kleiner als, müssen maskiert werden.
> = >
< = &lt;
& = &amp;
Gruß
Sheldon
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige