Office: Textbox, Zeilenanzahl und Zeichen pro Zeile begrenzen/überwachen

Sorry Leute,

ich hab das alte Thema geschlossen und mache es nochmal neu auf, weil meine Themenüberschrifft schlecht war (hatte mich total vertan) und ich diese nicht ändern konnte.

Ich versuche mein Problem jetzt vielleicht auch etwas besser zu erklären.

Ich habe eine userform erstellt, wo es Textboxen gibt, bei denen die Zeilenanzahl auf 5 begrenzt werden soll und jede Zeile 59 Zeichen haben darf.

Sollte eine der Begrenzungen bei der Eingabe überschritten werden, soll sich die Farbe der Textbox ändern.

Gedacht hatte ich mir das so:

PHP:

         Private Sub TextBox1_Change()
If TextBox1.TextLength > 59 Or TextBox1.LineCount > 5 Then TextBox1.BackColor = RGB(255, 0, 0) Else TextBox1.BackColor = RGB(255, 255, 255)

End Sub


:)

 

Hallo,

ich habe gerade mal auf die Schnelle mit einer Bedingung getestet:
Code:

Das funktioniert einwandfrei, nachdem mehr als 5 Zeichen eingegeben wurden.

Gruß
Aloys

 

Hallo mikelsun,

versuche doch einen Ansatz in diese Richtung:

PHP:

         Private Function Text_Passt(strText As String) As Boolean
Dim strArr() As String
Dim varZeile As Variant

strArr = Split(strText, Chr(10)) 'Textzeilen trennen'

Text_Passt = (UBound(strArr()) < 5) 'Prüfen ob mehr als 5 Zeilen vorhanden (Array fängt bei nullter Zeile an)'

If Text_Passt Then
For Each varZeile In strArr 'die einzelnen Zeilen durchgehen'
If Len(varZeile) > 59 Then 'Wenn Zeile länger als 59, dann "falsch" und bricht ab'
Text_Passt = False
Exit Function
End If
Next varZeile
End If

End Function


 

Hallo,
leider bin ich mit diesen Ansätzen auch nicht zu einer perfekten Lösung gekommen, es scheint aber nicht wirklich möglich zu sein jede einzelne Zeile zu überwachen.
Egal, ich habe für mich eine brauchbare Lösung gefunden und setzte diese ein.
Nun ergab sich ein neues Problem und nun weiß ich nicht ob ich ein neues Thema auf machen soll, oder nicht.
Ich poste es einfach noch mal hier und wenn es falsch ist wird man es mir bestimmt sagen.
Ich nutze nun den code:

PHP:

         Private Sub TextBox62_Change()
Dim varS As String
varS = 62
If TextBox62.TextLength > 235 Or TextBox62.LineCount > 5 Then fehler (varS) Else TextBox62.BackColor = RGB(255, 255, 255)
End Sub


 

Doch, geht schon und vermeidet auch den bei LineCount auftretenden Fehler: Code:

 

Hallo mikelsun,

binde meine Funktion (s.o.) doch einfach mal in deinen Code ein:

PHP:

         Private Sub TextBox62_Change()
Dim varS As String
varS = 62

If Text_Passt(TextBox62.text) then
fehler (varS)
Else
TextBox62.BackColor = RGB(255, 255, 255)
end if

End Sub


 

Vielen Dank an David und haklesoft!!
Im zweiten Anlauf hab ich es jetzt hinbekommen!!
Vielen lieben Dank für eure Lösungen!!

Gruß

mikelsun