Hallo zusammen,
ich wäre euch sehr dankbar wenn ihr mir helfen könntet und zwar habe eine Excel Datei bei der ich je nach Zeitraum eine Auswertung via Makro vornehmen will.
Dabei soll stets nach einem Zeitraum gefiltert werden könnnen (ein von bis Datum). Dementsprechend werden dann nur Projekte ausgewertet, deren Angebot in diesem Zeitraum versendet wurde (Spalte Angebot versendet und Spalte Projektende). Habt ihr eine Idee wie ich das via Makro gut lösen könnte? Anbei mein Code Entwurf und ein Bild der Tabelle die ausgewerten werden soll. Vorab vielen Dank für eure Hilfe und schöne Grüße.
Sub Auswertung()
Application.ScreenUpdating = False
Sheets("Industrie Auswertung").Activate
ActiveSheet.Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[309]C[-3]," & _
"Tab_Industrie[Angebot versendet],R3C2)"
ActiveSheet.Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[310]C[-4]," & _
"Tab_Industrie[Angebot versendet],R3C2)"
ActiveSheet.Range("F3").Select
ActiveCell.FormulaR1C1 = _
"=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[311]C[-5]," & _
"Tab_Industrie[Angebot versendet],R3C2)"
ActiveSheet.Range("D3:F3").Value = ActiveSheet.Range("D3:F3").Value
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub
|