Clever-Excel-Forum

Normale Version: Automatische Sortierung einzelner Spalten wenn Bedingung erfüllt
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Liebe Excel-Profis,

ich würde gern Zeilen automatisch sortieren bzw. verschieben lassen, wenn eine Bedingung erfüllt ist.
Siehe Anhang:
Wenn in den Spalten D oder E ein x steht, sollen die jeweiligen Spalten sich nach oben verschieben und die Zeilen wo KEIN x in den Spalten D oder E stehen, sollen unten bleiben. Geht das vllt ohne VBA? Hatte da an =BEREICH.VERSCHIEBEN gedacht. Allerdings sehe ich da nicht durch. 20 Wer kann mir helfen?

Danke Euch und bleibt gesund
Stefan
Moin!
Ohne VBA ginge es nur (redundant) mittels SORTIEREN()
Aber dafür ist Dein Excel viel zu alt.  21

Gruß Ralf
Juten Tach, ;)

vielen Dank für die schnelle Antwort!
Das is ja doof! Schade, aber nen neues Excel wird´s vorerst so schnell nicht geben...Dann muss ich´s erstmal so lassen und mich langsam an VBA rantasten...

Gruß!
Du könntest natürlich auch (manuell) nach einer Hilfsspalte sortieren, Stefan.
Ich persönlich finde es auch etwas suspekt, Zelländerungen in eine automatische Sortierung zu überführen.
Ich käme da durcheinander …  21 19
Hallöchen,

bereich.verschieben würde Deine Originalliste nicht sortieren sondern, sofern es ginge, an einer anderen Stelle ausgeben. Es gibt aber noch eine anderen "Sortierfunktion" Die würde allerdings neben dem X noch eine Zahl erfordern Sad Im Prinzip wie unten. Rechts trägst Du Deine Markierung ein, links wird dann die Sortiereihenfolge ermittelt und die Formel aus dem Link bringt Dir ohne weitere Aktion die Sortierung irgendwo hin.
Kannst natürlich auch gleich nach dieser Hilfsspalte sortieren, Ralf schrieb das ja schon ...  Smile

Siehe dort: Mehrzeilige_Datensaetze_sortieren


Arbeitsblatt mit dem Namen 'Tabelle1'
ABCDE
1SortWerWasWoMark
2x002ADeLex
3z003CaNaBis
4x004CoRoNax

ZelleFormel
A2=WENN(E2="x";E2&TEXT(ZEILE();"000");"z"&TEXT(ZEILE();"000"))
A3=WENN(E3="x";E3&TEXT(ZEILE();"000");"z"&TEXT(ZEILE();"000"))
A4=WENN(E4="x";E4&TEXT(ZEILE();"000");"z"&TEXT(ZEILE();"000"))
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg
Cool, Danke! Probiere ich am Montag gleich mal aus. Nice WE und bleib gesund

hehe, danke für den Tipp mit der Hilfsspalte. Probiere es mal am Montag, Nice WE und bleib gesund