Aktuelle Kalenderwoche aus Datensatz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub unit() Dim wksWeek As Worksheet Dim wksAll As Worksheet Dim dtCurrent As Date, dtMonday As Date Dim i As Long Set wksAll = ThisWorkbook.Worksheets("Alle_Daten") Set wksWeek = ThisWorkbook.Worksheets("Daten_pro_Woche") dtCurrent = wksAll.Cells(Rows.Count, 1).End(xlUp).Value dtMonday = DateAdd("d", -((Weekday(dtCurrent) + 5) Mod 7), dtCurrent) wksWeek.Range("A2:A8").ClearContents For i = 0 To DateDiff("d", dtMonday, dtCurrent) wksWeek.Range("A2").Offset(i, 0).Value = DateAdd("d", i, dtMonday) Next End Sub

Hallo,

hier eine genauere Beschreibung:

Worksheet "Zwischenablage": nur zum zwischenspeichern da
Worksheet "Alle_Daten": Alle Daten die aus importierten Dateien kommen sollen dort langfristig erhalten bleiben (File für File untereinander angeordnet)
Worksheet "Daten_pro_Woche": Alle Daten aus der aktuellen Woche sollen dort enthalten sein (Datum ist im Datensatz vorhanden; Spalte A im Sheet Zwischenablage)

Aufgabenstellung:

1) Makrobutton wird gedrückt

2) Fenster zum Dateien auswählen öffnet sich

3) Datei wird ausgewählt und alle darin enthaltenen Daten werden in den Worksheet "Zwischenablage" kopiert.

4) Es werden nun aber nur folgende Daten gebraucht: "Ausdr1", "benötigte Zeit (in Std)", "Lohnart", "TATätigkeit-TXT", "grGruppe-TXT" und "jj mm" welche in den Spalten "A, E, G, L, N, O" enthalten sind.

5)Diese Daten sollen anschließend in die erste freie Zeile des Worksheets "Alle_Daten" kopiert werden wobei darauf geachtet werden soll das keine Daten doppelt vorhanden sind

6)Von den Daten die ab Schritt 5 im Sheet "Alle_Daten" stehen sollen nun nur die Daten welche in der aktuellsten Woche sind in den Sheet "Daten_pro_Woche" kopiert werden. (Wenn Makro am Mittwoch gestartet wird soll der Datensatz von Montag bis Mittwoch kopiert und in "Daten_pro_Woche" eingefügt werden, wenn das Makro am Freitag gestartet wird dann die Datensätze von Montag bis Freitag und so weiter - immer von der aktuellsten Woche)

Die Beispieldatei erklärt doch schon mal einiges...
Du hast in "Alle_Daten" nicht einfach nur ein Datum, sondern Datum mit Uhrzeit, das erklärt, warum dann auch bei mir Datum mit Uhrzeit heraus gekommen ist.

Dazu folgendes:
Setze einmal die Formatierung für ein Zelle in dieser "Datumsspalte" auf "Standard", dann siehst du, dass da nur eine Zahl steht..
z.B. 45036,1625694444
Der Ganzzahlanteil davon also 45036 ist die Zahl an Tagen seit 31.12.1899 ( 1.1.1900 ist Tag 1, Tage = 0 sind unbekannt )
(Du kannst ja mal versuchen das nachzurechnen. Wenn ich mich nicht irre, ist alle 4 Jahre Schaltjahr, fällt aber alle 100 Jahre aus, außer jeweils nach 400 Jahren oder so...damit wäre 1900 kein Schaltjahr gewesen, 2000 aber schon....123 Jahre, davon 31 Schaltjahre, Januar 31, Februar 28, März 31, April 20.. kommt ganz gut hin, denk ich)
Wie dem auch sei, der Datumswert ist also der ganzzahlige Anteil und repräsentiert im gezeigten Fall den 20.4.2023
Die Nachkommastellen stehen für die Uhrzeit also 24 * 0,1625694444 Stunden = 3,9016666656 Stunden, bzw. 3 Stunden 54 Minuten 6 Sekunden
Excel zeigt das im Übrigen oben in der Bearbeitungsleiste auch an, wenn du ne Zelle mit einem Datum selektierst, also da steht dann Datum mit Uhrzeit.

Das bedeutet, wenn man in dieser Spalte nach einem bestimmten Datum sucht, muss man die Nachkommastellen, also die Uhrzeit ignorieren.
Wenn man aber die Information hat, dass da "nur" ein Datum steht, erwartet man eben eine Ganzzahl und wird beim Vergleich mit einer Ganzzahl kläglich scheitern, also das gesuchte Datum nie finden.

Das ist nun nur einer der vielen möglichen Schwachpunkte einer verbalen Beschreibung...

Sub unit() Dim wksWeek As Worksheet Dim wksAll As Worksheet Dim dtCurrent As Date, dtMonday As Date, dtRow As Date Dim lngRowLastEntry As Long, lngRowMonday As Long Dim lngFirstCol As Long, lngLastCol As Long Dim i As Long Set wksAll = ThisWorkbook.Worksheets("Alle_Daten") Set wksWeek = ThisWorkbook.Worksheets("Daten_pro_Woche") lngFirstCol = 1 lngLastCol = 6 lngRowLastEntry = wksAll.Cells(Rows.Count, lngFirstCol).End(xlUp).Row 'Letztes Datum in der ersten Spalte dtCurrent = CDate(Int(wksAll.Cells(lngRowLastEntry, lngFirstCol).Value)) 'Montag dieser Woche dtMonday = DateAdd("d", -((Weekday(dtCurrent) + 5) Mod 7), dtCurrent) ' Zeile suchen, die vor dem Montag der Woche liegt i = lngRowLastEntry Do i = i - 1 dtRow = wksAll.Cells(i, lngFirstCol).Value Loop Until dtRow dtMonday And i > 2 ' erste zu kopierende Zeile lngRowMonday = i + 1 ' Wochendaten löschen wksWeek.UsedRange.ClearContents ' Wochendaten neu kopieren wksAll.Range(Cells(lngRowMonday, lngFirstCol).Address, Cells(lngRowLastEntry, lngLastCol).Address).Copy wksWeek.Range("A1") End Sub

Beliebteste Forumthreads (12 Monate)

Aktuelle Kalenderwoche aus Datensatz

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

63 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aktuelle Kalenderwoche aus Datensatz

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

63 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread