Supportnet / Forum / Tabellenkalkulation
Werte innerhalb einer Zeile mittels Formel nach TOP sortieren
Frage
Hallo liebe Forenleser,
Ich habe eine Spalte (Tabelle 2 Spalte B) in der von oben nach unten bis zu 20 Werte stehen.
Diese werden aus einer anderen (Tabelle1) importiert.
Nun möchte ich diese Werte in der Tabelle 2 automatisch sortieren lassen. Dabei muss der höchste Wert oben und der niedrigste (kann auch 0 sein) unten stehen.
Was noch ein zusätzliches Problem ist, es müssen die Spalten A und C der Tabelle 2 mitsortiert werden.
Mit der Funktion: Daten> sortieren nach will ich es nicht jedes mal selber manuell machen müssen.
Hat da jemand eventuell einen Tipp oder sogar schon eine Formel?
Wenn ihr noch mehr Infos braucht, schreibt mir bitte.
Danke für Antworten
Gruß
Quickkick
Antwort 1 von coros
Moin Quickkick ,
nachfolgendes Makro sortiert Dir die Daten im Bereich B1:D20 nach Spalte B. Kopiere das Makro in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Soll ein anderer Bereich sortiert werden, so musst Du in dem Makro in der Zeile
Range("B1:D20").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
den Bereich B1:D20 abändern. Soll nach einer anderen Spalte sortiert werden, so muss die Zellebezeichnung B1 in selbiger Codezeile abgeändert werden. Bei beiden beiden gilt aber, die Bereichs- bzw. Zellenbezeichnungen müssen zwischen den Anführungsstrichen ("") stehen, also diese nicht löschen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgendes Makro sortiert Dir die Daten im Bereich B1:D20 nach Spalte B. Kopiere das Makro in ein StandardModul und weise es einer Befehlsschaltfläche zu.
Option Explicit
Sub Sortieren()
Range("B1:D20").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End SubSoll ein anderer Bereich sortiert werden, so musst Du in dem Makro in der Zeile
Range("B1:D20").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
den Bereich B1:D20 abändern. Soll nach einer anderen Spalte sortiert werden, so muss die Zellebezeichnung B1 in selbiger Codezeile abgeändert werden. Bei beiden beiden gilt aber, die Bereichs- bzw. Zellenbezeichnungen müssen zwischen den Anführungsstrichen ("") stehen, also diese nicht löschen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Quickkick
Hallo Coros,
ich bedanke mich sehr! Schnelle und Kompetente Antwort.
Deine Formel hat super geklappt. Dank der Verlinkung auf deine HP war das alles dann nur noch ein Kinderspiel. Ohne deine Hilfe wäre ich nie so weit gekommen.
Das Forum ist sehr zu empfehlen und zählt zu meinen Top Favoriten.
Danke
ich bedanke mich sehr! Schnelle und Kompetente Antwort.
Deine Formel hat super geklappt. Dank der Verlinkung auf deine HP war das alles dann nur noch ein Kinderspiel. Ohne deine Hilfe wäre ich nie so weit gekommen.
Das Forum ist sehr zu empfehlen und zählt zu meinen Top Favoriten.
Danke