wie kann ich aus einer Text - Spalte den Eintrag mit den meisten
Zeichen finden ?
Tabelle1 | ||||||||||||||||||||||
| ||||||||||||||||||||||
'
' Texte stehen in Spalte A, die Suche beginnt in Zeile 1
'
Sub Laengster_Text()
Dim lZeile As Long ' For/Next Index
Dim lTZeile As Long ' Text-Zeilen Nummer
Dim iTLaenge As Integer ' Text Längen
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Len(Range("A" & lZeile).Value) > iTLaenge Then
iTLaenge = Len(Range("A" & lZeile).Value)
lTZeile = lZeile
End If
Next lZeile
MsgBox "der längste Text steht in Zeile " & lTZeile
End Sub
Sub laengste_finden()
Dim arr()
arr() = Range("A1:A100")
For i = LBound(arr()) To UBound(arr())
arr(i, 1) = Len(arr(i, 1))
Next i
MsgBox WorksheetFunction.Max(arr())
End Sub