Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Längsten Eintrag finden

Betrifft: Längsten Eintrag finden von: Thomas
Geschrieben am: 13.09.2004 17:28:52

Hallo,
wie kann ich aus einer Text - Spalte den Eintrag mit den meisten
Zeichen finden ?

  


Betrifft: AW: Längsten Eintrag finden von: th.heinrich
Geschrieben am: 13.09.2004 17:52:04

hallo auch Thomas,

mit einer HILFSSPALTE in der z.b. in B1 =LÄNGE(A1), diese FORMEL runterkopieren.
mit der BEDINGTEN FORMATIERUNG- FORMEL IST =B1=MAX($B$1:$B$10) kannst Du dab MAXIMUM noch hervorheben.

gruss thomas


  


Betrifft: AW: Längsten Eintrag finden von: Thomas
Geschrieben am: 13.09.2004 17:58:19

Danke für die schnelle Hilfe!
Genau das habe ich gesucht :-)


  


Betrifft: Ohne Hilfsspalte... :-) von: Ramses
Geschrieben am: 13.09.2004 18:16:51

Hallo thomas

hinterher ist es immer einfacher ;-)

Tabelle1
 ABC
1Mustermann11 
2m  
3Mustermann1  
4   
Formeln der Tabelle
B1 : {=MAX(LÄNGE(A1:A4))}
 




"Ctrl"+"Shift"+"Enter" nicht vergessen .-)

Gruss Rainer


  


Betrifft: AW: Ohne Hilfsspalte... :-) ?? ;-))) von: th.heinrich
Geschrieben am: 13.09.2004 18:26:49

hallo Rainer,

weis nicht ob Thomas das so haben will, mit der BEDINGTEN FORMATIERUNG sieht er die ZEILE mit MAXIMALER LÄNGE. koennet mir auch noch vorstellen, dass mit =ZEILE od. =ADRESSE was machbar ist, aber ich begebe mich nun erstmal auf meinen wohlverdienten heimweg.

gruss thomas


  


Betrifft: AW: Längsten Eintrag finden von: Peter Feustel
Geschrieben am: 13.09.2004 18:18:41

Hallo Thomas,

hier eine Lösung als Makro:



'
'   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

     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Peter


  


Betrifft: AW: Längsten Eintrag finden von: yps
Geschrieben am: 13.09.2004 20:02:09

hi Peter,
das ganze mal kürzer ;-)

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


cu Micha


 

Beiträge aus den Excel-Beispielen zum Thema "Längsten Eintrag finden"