Hi,

wenn ich dich richtig verstanden habe.

Klicke auf Spalte B so das sie komplett markiert ist. Dann auf Daten/Sortieren und gewünschtes auswählen.

Penorek

Hallo ettaler,

wie das manuell geht, hat Dir Penorek ja bereits gezeigt. Da Du aber geschrieben hast, dass Du das gerne automatisch haben möchtest, gehe ich davon aus, dass Dich die Lösung nicht zufrieden stellen wird. Diesen Automatismus muss man nur über VBA machen. Für eine Lösung fehlen aber Angaben zum Bereich, der sortiert werden soll und in welcher Zelle die Jahreszahl eingetragen wird. Wenn diesen Angaben vorhanden sind, kann man Dir auch ein Makro erstellen.

MfG,
Oliver
_{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.}

Hallo zusammen,
ja das manuelle kann ich. Wie gesagt wäre es mir lieber wenn es automatisch gehen würde. Hier die Angaben dazu:
Jahreszahl: B1
Sortiert werden soll es nach Spalte B Aufsteigend bis zu B58. Also dadurch auch Spalte A!

Die erste zeile sollte so stehen bleiben Sortiert soll also der Bereich B2-B58 mit A2-A58 werden. Wenn B1 geändert wurde!

Vielen Dank!

Hallo ettaler,

Dein Vorhaben sollte damit funktionieren

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Columns("A:B").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
End If
End Sub

Gruß
Rainer

Danke für das Makro, doch wenn ich es ausführen will wird mir immer Laufzeitfehler 1004 angezeigt und dass alle ausgewählten Zellen die gleiche Größe bruachen!

Hallo ettaler,

dann hast Du in Deiner Datei verbundene Zellen. Da VBA und verbundene Zelle spinne Fein sind, wird es schwer, Dir da ein Makro zu erarbeiten. Eventuell kann man da was machen, aber dazu müsste man Deine Datei sehen. Wenn es geht, lade doch mal Deine Datei bei www.netupload.de ins Internet hoch, dann kann man sich das mal ansehen.

MfG,
Oliver
_{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.}

Ich habe die Datei hochgeladen! Wäre nett wenn Du dir dass mal anschauen könntest!
Link:
http://www.netupload.de/detail.php?img=
900235910556cabe7780b489afbfea4f.xls

viele grüße!

^{Admininfo: achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool}