Thema Datum  Von Nutzer Rating
Antwort
18.12.2015 21:07:25 Gast70372
Solved
18.12.2015 22:18:54 Gast43027
NotSolved
18.12.2015 22:48:43 Gast55070
NotSolved
18.12.2015 22:26:50 BigBen
NotSolved
19.12.2015 00:12:16 Gast77619
NotSolved
19.12.2015 09:58:31 Gast72513
NotSolved
19.12.2015 11:34:42 Gast46084
NotSolved
19.12.2015 11:56:30 Gast38143
NotSolved
Rot Userform Textbox Zeilenanzahl festlegen
19.12.2015 12:36:56 Gast26339
Solved
19.12.2015 14:45:50 Gast99883
NotSolved

Ansicht des Beitrags:
Von:
Gast26339
Datum:
19.12.2015 12:36:56
Views:
769
Rating: Antwort:
 Nein
Thema:
Userform Textbox Zeilenanzahl festlegen

Hallo Anna! Na das mit dem -2 klappt nur bedingt. Jetzt nimmst du, falls kein enter gedrückt wurde auch das letzte Zeichen in Zeile 3 weg. DAs klingt am Zeilenumbruch - der setzt sich aus 2 Zeichen zusammen. Habe den Code mal angepasst. Jetzt werden auch die Zeilenumbrüche behoben und du solltest auch auf die 4 Zeile nicht mehr hinkommen. Probier mal ob das klappt. Gruß

 

Private Sub TextBox1_Change()
Dim test As String

While Me.TextBox1.CurLine > 2
test = Me.TextBox1.Text
If Right(test, 1) = Chr(10) Then
    test = Left(test, Len(test) - 2)
Else
    test = Left(test, Len(test) - 1)
End If
Me.TextBox1.Text = test
Wend
test = Me.TextBox1.Text
If Me.TextBox1.CurLine = 2 And Right(test, 1) = Chr(10) Then Me.TextBox1.Text = Left(test, Len(test) - 2)
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.12.2015 21:07:25 Gast70372
Solved
18.12.2015 22:18:54 Gast43027
NotSolved
18.12.2015 22:48:43 Gast55070
NotSolved
18.12.2015 22:26:50 BigBen
NotSolved
19.12.2015 00:12:16 Gast77619
NotSolved
19.12.2015 09:58:31 Gast72513
NotSolved
19.12.2015 11:34:42 Gast46084
NotSolved
19.12.2015 11:56:30 Gast38143
NotSolved
Rot Userform Textbox Zeilenanzahl festlegen
19.12.2015 12:36:56 Gast26339
Solved
19.12.2015 14:45:50 Gast99883
NotSolved