folgendes Problem..
Ich bekomme aus einem Externen-Tool eine Tabelle mit Projektstunden aus verschiedenen Standorten mit verschiedenen Kostenstellen ausgegeben (Zeitraum ist Projektlaufzeit).
Das Tool gibt die Zeiten in einet Pivottabelle aus.
Ich habe es jetzt in eine andere Tabelle so hinbekommen, dass die Standorte entfallen. Bedeutet es wären nur noch die Kostenstellen/Abteilungen vorhanden.
Jetzt möchte ich die verbrauchten Stunden der Kostenstellen zusammenfassen und bei Eingabe in einer MessageBox in einem neuen Datenblatt (schon vorhanden) ausgeben lassen. Der Eingabewert ist die zu suchende Kostenstelle.
Die Tabelle variiert je größer das Projekt desto länger der Zeitraum.
Vielen dank vorab..
Gruß
Julian
Public Sub Stundenerkennung()
'Kopieren der Pivottabelle und einsetzten in neue Tabelle & Entfernung der Standorte
Sheets("Stundenauswertung (2)").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Select
ActiveSheet.Name = "Stundenauswertung(3)"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:A").Select
Selection.Replace What:="BU_", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="DÜ_", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="PT_", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Cells.EntireColumn.AutoFit
'Prüfen der zusammengefassten Arbeitspakete
Range("A1").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Stundenauswertung(3)").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Stundenauswertung(3)").AutoFilter.Sort.SortFields. _
Add2 Key:=Range("A1:A37"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal