Textformatierung Text-Boxen

Hallo zusammen!
Ich habe in meiner Excel-Datei auf verschiedenen Tabellenblätter Textboxen, die ich so verknüpft habe, dass wenn ich in der Box auf dem Deckblatt etwas eintrage, in den anderen Boxen eben dieser Text auch erscheint. Ich habe also stets in jeder Textbox das gleiche stehen.
Nun tritt aber folgender Effekt auf: Klicke ich auf die Master-Textbox (also die, in die ich Text eintrage), rückt der Text etwas zusammen, sodass, wenn ich die Textbox zunächst vollschreibe, nachher nicht der vollständige Text zu sehen ist, weil er ja dann wieder ins ursprüngliche Format zurückspringt und damit größer wird. Das würde ich gerne abstellen.
Ein weiterer Punkt ist, dass der Text in den anderen Boxen grau dargestellt wird. Das kommt daher, dass ich diese Boxen als gesperrt deklariert habe, damit niemand den Text verändern kann. Man soll den Text nur einmal auf dem ersten Blatt eingeben können und es soll sichergestellt sein, dass in allen Textboxen das selbe steht. Aber der Text sollte halt in allen Boxen schwarz sein.
Freu mich auf Eure Ideen! Viel Spaß beim Knobeln! :-)
Gruß
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(TextBox1) > 10 Then MsgBox "max. 10 Zeichen erlaubt!" KeyAscii = 0 Else Select Case KeyAscii Case 46, 48 To 57, 65 To 90, 97 To 122 Case Else MsgBox "Sonderzeichen und Umlaute nicht erlaubt!", vbCritical, "Ungültige Zeichen" KeyAscii = 0 End Select End If End Sub

Hi Franc,
danke für die schnelle Rückmeldung.
Das Phänomen der unterschiedlichen Schriftgröße trat bei mir auch erst später auf. Keine Ahnung wieso.
Dein Lösungsvorschlag für die Textbegrenzung trifft es leider nur bedingt. Meine Textboxen haben mehrere Zeilen und ich möchte gerne die Anzahl der verfügbaren Zeien begrenzen. Es kann ja sein, dass jemand insgesamt 100 Zeichen schreibt, aber dies entweder in einer Zeile tut, in 10 Zeilen zu je 10 Zeichen oder, im Extremfall, in 100 Zeilen zu je einem Zeichen. Ich möchte aber als einziges Kriterium die maximal Zeilenanzahl haben, unabhängig von der Zeichenanzahl pro Zeile. Ich habe die Box so eingestellt, dass sie MultiLine ist und Zeilenumbrüche automatisch einfügt.
Könnte man nicht einen Code schreiben, der die Anzahl der Zeilenumbrüche zählt? Dabei müsste man allerdings beachten, dass es ja automatische und manuelle Zeilenumbrüche gibt, deren jeweilige Anzahl durchaus variieren kann. Bin leider im Programmieren nicht wirklich fit.
Inwiefern unterscheidet sich denn Dein Vorschlag (von der Zeichensperrung mal abgesehen) von der Eigenschaft MaxLength?
Wie gesagt, andere hatten da auch keine Idee (was ich irgendwei komisch finde), aber ich habe trotz allem noch Hoffnung! ;-)
Schöne Grüße!
Peter

ich kenn keine Möglichkeit wie man die Zeilen aus einer Textbox ermitteln kann Eine Möglichkeit ist, das wenn die Zeilenumbrüche mit "shift + enter" eingefügt werden folgende damit teilt man bei jedem "Enter" den Text in ein array und sobald das array 10 werte = 10 _ Zeilen umfasst kommt zum Beispiel die msgbox oder was anderes. If UBound(Split(TextBox1.Value, Chr(13))) >= 10 Then MsgBox "max. 10 Zeilen erlaubt!" Schreibt man aber ganz normal weiter, dann wüßte ich nicht wie man die Zeilen rausbekommen soll.

Private Sub TextBox1_Change() Dim pgup As Boolean If Len(TextBox1) > 300 Or TextBox1.LineCount > 10 Then MsgBox "max. 300 Zeichen oder 10 Zeilen erlaubt!" SendKeys "{BKSP}" pgup = True End If If pgup = True Then SendKeys "{PGUP}" pgup = False End If TextBox2.Text = TextBox1 End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textformatierung Text-Boxen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread