Supportnet / Forum / Tabellenkalkulation

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

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

• Excel - Daten vergleichen und niedrigsten Wert markieren
• Bedingte Formatierung für mehrere Zellen
• 3 Zellen in Excel vergleichen kleinsten Wert in 4. Zelle auswerfen
• VBA + zellen vergleichen und rausschreiben