Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zellen nach min und max vergleichen





Frage

Hallo zusammen Ich könnte da mal ein professionelle Hilfe gebrauchen. Leider habe ich EXCEL nur Basic Wissen. Mein Problem ist folgendes: Ich muss mit einem Makro eine Tabelle (die Anzahl der Zellen muss Variabel bleiben) untereinander vergleichen und auf den darauffolgenden zwei freien Positionen jeweils das Maximum und in der nächsten das Minimum ausgeben. (Positiv und oder negativ Zahlen möglich). Verglichen soll aber jede Spalte einzeln werden. (A1 mit B1, C1, D1 usw / A2 mit B2,c2,D2 usw). Wen die Tabelle zum Beispiel bis F geht, soll bei G das Maximum und bei H das Minimum stehen. Die Länge der Tabelle muss ebenfalls Variabel sein. Ich bin für jede Hilfe sehr dankbar Mit freundlichem Gruss JURU

Antwort 1 von Beverly

Hi,

versuche es mit diesem Code

Sub vergleichen()
    Dim loZeile As Long
    Dim inSpalte As Integer
    Dim inLetzte As Integer
    inLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)
    For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
        Cells(loZeile, inLetzte + 1) = Application.Max(Range(Cells(loZeile, 1), Cells(loZeile, inLetzte)))
        Cells(loZeile, inLetzte + 2) = Application.Min(Range(Cells(loZeile, 1), Cells(loZeile, inLetzte)))
    Next loZeile
End Sub


Dabei wird davon ausgegangen, dass in allen Zeilen die Spaltenanzahl gleich ist.

Bis später,
Karin