Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon JURU vom 04.01.2020, 23:25 Options
Zellen nach min und max vergleichen
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
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 vom 05.01.2020, 11:11 Options
Hi,
versuche es mit diesem Code
Dabei wird davon ausgegangen, dass in allen Zeilen die Spaltenanzahl gleich ist.
Bis später,
Karin
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
Ähnliche Themen
Excel - Daten vergleichen und niedrigsten Wert markieren
Racerking33 11.04.2007 - 355 Hits - 1 Antwort
Bedingte Formatierung für mehrere Zellen
harvey10 27.04.2007 - 246 Hits - 8 Antworten
3 Zellen in Excel vergleichen kleinsten Wert in 4. Zelle auswerfen
weimi 31.08.2007 - 92 Hits - 13 Antworten
VBA + zellen vergleichen und rausschreiben
seebaer_1 26.02.2008 - 133 Hits - 9 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
