Spaltensortieren als Makro

Hallo,
ich bastele an einer Geburtstagsdaten - Sortierung meiner Tabelle.
Zur Erklärung:
ich habe eine Tabelle in der pro Zeile ein Kunde steht mit unzähligen Informationen.
Unter anderem in Spalte "BK" das Geburtsdatum und in Spalte "BL" der anstehende Geburtstag als Zahl
( z.B. in "BK" = 15.März.1970 und in "BL" = 38 )
Die gesamte Tabelle nach dem Alter in Spalte "BL" aufsteigend zu sortieren ist ja kein Problem.
Aber :
wie muß ich sortieren, dass das Geburtsdatum in Spalte "BK" welches vom aktuellen Datum an gesehen
als nächstes ansteht und so weiter... an oberster Stelle steht.
( z.B. nach dem sortieren sollte in Spalte "BK" der 15.März.1970 vor dem 16.März.1969 stehen, hingegen der 14.Febuar.1970 an letzter Stelle, da heute der 15.Febuar ist )
Außerdem muß die Sortierung auf die gesamte angezeigte Tabelle wirken ( um Name und Anschrift in anderen Spalten zu sehen ).
Als Hinweis:
durch eine vorherige Sortierung mittels Autofilter ( zuständiger Betreuer ) sind die Zeilen nicht fortlaufend
( 1 bis 350 ).
Es wäre mir am liebsten als Makro, dann kann ich es mit einer Schaltfläche verknüpfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo rupi, ähnlich wie Dieter biete ich Dir auch eine Formel an:
=WENN(DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2))<=HEUTE();DATUM(JAHR(HEUTE())+1;MONAT(B2);TAG(B2)); DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2)))
(in B2 steht der Geburtstag)
Ergebnis ist der nächste Geburtstag, der ansteht. Das in einer Zusatzspalte lässt sich gut sortieren.
Kannst natürlich auch folgende Formel in die Altersspalte schreiben:
=(WENN(DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2))<=HEUTE();DATUM(JAHR(HEUTE())+1;MONAT(B2);TAG(B2)); DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2)))-HEUTE())+(JAHR(WENN(DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2)) <=HEUTE();DATUM(JAHR(HEUTE())+1;MONAT(B2);TAG(B2));DATUM(JAHR(HEUTE());MONAT(B2);TAG(B2)))) -JAHR(B2)) /100
Als Zahl formatiert hast Du vor dem Komma die Tage bis zum nächsten Geburtstag (sortierfähig!) und nach dem Komma das dann erreichte Alter (fehlerhaft für Jopi Heesters).
Eine Makro-Sortier-Lösung muss mit dem Problem umgehen, dass Jahr und Tag sich im Datum "verstecken", daher arbeitet das unten gepostete Makro mit 1. Sortieren und 2. Zeilen tauschen.
Gruß, Wolli

Sub Sortieren_Geburtstag() d = DateDiff("d", "1.1." + Right(Date, 4), Date) + 1 lz = Range("BL65336").End(xlUp).Row Rows("1:" + CStr(lz)).Select Selection.Sort Key1:=Range("BL1"), Order1:=xlAscending, Header:=xlNo, Orientation:= _ xlTopToBottom For i = 1 To lz If Cells(i, 64) >= d Then Exit For Next i If i > 1 And i

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread