Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blöcke nach Datum sortieren

Blöcke nach Datum sortieren
04.12.2018 09:50:47
andreas
Hallo!
Ich bin mittels Google Suche auf einen Beitrag hier aus 2016 gestossen, "Blöcke nach Datum sortieren".
Nun glaube ich, dass das in diesem Beitrag angesprochene Problem meinem sehr nahe kommt.
Ich habe eine Liste mit "Blöcken"(verbundene Zellen), orange hervorgehoben eine Zelle, in der ein Datum steht.
Nun soll der gesamte "Block" nach diesem Datum aufwärts(älteres oben, Zukunft unten...) sortiert werden.
Wenn man die Datei sieht, ist glaube ich, alles klar.
Wollte meine Feundin unterstützen, aber mein eingerostetes HTML,PHP,Javascript,CSS und ActionScript bringt da nix.. :-)
Hier die Datei:
https://www.herber.de/bbs/user/125863.xlsm
Liebe Grüße aus Wien,
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Blöcke nach Datum sortieren
04.12.2018 10:54:35
Daniel
Hi
nicht so ganz einfach.
zum sortieren bräuchtest du das Datum in einer Spalte in allen Zellen des Blockes, da Excel nur zeilenweise sortiert.
Das ganze scheitert dann aber an den verbundenen Zellen, die Excel so nicht sortieren kann, da die Gefahr besteht, dass der Zellverbund auseinander gerissen wird.
ein möglicher Workaround wäre, den Blöcke zu auszuschneiden und in er richtigen Reihenfolge wieder einzufügen.
Sub Blöcke_Sortieren()
Dim i As Long
Dim Zelle As Range
Dim SuchBereich As Range
Dim KopierBereich As Range
Dim Zeileab As Long
Zeileab = 3
For i = 1 To WorksheetFunction.Count(Columns(2))
Set SuchBereich = Range(Cells(Zeileab, 2), Cells(Rows.Count, 2).End(xlUp))
Set Zelle = SuchBereich.Find(what:=CDate(WorksheetFunction.Max(SuchBereich)))
Set KopierBereich = Zelle.Offset(-1, 0).Resize(5).EntireRow
KopierBereich.Copy
Rows(3).Insert shift:=xlDown
KopierBereich.Delete
Zeileab = Zeileab + 5
Next
End Sub
Gruß Daniel
Anzeige
AW: 2 Sheets
04.12.2018 11:39:25
Fennek
Hallo,
nicht ganz so effizient wie Daniel's Code:

Sub T_1()
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
Dim RNG As Range
Dim R As String
With Cells
Set RNG = .Find("OP-Datum", , xlValues, xlWhole)
Anf = RNG.Address
Do
'Debug.Print RNG.Offset(1).Value, Anf, RNG.Address
R = R & RNG.Offset(1).Address & ","
Set RNG = .FindNext(RNG)
Loop Until RNG.Address = Anf
End With
R = Left(R, Len(R) - 1)
Debug.Print R
With Sheets(2)
.Cells.Clear
For Each c In Range(R).Areas
i = i + 1
Sheets(2).Cells(i, 1) = c.Address
Sheets(2).Cells(i, 2) = c.Value
Next c
With .Range("A1").CurrentRegion
.Sort .Cells(1, 2), 2
End With
Ar = Application.Transpose(.UsedRange.Columns(1))
R = Join(Ar, ",")
.Cells.Clear
For Each c In Sheets(1).Range(R).Areas
c.CurrentRegion.Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(3)
Next c
End With
End Sub
mfg
Anzeige
AW: Blöcke nach Datum sortieren
04.12.2018 11:44:42
andreas
Hallo, Daniel!
So, wie du das gelöst hast, trifft es den Nagel der Lösung genau auf den Kopf.
Ich habe den Code eingefügt (anscheinend auch richtig... :-) ), Makro ausgeführt, und es funktioniert...
Dankeschön!

304 Forumthreads zu ähnlichen Themen

Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Anzeige
Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Anzeige
Pivot-Tabelle sortiert falsch
Ernst

Hallo
Ich habe eine Tabelle, die 406 Datensätze beinhaltet. Diese Datensätze zeigen die von 8 Mitarbeitern für ein Projekt geleisteten Arbeitsstunden.
Innerhalb des betreff. Projektes wurden diese Stunden für insgesamt 14 Pläne und dort für insgesamt 59 Vorgänge geleistet.
Dementsp...
06.01.2009 15:28:37
Thread-ID: 1037258
5 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
14
3
1
4
2
1
3
16
2
2
1
9
4
3
5
4
3
1
1
2
1
2
2