Thema Datum  Von Nutzer Rating
Antwort
Rot Status Auswertung nach Datumsbereich
 20.12.2020 10:48:06 Gast78858
Solved
20.12.2020 11:34:49 Gast12196
NotSolved
20.12.2020 11:39:10 Gast70043
NotSolved
20.12.2020 12:29:33 Gast56807
NotSolved
20.12.2020 12:35:12 Gast14325
NotSolved

Ansicht des Beitrags:
Von:
Gast78858		 Datum:
20.12.2020 10:48:06		 Views:
920		 Rating:
     
Antwort:
 Nein
Thema:
Status Auswertung nach Datumsbereich

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.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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 Status Auswertung nach Datumsbereich
 20.12.2020 10:48:06 Gast78858
Solved
20.12.2020 11:34:49 Gast12196
NotSolved
20.12.2020 11:39:10 Gast70043
NotSolved
20.12.2020 12:29:33 Gast56807
NotSolved
20.12.2020 12:35:12 Gast14325
NotSolved