Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe folgendes Problem. Ich habe eine Tabell in der in Spalte A das Datum steht (für 365 Tage) und in Spalte B, C und D drei verschiedene Werte. (Wert1, Wert2 und Wert 3). Mit der max-Funktion ermittle ich den max-Wert für die jeweilige Spalte B, C und D, habe somit also 3 max-Werte. Nun möchte ich zu dem jeweiligen max-Wert das dazugehörige Datum ermitteln, um sehen zu könne, an welchen Tag der jeweilige max-Wert war. Ich habe es mit verweis und sverweis versucht, das klappt aber irgendwie nicht. Hat von euch jemand eine Idee?? Vielen Dank im voraus kaleun

Hallo,

hier gibt es verschiedene Lösungen. Zum Einen könnte man mit Bedingter Formatierung die Maximalwerte der verschiedenen Spalten farbig hinterlegen und somit in Spalte A das entsprechende Datum ablesen.

Zum Anderen kann man mit

=Max (B:B) den Maximalwert ermitteln und dann dazu das passende Datum, hierbei können natürlich Probleme auftreten, wenn das Maximum mehrmals vorkommt.

Diese Lösung wäre für die Übrigen Spalten ahnlich.

Es wäre eine etwas genauer Erläuterung oder eine Beispeltabelle für weitere Hilfe notwendig

Gruß

Helmut

Hallo kaleun,

Datum für Maxwert Spalte B
=INDEX(A:A;VERGLEICH(MAX(B:B);0))

Datum für Maxwert Spalte C
=INDEX(A:A;VERGLEICH(MAX(C:C);0))

Datum für Maxwert Spalte D
=INDEX(A:A;VERGLEICH(MAX(D:D);0))

Gruß
Rainer

Hallo,

die Lösung von @rainberg ist ok, jedoch beim mehrfachen auftreten des Maximums wird nur der erste Wert ermittelt (s.AW1).

Gruß

Helmut

Hallo kaleun,

sollten wirklich mehrfache Maximalwerte auftreten, würde ich den Spezialfilter verwenden.
Anbei eine gekürzte Liste mit einer Wertespalte als Lösungsansatz.

http://www.netupload.de/detail.php?img=87aec74961f2963ec442e9ca79c3...

Gruß
Rainer

Hallo kaleun,

zur gleichzeitigen Auswertung von 3 Spalten ist ein Makro einfacher als der Einsatz des Spezialfilters.

Option Explicit

Private Sub CommandButton1_Click()
   Dim rngC As Range, lngEnde As Long
   lngEnde = Cells(Rows.Count, 1).End(xlUp).Row
   For Each rngC In Range("B2:D" & lngEnde)
      Select Case rngC.Column
         Case Is = 2
            If rngC.Value = WorksheetFunction.Max(Range(Cells(1, 2), Cells(lngEnde, 2))) Then
               Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6) = rngC.Offset(0, -1).Value
            End If
         Case Is = 3
            If rngC.Value = WorksheetFunction.Max(Range(Cells(1, 3), Cells(lngEnde, 3))) Then
               Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = rngC.Offset(0, -2).Value
            End If
         Case Is = 4
            If rngC.Value = WorksheetFunction.Max(Range(Cells(1, 4), Cells(lngEnde, 4))) Then
               Cells(Cells(Rows.Count, 8).End(xlUp).Row + 1, 8) = rngC.Offset(0, -3).Value
            End If
      End Select
   Next
End Sub

Anbei die Testdatei
http://www.netupload.de/detail.php?img=930ba43efc1e3a7279c352d1f4d6...

Gruß
Rainer

• Zellen auffüllen!
• Durchschnittswwert ermitteln
• Excel Datum HEUTE Zeilen übernehmen
• Access Min max Abfrage