Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum sortieren

Datum sortieren
16.04.2021 12:05:22
Werner
Hallo
habe eine Liste mit Terminen erstellt.
Nun soll nach erfolgter Eingabe in Spalte B die Daten in Zellen A3 Bis C12 automatisch nach den Datum in Spalte B (Aufsteigend) sortiert werden.
Die Spalte D wird automatisch berechnet.
Beispiel: in D3 steht 26.04.2021
in D4 steht 18.04.2021
Als Ergebnis soll dann 18.04.2021 oberhalb den 26.04.2021 stehen.
Die Spalten A3 bis A12 und C3 bis C12 müssen ach mit sortiert werden.
Habe die Datei unter
https://www.herber.de/bbs/user/145576.xlsm
hochgeladen.
Danke für euere Hilfe
Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum sortieren
16.04.2021 12:36:55
Werner
Hallo Namensvetter,
Code gehört ins Codemodul von Tabelle1. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B3:B12"), Target) Is Nothing Then
Sort.SortFields.Clear
Sort.SortFields.Add Key:=Range("B3:B12"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With Sort
.SetRange Range("A2:D12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub

Gruß Werner
AW: Datum sortieren
16.04.2021 18:45:00
Werner
Hallo Werner
Klappt prima.
Vielen Dank
Werner
Gerne u. Danke für die Rückmeldung. o.w.T.
16.04.2021 19:55:01
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige