Zeiterfassungsdaten auswerten

[Rabe]

Hallo,

ich habe ein Monatsjournal mit Zeiterfassungsdaten und will die zusammenfassen zum Auswerten.
Das Thema Datenschutz ist bekannt und wird beachtet.

Es sind für den Januar 2021 insgesamt 16.667 Zeilen in Blöcken pro Person (siehe Beispiel). Die Blöcke sind unterschiedlich groß, je nachdem, ob jemand Urlaub hatte, ein Feiertag war oder Pausenabzug erfolgte.
Jeder Block beginnt mit dem Firmennamen. In Spalte L steht dann die Abteilung und darunter der Name, sowie in denselben Zeilen in BD die Personal- und Ausweisnummer. Die Kommt- und Geht-Zeiten sind im Zeitformat und die Summen-Zeiten (Dezimal-Zeit) in den Spalten AT, AW, AX, AZ und BD mit Punkt dargestellt.

Um es auswerten zu können, benötige ich diese Tages-Daten aller Kollegen dann auf einem extra Blatt.
Ich dachte an 4 zusätzliche Spalten mit Abteilung, Name, Personal- und Ausweisnummer.
Zur Auswertung reichen die Zeilen, die in Spalte A die Wochentage und in B die Tagesnummer haben. Dann will ich noch die Piunkte durch Kommas ersetzen.

Das sinnvollste ist wohl ein Makro. Das ist für mich momentan zu schwierig.
Wer würde mich da unterstützen?

Hier die Beispieldatei mit den Daten einer Person:

  Monatsjournal zum Programmieren.xlsx (Größe: 55,75 KB / Downloads: 26)

Vielen Dank, Gruß Ralf

[Klaus-Dieter]

Hallo Ralf,

das sieht ja schlimm aus. Bin sicher, dass man da nur mit Makros zu Ziel kommen kann. Alternativ müsste man zunächst die viellen leeren Zeilen und Spalten entfernen, was bai mehreren Blättern aber sehr Zeitintensiv würde.  Der Aufbau ist immer gleich?

[Rabe]

Hi Klaus-Dieter,

das sieht ja schlimm aus. Bin sicher, dass man da nur mit Makros zu Ziel kommen kann. Alternativ müsste man zunächst die viellen leeren Zeilen und Spalten entfernen, was bai mehreren Blättern aber sehr Zeitintensiv würde.  Der Aufbau ist immer gleich?

ja, das ist immer gleich aufgebaut.
Das ist die Excel-Ausgabe des Zeiterfassungssystems ZEUS. Da sind dann in einigen Spalten auch noch lauter senkrechte Striche als Bildchen zur Spaltentrennung drin.
Ich habe für die Beispiel-Datei die Werte und Formate in ein neues Blatt eingefügt und die Spalten mit einer sinnvollen Breite eingestellt.

Gruß Ralf

PS: Ich brauche das für den Betriebsrat, deswegen gibt es da kein Budget für eine Auftragsprogrammierung und ich muß es selber versuchen.

[Klaus-Dieter]

Hallo Ralf,

werde mich am Wochenende mal damit beschäftigen. Die leeren Spalten und Zeilen können sicher raus?

[Rabe]

Hallo Klaus Dieter,

ja, können raus.
Danke schon mal.
Es ist auch alles auf einem Blatt mit dem Namen "Sheet".

Gruß Ralf

[ralf_b]

Hallo Ralf,

ist die Beispieldatei ein Originalexport aus Zeus oder über Umwege zu einer Exceldatei gemacht worden?
Laut Hersteller lassen sich die Listen auch konfigurieren. Denn ich glaube nicht das ein so namhafter Anbieter Dateien in so einem Zustand standartmäßig rausgibt. 
Wenn du die Möglichkeit hast auf das System zuzugreifen, solltest du das Übel bei der Wurzel packen.


gruß

rb

[Rabe]

Hallo Ralf,

danke für den Tipp.

Ich werde mal im Sekretariat nachfragen.
Ic fürchte aber, daß das ein Original-Export ist.

[später]
Ok, das ist ein Original-Export.

Ich habe jetzt die Mail-Adresse unseres Beraters.
Nun werde ich dem mal auf die Nerven gehen.

Gruß Ralf

PS:
Unabhängig davon habe ich mit diesem Makro-chen die Leerzeilen entfernt:

Sub Leere_Zeilen_löschen()
   With Worksheets("Test")
   loLetzteA = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
   For i = loLetzteA To 1 Step -1
      If range("A" & i).Value = "" Then
         Rows(i).Delete
      End If
   Next i
  End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

[Fennek]

Ein erster Ansatz das Format etwas zu bereinigen:

Ein weiteres Sheet einfügen:

Code:

Sub Datum()
Dim Monat As Date

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If IsDate(Cells(i, 1)) Then Monat = Cells(i, 1)
    If Not IsEmpty(Cells(i, 2)) Then
        Rows(i).EntireRow.Copy Sheets(2).Cells(i, 1)
        Sheets(2).Cells(i, 1) = VBA.DateSerial(Year(Monat), Month(Monat), Val(Cells(i, 2)))
    End If
Next i
End Sub

Damit wird das Datum in ein Excel-Datum gewandelt. Es sollte für alle Jahre und Monate passen.

[Rabe]

Unabhängig davon habe ich mit diesem Makro-chen die Leerzeilen entfernt

wie kann ich nun die Zeilennummern jeweils von einer Zeile mit "Musterfirma" bis zur nächsten mit "Musterfirma" feststellen, um dann die 4 zusätzlichen Spalten rechts mit Abteilung, Name, Personal- und Ausweisnummer zu füllen?

[Fennek]

Einer der ersten Schritte müßte es m.E. sein, die Blöcke zu erkennen. Das "Musterfirma" ein Dummy ist, wird eine eindeutige Markierung bnötigt, z.B. immer 2 Zellen ober halb von "Druckdatum".

Von dem Konzept einer relationalen Datenbank sollte in der großen Tabelle nur eine ID, ein einer zweiten Tabelle, Firma, Name, Personalnummer, Soll-Arbeitszeit usw gespeichert werden.

Aber dieses "schreckliche" Format nutzbar zu machen, wird Dich noch einige Zeit beschäftigen.