Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung via Makro
18.12.2020 20:36:52 Gast5635
Solved
20.12.2020 11:38:03 Gast13127
NotSolved

Ansicht des Beitrags:
Von:
Gast5635
Datum:
18.12.2020 20:36:52
Views:
957
Rating: Antwort:
 Nein
Thema:
Auswertung via Makro

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Auswertung via Makro
18.12.2020 20:36:52 Gast5635
Solved
20.12.2020 11:38:03 Gast13127
NotSolved