Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten nach Datum zuordnen/sortieren

Daten nach Datum zuordnen/sortieren
25.05.2008 17:36:27
William
Hallo Experts
Habe Datei wo ich Anzahl bestimmte Ereignisse ein mal pro Monat , nach Monaten sortiere (manuell)
Die Datei hat 24 Tabellenblätter = 24 Monate angefangen mit Jan 07 - bis Dez 08
Kann man das Automatisieren -mit einem Klick?
ist das irgend wie machbar?VBA?
Danke

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten nach Datum zuordnen/sortieren
25.05.2008 17:46:00
Daniel
Hi
ja, wenn du ein Makro dazu geschreiben hast, dann kannst du dir einen Button erzeugen und das Makro mit einem Klick starten.
wie das Makro dazu allerdings aussehen muss, lässt sich aus deiner etwas kurzen Beschreibung leider noch nicht ableiten.
Gruß, Daniel

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 18:05:43
William
Hallo Daniel
Hier nun die Beispiel Datei ...ich Hofe das reicht wollte jetzt nicht alle 24 Monate eintragen
Die Daten sollen nach Datum auf die Monats blätter verteilt werden
https://www.herber.de/bbs/user/52611.xls

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 18:35:00
Daniel
Hallo
das könnte mit diesem Makro funktionieren:

Sub Verteilen()
Dim Zelle As Range
Dim strSheet
With Sheets("Daten")
For Each Zelle In Range(.Cells(2, 2), .Cells(1, 2).End(xlDown))
If Not IsDate(Zelle.Value) Then
Zelle.EntireRow.Interior.ColorIndex = 3
Else
strSheet = Format(Zelle.Value, "MMMYY")
On Error Resume Next
Zelle.EntireRow.Copy Destination:=Sheets(strSheet).Cells(Rows.Count, 1).End(xlUp). _
Offset(1, 0)
If Err  0 Then Zelle.EntireRow.Interior.ColorIndex = 6
Err = 0
On Error GoTo 0
End If
Next
End With
End Sub


Zeilen , in denen kein gültiges Datum steht, werden ROT markiert
Zeilen, für die kein Passendes Sheet existiert, werden GELB markiert.
in beidn Fällen werden die Zeilen nicht übertragen und müssen nach korrektur nochmal übertragen werden, dazu die bereits übertragenen Zeilen von Hand löschen sonst sind diese doppelt drin.
die Sheetnamen werden aus dem Datum mit der Funktion: FORMAT(datumswert, "MMMYY") ermittlet, das heißt die Sheetnamen müssen so angepasst werden,daß sie diesen Werten entsprechen.
(dh in einer Deutschen Version muss das Sheet für März 2007 "Mrz07" heissen)
Gruß, Daniel

Anzeige
AW: Daten nach Datum zuordnen/sortieren
25.05.2008 20:05:00
William
Hi Daniel
Im Beispiel funzt es....
aber wenn ich es in der Richtigen Datei anwende...kommt die Meldung "Index auserhalb des gultigen Bereich"?
sind natürlich viel mehr daten vorhanden
gruß

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 20:15:00
Daniel
HI
sorry, aber ich kann meinen Code natürlich nur so schreiben, daß er für deine Vorlage passt.
Wenn in deinen Original-Daten was anders ist, dann musst du den Code halt entsprechend anpassen.
(wenn du dazu nicht in der Lage bist, solltest du ihn eigentlich auch nicht verwenden )
außerdem, wenn du schon hier nen Fehler rekalmierst, dann solltest du auch dazusagen, in welcher Zeile im Code der Fehler passiert, oder ne Beispieldatei hochladen, in der der Fehler auftritt.
Sonst ist es blosses Rätselraten.
Gruß, Daniel

Anzeige
AW: Daten nach Datum zuordnen/sortieren
25.05.2008 20:19:13
William
wollte eigentlich nicht "Reklamieren"
werde dein Rat befolgen
Danke nochmals

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 20:46:00
William
Hi Daniel
Habe es jetzt hingekriegt.......war mein fehler Code war nicht im "Modul kopiert"
es klappt bei allen 24 monaten
habe es aber auch versäumt zu sagen das ab Spalte D andere Daten drin sind die NICHT nach unten versetzt werden dürfen......was ja jetzt passiert wenn Daten in die Spalten A,B,C Kopiert werden

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 21:04:14
Daniel
Hi
sorry, versteh ich nicht.
Variante 1, die ganze Zeile wird über tragen, dann so wie in meinem Code
Variante 2, es werden nur die ersten 3 Zellen übertragen, dann musst du es so abändern:

Sub Verteilen()
Dim Zelle As Range
Dim strSheet
With Sheets("Daten")
For Each Zelle In Range(.Cells(2, 2), .Cells(1, 2).End(xlDown))
If Not IsDate(Zelle.Value) Then
Zelle.EntireRow.Interior.ColorIndex = 3
Else
strSheet = Format(Zelle.Value, "MMMYY")
On Error Resume Next
.Cells(Zelle, Row, 1).Resize(1, 3).Copy Destination:=Sheets(strSheet).Cells(Rows. _
Count, 1).End(xlUp). _
Offset(1, 0)
If Err  0 Then Zelle.EntireRow.Interior.ColorIndex = 6
Err = 0
On Error GoTo 0
End If
Next
End With
End Sub


dann werden nur die ersten 3 Spalten kopiert, ab spalte D passiert nichts.
Gruß, Daniel

Anzeige
AW: Daten nach Datum zuordnen/sortieren
25.05.2008 21:25:00
William
https://www.herber.de/bbs/user/52614.xls
im Zielordner "Jan07 - Apr07" sind ab Spalte "D" Daten drin , die dürfen nicht nach unten verschoben werden
(was beim einsortieren jetzt passiert)
Gruß
William

AW: Daten nach Datum zuordnen/sortieren
25.05.2008 22:33:21
Daniel
Hi
das Marko so abändern, wie ich es beschrieben habe (die Fettmarkierte stelle)
ist allerdings noch ein Tippfehler drin, korrkterweise heißt es

.Cells(Zelle.Row, 1).Resize(1, 3).Copy Destination:...usw


jetzt werden nur die ersten 3 Spalten kopiert und eingefügt, ab Spalte D passiert nichts mehr
Gruß, Daniel

Anzeige

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

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