Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
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
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsspalte nach Wochentag trennen

Datumsspalte nach Wochentag trennen
01.12.2022 13:10:03
Weis
Hallo,
ich habe eine Tabelle A1 : U999 mit einer Datumsspalte
2022-11-15 13:00:00 WERT2 WERT3 WERTX
2022-11-15 13:00:00
2022-11-15 13:00:00
2022-11-15 14:00:00
2022-11-16 05:00:00
2022-11-16 05:00:00
2022-11-16 07:30:00
2022-11-16 09:00:00
2022-11-16 10:00:00
2022-11-16 12:00:00
2022-11-16 18:00:00
2022-11-16 19:00:00
2022-11-16 20:00:00
2022-11-17 02:00:00
2022-11-17 04:30:00
2022-11-17 12:00:00
2022-11-17 13:00:00
2022-11-17 18:00:00
2022-11-17 20:00:00
Die möchte ich gerne Trennen also Leerzeile mit Wochentag darüber.
Mittwoch
2022-11-16 10:00:00
2022-11-16 12:00:00
2022-11-16 18:00:00
2022-11-16 19:00:00
2022-11-16 20:00:00
Donnerstag
2022-11-17 20:00:00
2022-11-17 12:00:00
2022-11-17 13:00:00
2022-11-17 18:00:00
2022-11-17 20:00:00
Das ganze gerne in VBA, da ich das automatisieren möchte.
Ich hoffe ich habe mich klar ausgedrückt.
Momentan fällt mir leider nix zur Lösung ein:-(
VG
Holger

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsspalte nach Wochentag trennen
01.12.2022 13:30:57
ReginaR
Hi,
teste mal diesen Code. Die Datumswerte stehen dabei in Spalte A ab Zeile 1. Kannst Du aber auch im Code ändern:

Public Sub Trenner()
Dim lng_zeile As Long
Dim lng_merk_tag As Long
lng_zeile = 1 ' Zeile mit dem ersten datum
With Worksheets("Tabelle1")
lng_merk_tag = Day(.Cells(lng_zeile, 1))  ' Die 1 bei allen Cells-Objekten steht für Spalte A
.Rows(lng_zeile).Insert Shift:=xlDown
.Cells(lng_zeile, 1) = Format(.Cells(lng_zeile + 1, 1), "DDDD")
lng_zeile = lng_zeile + 1
Do Until .Cells(lng_zeile, 1) = ""
If lng_merk_tag  Day(.Cells(lng_zeile, 1)) Then
lng_merk_tag = Day(.Cells(lng_zeile, 1))
.Rows(lng_zeile).Insert Shift:=xlDown
.Cells(lng_zeile, 1) = Format(.Cells(lng_zeile + 1, 1), "DDDD")
End If
lng_zeile = lng_zeile + 1
Loop
End With
End Sub
Gruß Regina
Anzeige
AW: Datumsspalte nach Wochentag trennen
01.12.2022 13:40:05
Holger
Danke für Deinen Ansatz.
Nach der Anpassung ich bekomme jedoch den Fehler 13 Typen unverträglich?
lng_zeile = 2 ' Zeile mit dem ersten datum
With Worksheets("Page 1")
lng_merk_tag = Day(.Cells(lng_zeile, 2)) ' Die 1 bei allen Cells-Objekten steht für Spalte A bei uns B also 2
.Rows(lng_zeile).Insert Shift:=xlDown
.Cells(lng_zeile, 1) = Format(.Cells(lng_zeile + 1, 1), "DDDD")
lng_zeile = lng_zeile + 1
Do Until .Cells(lng_zeile, 1) = ""
If lng_merk_tag Day(.Cells(lng_zeile, 1)) Then
lng_merk_tag = Day(.Cells(lng_zeile, 1))
.Rows(lng_zeile).Insert Shift:=xlDown
.Cells(lng_zeile, 1) = Format(.Cells(lng_zeile + 1, 1), "DDDD")
End If
lng_zeile = lng_zeile + 1
Loop
End With
VG
Holger
Anzeige
AW: Datumsspalte nach Wochentag trennen
01.12.2022 13:53:33
Holger
Hmmm das habe ich zu demFehler gefunden:
Typenkonflikt (Fehler 13)
Visual Basic kann zahlreiche Werte konvertieren und umwandeln, um Datentyp-Zuordnungen zu realisieren, die in früheren Versionen nicht möglich waren.
Dieser Fehler kann jedoch weiterhin auftreten. Er hat die folgenden Ursachen und kann wie folgt gelöst werden:
Ursache: Die Variable oder die Eigenschaft entspricht nicht dem richtigen Typ. Beispielsweise kann eine Variable, für die ein Ganzzahlenwert erforderlich ist, keine Zeichenfolgenwerte akzeptieren - es sei denn, die gesamte Zeichenfolge kann als Ganzzahl erkannt werden.
Anzeige
Warum?
01.12.2022 14:08:25
RPP63
Moin!
Warum um alles in der Welt willst Du eine korrekte (und vor allem auswertbare) Liste mutwillig zerstören?
Nimm eine Zusatzspalte mit dem Wochentag und gut ist's!
Gruß Ralf
AW: Datumsspalte nach Wochentag trennen
01.12.2022 14:09:17
Rudi
Hallo,
Zeilen einfügen/ löschen immer von unten.

Sub aaa()
Dim lRow As Long
For lRow = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Int(Cells(lRow, 1))  Int(Cells(lRow - 1, 1)) Then
Rows(lRow).Insert
Cells(lRow, 1) = Format(Cells(lRow + 1, 1), "DDDD")
End If
Next lRow
Rows(lRow).Insert
Cells(lRow, 1) = Format(Cells(lRow + 1, 1), "DDDD")
End Sub
Gruß
Rudi
Anzeige
AW: Datumsspalte nach Wochentag trennen
01.12.2022 14:44:39
Holger
Noch immer der Fehler Typen unverträglich Fehler 13
bei
For lRow = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Int(Cells(lRow, 1)) Int(Cells(lRow - 1, 1)) Then
Rows(lRow).Insert
Muss die Spalte B erstmal mit einem Format ala Datum belegt werden?
Fragende Grüße
Holger
wieso B?
01.12.2022 14:50:58
Rudi
der Code geht durch A!
AW: wieso B?
01.12.2022 15:06:23
Holger
Mist , sorry hab ich übersehen muss ich noch ändern.
Danke für den Hinweis (Manchmal sieht man den Wald....)
AW: wieso B?
01.12.2022 15:15:55
Holger
Super Dankeschön !!
Kannst Du mir auch verraten wie jetzt noch die Zeile wo der Wochentag drinnsteht von A bis U gelb umfärbe?
For lRow = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Int(Cells(lRow, 2)) Int(Cells(lRow - 1, 2)) Then
Rows(lRow).Insert
Cells(lRow, 2) = Format(Cells(lRow + 1, 2), "DDDD")
End If
Next lRow
Rows(lRow).Insert
Cells(lRow, 2) = Format(Cells(lRow + 1, 2), "DDDD")
Anzeige
AW: wieso B?
02.12.2022 10:59:20
Rudi
klar kann ich das.
Cells(lRow, 1).Resize(, 21).Interior.Color = vbYellow
Gruß
Rudi
AW: Datumsspalte nach Wochentag trennen
01.12.2022 16:42:20
snb
Wie RPP schon erwähnte:

Sub M_snb()
sn = UsedRange.Columns(1).SpecialCells(2)
sp = sn
sp(3, 1) = ""
For j = 4 To UBound(sp)
sp(j, 1) = IIf(Day(sn(j, 1)) = Day(sn(j - 1, 1)), "", Format(sn(j, 1), "dddd"))
Next
Cells(1, 2).Resize(UBound(sp)) = sp
End Sub
Wenn in VBA, vermeide Interaktion mit dem Arbeitsblatt und verwende Arrays.
Die unrichtige Vorgehensweise (doch mit Arrays)

Sub M_snb()
sn = UsedRange.Columns(1).SpecialCells(2)
ReDim sp(UBound(sn) + 100, 0)
sp(0, 0) = sn(1, 1)
sp(1, 0) = sn(2, 1)
sp(2, 0) = sn(3, 1)
n = 3
For j = 4 To UBound(sn)
If Day(sn(j, 1))  Day(sn(j - 1, 1)) Then
sp(n, 0) = Format(sn(j, 1), "dddd")
n = n + 1
End If
sp(n, 0) = sn(j, 1)
n = n + 1
Next
Cells(1, 3).Resize(UBound(sp)) = sp
End Sub

Anzeige

300 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
Spalte nach Datum durchsuchen u danach Filtern
Marta

Hey Leute,
stehe vor meinem nächsten Problem. Nur leider fällt mir im Moment gar kein Lösungsweg ein, nicht einmal Ansatzweise.
Also das Szenario sieht folgendermaßen aus:
Ich habe eine Spalte mit verschiedenen Datumsangaben ab August 2009. Diese Spalte wird jeden Monat mit dem aktu...
03.08.2010 14:32:53
Thread-ID: 1170220
9 Beiträge
Nach Datum Filtern
Sebastian

Hallo Profis,
mal eien kurze Frage.
Ich habe in einer Tabelle "Datum" in Spalte E ein fordlaufendes Datum stehen. Jetzt möchte ich gerne ein Listenfeld mit der Monatsauswahl machen in dem man einen Monat wählen kann und dann alle anderen ausbledet.
In Spalte C hole ich mir den Mona...
26.02.2011 10:23:26
Thread-ID: 1202859
2 Beiträge
Anzeige
VBA Autofilter nach datum in zelle filtern
Spenski

hallo habe folgenden code mit dem recorder aufgenommen Sub Makro10() ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(2, "6/18/2014") End Sub damit filter ich in einer tabelle das datum . in dem beispiel den 18.06.2014.
statt der...
10.06.2014 02:48:59
Thread-ID: 1365201
2 Beiträge
Nach Datum filtern (Autofilter)
Rolf

Hallo zusammen
Ich habe eine Liste mit ca. 1000 Zeilen. In der Spalte A befindet sich ein Datum. Das Datum kommt mehrmals vor. Ich möchte nun mittels VBA den AutoFilter auf dem Datum setzen. Und zwar soll es das jünste und zweitjünste Datum ermitteln und dann alle Einträge mit diesen beiden...
05.03.2015 22:55:15
Thread-ID: 1413124
5 Beiträge
Autofiltern mit Makro nach Datum aus Zelle
Simon

Hallo,
aktuell gebe ich mich folgender Herausforderung und komme leider nicht weiter:
Ich habe zwei Tabellenblätter. Auf dem einen stehen die Daten und auf dem anderen möchte ich auswerten. Mit dem unten gezeigten Code bekomme ich die Tabelle bereits gefiltert. Jedoch würde ich gerne in...
23.03.2015 14:45:27
Thread-ID: 1416613
10 Beiträge
Makro - Nach Datum filtern
Sonja

Hallo,
ich stecke gerade ziemlich fest. Ausgangspunkt ist, das ich eine Dropdown Liste in einer Excel Datei habe, dort soll ausgewählt werden können "Letzte 14 Tage". Wird das ausgewählt, sollen nur noch Datensätze drinnen stehen, die ein Datum haben, das in den letzten 14 Tagen liegt.
...
18.06.2015 12:02:30
Thread-ID: 1431651
7 Beiträge
Filtern nach Datum in Userform
Andrea
Hallo liebes Forum,
ich habe mal eine Datei angehängt. Diese habe ich mir mal hier in diesem Forum gesucht. Nun habe ich diese ein wenig erweitert, und ich möchte nach Datum Filtern.
Also auf Übersicht dann Userform öffnen. Dann auf Beleg / Auswertungen und Rechnungsjournal gehen. Und da is...
29.12.2015 06:18:17
Thread-ID: 1466267
5 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
7
8
1
5
1
4
9
6
4
1
1
6
4
13
3
8
2
15
6
1
1
2
6
1