Automatische Sortierung | Herbers Excel-Forum

Hallo Excel-Freunde,
ich habe eine Frage zur Sortierung. wie kann ich es hinbekommen das eine bestimmte Spalte immer von A-Z sortiert wird?
Als Beispiel:
In Spalte A stehen Voramen und Spalte B Namen:
Albert
Jürgen
Klaus
Willi
u.s.w Sobald ein neuer Name hinzugefügt wird soll automatisch wieder direkt sortiert werden. z.b. wird dann unter Willi, Bert eingetragen. Bert müsste dann ja unter Albert. Ohne das man jedes mal auf Daten - Sortierung u.s.w gehen muss. Ist das möglich?
Die Spalte B soll dann direkt mitsortiert werden.(Dort stehen die dazugehörigen Namen) sollen passend zum Vornamen mitgenommen werden.
Danke im voraus für Hilfe. Werden in der nächsten Zeit wohl noch einige Fragen kommen ;).
Gruß
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("A5:B52") Set RaBereich = Intersect(RaBereich, Range(Target.Address)) If RaBereich Is Nothing Then Exit Sub Range("A5:B52").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Set RaBereich = Nothing End Sub

Hatte auch schon eine andere SAche von dir gefunden und zwar diese:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A5:B52")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
Range("A5:B52").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set RaBereich = Nothing
End Sub

Hatte Sie für meinen Bereich schon angepasst.
Nun habe ich mir mal das File von dir angeschaut für meine Geschickte würde ich sagen ist es dieser Codeschnipsel:
Sub Sortieren()
'**************************************************
'* H. Ziplies *
'* 29.05.07 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/ *
'**************************************************
' Register sortieren
Dim WsW As Worksheet ' Variable für Tabelle
Dim InI As Integer ' Schleifenvariable
Dim InJ As Integer ' Schleifenvariable
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
Set WsW = ActiveSheet ' aktuelle Tabelle auf Variable schreiben
For InI = 1 To ActiveWorkbook.Worksheets.Count
For InJ = InI To ActiveWorkbook.Worksheets.Count
If Worksheets(InJ).Name < Worksheets(InI).Name Then
Worksheets(InJ).Move Before:=Worksheets(InI)
End If
Next InJ
Next InI
WsW.Activate ' Tabelle selektieren, die beim Start des Makro aktiv war
Set WsW = Nothing ' Variable leeren
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
End Sub Wo muss ich aber dort eingeben welche Bereiche er sortieren soll. Also mein A5:B52
Da bin ich als Makro-Noob etwas überfordert.

Beliebteste Forumthreads (12 Monate)

Automatische Sortierung | Herbers Excel-Forum

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread