1
Excel / Antw: Automatisch Zeiteinträge addieren
« 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
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
Menü
An- und Abmelden
Partner / Links