Größte Werte suchen bei Text?!

Tomy · 2006-03-17T20:57:38+00:00

Hallo Zusammen, ich muss mir meine Daten mal ein wenig bearbeiten und brauche da eine Funktion, die mir immer sagen kann, welches von den Werten, die unten stehen, der größte ist. GJ 2002/2003 GJ 2003/2004 GJ 2004/2005 GJ 2005/2006 Es kommen immer diese Werte vor(also zumindest in dieser Schreibweise), aber man kann nicht genau sagen, ob auch alle immer da sind. Gibt es da ne Möglichkeit? Mit max, maxa, kgrößte klappt es schonmal nicht. Würd mich freuen, wenn einer von euch ne Lösung hätte. Ach so "Text in Spalten" ist schlecht, bräuchte die Werte so! Und es sind so ca 25.000, so dass ich die nicht eben mal alle trennen und wieder zusammenfügen möchte ;-) Danke. Gruss Tomy

Hallo
Meinst du so

	A	B	C
1	GJ 2002/2003	FALSCH
2	GJ 2003/2004	FALSCH
3	GJ 2004/2005	FALSCH
4	GJ 2005/2006	WAHR
5
6
7
8	GJ 2002/2003
9	GJ 2003/2004
10	GJ 2004/2005
11	GJ 2005/2006
12

Formeln der Tabelle

B1 : =check_max_year(A1;$A$1:$A$4)
B2 : =check_max_year(A2;$A$1:$A$4)
B3 : =check_max_year(A3;$A$1:$A$4)
B4 : =check_max_year(A4;$A$1:$A$4)

Bedingte Formatierungen der Tabelle

Zelle	Nr.: / Bedingung	Format
A8	1. / Formel ist =check_max_year(A8;$A$8:$A$11)=WAHR	Abc
A9	1. / Formel ist =check_max_year(A9;$A$8:$A$11)=WAHR	Abc
A10	1. / Formel ist =check_max_year(A10;$A$8:$A$11)=WAHR	Abc
A11	1. / Formel ist =check_max_year(A11;$A$8:$A$11)=WAHR	Abc

Dazu brauchst du diese beiden Funktionen die in einem Modul deiner Tabelle stehen
Function Check_Max_Year(myTar As Range, chkRange As Range) As Boolean
    Dim tmp As Variant
    tmp = Val(Replace(Right(myTar.Value, Len(myTar.Value) - InStr(1, myTar.Value, " ")), "/", "", 1))
    If Check_Max_Range(Val(tmp), chkRange) Then
        Check_Max_Year = True
    Else
        Check_Max_Year = False
    End If
End Function

Function Check_Max_Range(myCheck As Double, chkRange As Range) As Boolean
    Dim myC As Range
    Dim tmp As Double
    For Each myC In chkRange
        If myCheck < Val(Replace(Right(myC.Value, Len(myC.Value) - InStr(1, myC.Value, " ")), "/", "", 1)) Then
            Check_Max_Range = False
            Exit Function
        End If
    Next
    Check_Max_Range = True
End Function

Gruss Rainer

Servus,
hier eine Option wie du das ganze aus VBA heraus lösen kannst, aber auch als Excel Function.

'#  Ort:    Modul
Option Explicit
Private Function GetMax_Num(ByVal Bereich As Range, Optional Text As Boolean) As Variant
    Dim rng As Range, rngGef As Range
    Dim dblMax As Double
    For Each rng In Bereich
        If --Right(rng.Text, 4) > dblMax Then
            dblMax = --Right(rng.Text, 4)
            If Not rngGef Is Nothing Then Set rngGef = Nothing
            Set rngGef = rng
        End If
        If --Mid(rng.Text, 4, 4) > dblMax Then
            dblMax = --Mid(rng.Text, 4, 4)
            If Not rngGef Is Nothing Then Set rngGef = Nothing
            Set rngGef = rng
        End If
    Next
    If Text Then GetMax_Num = rngGef.Text Else: GetMax_Num = dblMax
End Function
'Aufruf aus VBA herraus
Sub test()
MsgBox GetMax_Num(Sheets("Tabelle1").Range("A1:A5"), True)
End Sub
'oder aus Excel heraus

Tabelle1

	A	B
1	GJ 2002/2003	GJ 2009/2007
2	GJ 2003/2008	2009
3	GJ 2004/2005
4	GJ 2005/2006
5	GJ 2009/2007

Formeln der Tabelle

B1 : =GetMax_Num(A1:A5;WAHR)
B2 : =GetMax_Num(A1:A5;)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
MfG Peter

Forumthread: Größte Werte suchen bei Text?!

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Größte Werte in Excel finden: Text mit Jahreszahlen analysieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)