Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Längsten Eintrag finden

Längsten Eintrag finden
13.09.2004 17:28:52
Thomas
Hallo,
wie kann ich aus einer Text - Spalte den Eintrag mit den meisten
Zeichen finden ?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Längsten Eintrag finden
th.heinrich
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
AW: Längsten Eintrag finden
13.09.2004 17:58:19
Thomas
Danke für die schnelle Hilfe!
Genau das habe ich gesucht :-)
Ohne Hilfsspalte... :-)
Ramses
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
Anzeige
AW: Ohne Hilfsspalte... :-) ? ;-)))
th.heinrich
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
AW: Längsten Eintrag finden
13.09.2004 18:18:41
Peter
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


Gruß Peter
Anzeige
AW: Längsten Eintrag finden
yps
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige