VBA: Anzahl der Zeilen einer Textbox prüfen?

Computer: Software & Programmierung Visual Basic
#1

Hi,
wie kann ich Exit-Ereignis prüfen, wieviele Zeilen in einer Textbox (multiline = true und word wrap = true) beschrieben sind?
Danke und Gruss
Wilhelm

#2

Hi,

hab eine Textbox1 und ein Label1 zum Anzeigen
in Button1 steht folgendes

Me.TextBox1.SetFocus
Label1.Caption = Str(Me.TextBox1.LineCount)

offensichtlich muss man vorher kurz den Focus draufsetzen sonst
funzt das nicht. andere Möglichkeit sehe ich grad nicht.

Alex

#3

Probier das hier:

Private Sub Text1\_LostFocus()
 Dim intPos As Integer
 Dim intRows As Integer

 intPos = 1
 intRows = 0

 'CR LF suchen
 If InStr(1, Text1.Text, vbCrLf) \> 0 Then
 'solange die letzte Zeile nicht gefunden wurde
 'weiter suchen
 While InStr(intPos, Text1.Text, vbCrLf) \> 0
 intPos = InStr(intPos, Text1.Text, vbCrLf) + 1
 intRows = intRows + 1 

 'letztes CR LF gefunden, aber es folgt noch Text
 'in der nächsten Zeile (ohne CR LF am Ende)
 If InStr(intPos, Text1.Text, vbCrLf) = 0 Then
 If intPos ""
 ElseIf Len(Text1.Text) \> 0 Then
 intRows = 1
 End If

 MsgBox intRows
End Sub

Gruß Andreas

#4

… arrggghhh …

Text1.linecount

kannte ich auch nocht nicht, aber es funkt

#5

Danke für die Hilfe! owT Gruss Wilhelm

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]