Office: Auf knopfdruck Alphabetisch sortieren

Hallo Leute,

habe folgendes Problem:

Ich habe einen Tabellenbereich, von B5 bis F Irgendwas.

In B5 beginnt die Abfrage mit dem Namen, in C5 Adresse, in D5 Geburtsdatum E5 Telefonnummer F6 Krankheiten.

Nun habe ich die Zeile 5 komlett ausgefüllt, als beispiel ist der Name Martha. Nun gebe ich in Zeile 6 den Namen Albert ein. Sobald ich das Feld F6 ausgefüllt habe, soll mir Excel erkennen das die Eingabe stattgefunden hat und mir die Spalte B alphabetisch sortieren.

Vielen Dank für Eure Hilfe

 

Es wäre sicherlich möglich, das mit ein wenig VBA hinzukriegen, aber ich bezweifle, daß es Dir dann wirklich gefallen würde.

Effekt: Nachdem F6 ausgefüllt ist, wird die Liste sortiert, Der neue Name steht plötzlich irgendwo anders in der Liste und der Cursor... Hm, naja...

Ok, man könnte nach dem Sortieren auch noch die Liste durchsuchen, um den Wert zu finden, der gerade eben frisch eingetragen wurde.

Problematisch wird's dann vielleicht noch, wenn nicht ein neuer Eintrag gemacht wurde, sondern ein bestehender geändert wurde und sich dadurch die Position der Zeile ändert.

In jedem Fall wird's etwas haarig, wenn zwei gleiche Werte erzeugt werden, weil dann die Positionierung des Cursors nach der Sortierung nicht eindeutig vorzunehmen wäre.

Ich würde Dir empfehlen: Lieber nicht die Liste automatisch nach Eingabe sortieren lassen, sondern einen kleinen Button erzeugen, mit dem die Liste "bei Bedarf" durchsortiert werden kann. Und das läßt sich eigentlich schon recht gut über den Makro-Rekorder erledigen.

Gruß, Michael

 

Effekt: Nachdem F6 ausgefüllt ist, wird die Liste
sortiert, Der neue Name steht plötzlich irgendwo
anders in der Liste und der Cursor... Hm, naja...


Das würde mich nicht sonderlich stören!

 

Ok, here it goes...

Ich habe mal folgendes gebastelt:

a) Arbeitsmappe mit Arbeitsblatt "Tabelle1"
b) Bereich F4..J4 mit den Werten "Name", "Vorname", "Straße", "Postlz." und "Ort" gefüllt, Schrift auf "fett", Rahmen "unten" und "Autofilter" gesetzt
c) Ein paar Spieldaten in die Liste ab F5 eingetragen
d) Cursor irgendwo, nur nicht auf F4, platziert, dann Makro-Aufzeichnung gestartet, Name "ListeSortieren" vergeben und...
- Cursor per Maus auf F4 gesetzt
- Menü "Daten - Sortieren...", dort "Name", "Vorname" und "Ort" jeweils "aufsteigend" eingestellt, "OK" gedrückt
- Makro-Aufzeichnung beendet

Damit war das grundlegende Werkzeug vorhanden. Mittels Alt-F11 kann man im VBA-Editor sehen, daß neben "DieseArbeitsmappe" und "Tabelle1 (Tabelle1)" noch ein "Modul1" dazugekommen ist. Ein Doppelklick darauf ergibt (gekürzt):

Code:

Sub ListeSortieren()

    Range("F4").Select
    Selection.Sort Key1:=Range("F5"), Order1:=xlAscending, Key2:=Range("G5"), Order2:=xlAscending, Key3:=Range("J5"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Ein Doppelklick auf "Tabelle1 (Tabelle1)" und dort eingefügt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 6 And Target.Row >= 5 Then
        ListeSortieren
    End If

End Sub

et voila!

Gruß, Michael

 

Noch kurz die Anmerkung: Das Ding ist sehr, sehr, sehr "quick and dirty". Anpassungen sind dringendst angeraten. Aber hiermit hast Du zumindest schonmal eine Basis, denke ich mal so...

Gruß, Michael