Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: ammes am März 26, 2016, 22:42:06 Nachmittag

Titel: Automatisch Zeiteinträge addieren
Beitrag von: ammes am März 26, 2016, 22:42:06 Nachmittag
Hey liebe User,

ich habe eine Frage an euch und hoffe es kann mir jemand weiterhelfen.

Ich bekomme jeden Tag aus unserem CRM System einen Report mit Kundennamen und aufgebrachter Arbeitszeit für den Kunden (z.B.: 00:50). Für jeden abgeschlossenen Arbeitsauftrag wird eine neue Zeile erstellt, es können auch für einen Kunden an einem Tag mehrere Einträge sein.

Ich müsste nun (am besten in einem zweiten Arbeitsblatt im gleichen File) eine Übersicht bekommen für jeden Kunden (nur ein Eintrag pro Kunde) in der die einzelnen Zeitangaben zusammengerechnet werden und aufscheinen.

Die Datei soll jeden Tag aktualisiert werden, es kommen also im ersten Arbeitsblatt neue Einträge hinzu (mit neuen aber auch schon bestehenden Kunden).

Wie stelle ich das ganze am besten an?
Das ganze soll so gut es geht automatisch passieren, da es wie gesagt jeden Tag aktualisiert wird.
Anbei mal das Probefile.

Ich hoffe ich habe mich halbwegs verständlich ausgedrückt und freue mich auf euer Feedback.

PS: Ich nutze Microsoft Office 2016 für Mac.

Liebe Grüße

ammes
Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: DL am März 27, 2016, 00:14:58 Vormittag
Hallo

Füge eine Pivot-Tabelle ein.
Kunde in ZEILEN und Arbeitszeit in WERTE ziehen. Die Zusammenfassungsfunktion ggf. auf Summe ändern. Das benutzerdefinierte Zahlenformat ggf. auf [hh]:mm ändern.

Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: gmg-cc am März 27, 2016, 10:12:37 Vormittag
Moin,

Zitat
Die Datei soll jeden Tag aktualisiert werden, es kommen also im ersten Arbeitsblatt neue Einträge hinzu (mit neuen aber auch schon bestehenden Kunden).

Daraus geht nicht klar hervor, ob die Daten des Vortages da schn mit drin sind oder nicht. Mit anderen Worten: Müssen die neue Daten in das Blatt Aufträge angehängt werden oder sind die schon im CRM-Report integriert?
Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: ammes am März 27, 2016, 17:13:04 Nachmittag
Es kommen jeden Tag neue Datensätze hinzu, die alten sind nicht mehr im täglichen Report. Das heiß sie werden jeden Tag von mir angefügt.
Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: gmg-cc am März 27, 2016, 17:44:23 Nachmittag
OK, dann wäre es gewiss hilfreich, wenn du die bestehenden Daten als Liste/Intelligente Tabelle einrichtest (Strg+L oder Strg+T). Der Vorteil: Du kannst in der PivotTabelle den (automatisch vergebenen oder selbst erstellten) Namen der Liste als Datenquelle verwenden und dann reicht ein einfaches Aktualisieren, du brauchst nicht den Bereich anzupassen.
Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: ammes am März 27, 2016, 22:35:17 Nachmittag
Vielen Dank für eure Hilfe!
Das funktioniert soweit alles bestens.

Jetzt hätte ich noch eine weitergehende Frage dazu.

Ich möchte die Werte aus der Pivot-Tabelle vom Tabellenblatt "Gesamtzeitaufwand je Kunde" als Werte in "Zeitaufwand" einfügen. Ich habe dafür ein Makro erstellt welches soweit auch funktioniert. Nur habe ich als letzte Zeile immer das Gesamtergebnis der Pivot-Tabelle welche ich immer automatisch löschen möchte. Dies klappt noch nicht so wirklich.

Könnt ihr mir hiermit nochmal helfen?

Anbei das aktuelle File.
Und hier das Makro:

Sub Makro24()
'
' Makro24 Makro
'

'
    Cells.Select
    Selection.ClearContents
    Selection.ClearContents
    Range("A1").Select
    Sheets("Gesamtzeitaufwand je Kunde").Select
    Range("B3").Select
    ActiveSheet.PivotTables("PivotTable12").RefreshTable
    Cells.Select
    Range("B3").Activate
    Selection.Copy
    Sheets("Zeitaufwand").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Cells.EntireColumn.AutoFit
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.NumberFormat = "[hh]:mm"
    Range("A1").Select
    Selection.End(xlDown).Select
    Rows("11:11").Select
    Selection.Delete Shift:=xlUp
End Sub
Titel: Antw: Automatisch Zeiteinträge addieren
Beitrag von: gmg-cc am März 27, 2016, 23:02:15 Nachmittag
Nun ja,

du hast ja den Code aufgezeichnet und (wahrscheinlich) auch nicht nachbearbeitet. Das ist auch so weit in Ordnung ... Allerdings frage ich mich, warum du die Gesamt/Ergebniszeile in der PT nicht ausblendest? Dann wäre das Problem nur halb so groß  8).

Und probiere einmal bei der Aufzeichnung folgendes: Klicke irgendwo in die PT, dann Strg+A; die Markierung (es sind nur die Daten und die Überschriften) kopieren und dann in der Zieltabelle als Wert einfügen. Anschließend noch eventuelle "(Leer)"-Inhalte durch nichts ersetzen.

Ach ja, ich habe seit LOCKY kein Bedürfnis mehr, *.xlsm- oder *.xlsb-Dateien herunter zu laden (*.xlsx ist OK). Darum kann ich zu deiner Datei keine Stellung nehmen und nur den dargestellten Code begutachten.