Thema Datum  Von Nutzer Rating
Antwort
28.12.2020 20:25:57 Gast50593
NotSolved
28.12.2020 20:27:15 Gast3594
NotSolved
28.12.2020 20:27:20 Gast27379
NotSolved
28.12.2020 20:27:25 Gast79073
NotSolved
28.12.2020 21:40:12 Gast37115
NotSolved
29.12.2020 01:39:18 Mackie
NotSolved
29.12.2020 01:45:00 Mackie
NotSolved
29.12.2020 01:59:44 Mackie
NotSolved
29.12.2020 13:10:03 Gast4343
NotSolved
Blau Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich
29.12.2020 14:05:02 Gast85178
NotSolved
29.12.2020 14:41:24 Gast26354
NotSolved

Ansicht des Beitrags:
Von:
Gast85178
Datum:
29.12.2020 14:05:02
Views:
822
Rating: Antwort:
  Ja
Thema:
Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich

Hallo,

habe den VBA Code folgendermaßen angepasst. Könnte man eigentlich via VBA noch ein Kuchendiagramm erzeugen?

 

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Option Explicit
  
  
Sub Auswertung()
  
  
Application.ScreenUpdating = False
  
  
      Dim p As Integer
      Dim st As Integer
      Dim s As Integer
      Dim e As Integer
      Dim w As Integer
      Dim Start As Date
      Dim Ende As Date
        
        
    Dim arr, i, j, v(3), a(3)
      
    arr = Array("Abgeschlossen", "Laufend", "Angebot", "Abgelehnt")
      
    p = 4 'Erste Zeilenummer der Werte
    st = 1 'Spaltennummer Status
    s = 9 'Spaltennummer Projektstart
    e = 11 'Spaltennummer Projektende
    w = 3 'Spaltennummer Personentage
      
      
    ThisWorkbook.Worksheets("Industrie").Activate
      
    With Worksheets("Industrie Auswertung")
      
      
        Start = .Range("C5").Value
          
        Ende = .Range("D5").Value
          
          
        For j = 0 To 3
          
            For i = p To Cells(Rows.Count, st).End(xlUp).Row
              
                If Cells(i, s) >= Start And Cells(i, e) <= Ende And Cells(i, st) = arr(j) Then
                  
                    v(j) = v(j) + Cells(i, w).Value
                      
                    a(j) = a(j) + 1
                      
                End If
                  
            Next i
              
        Next j
          
          
        Worksheets("Industrie Auswertung").Range("E5").Value = "Beauftragt"
  
        Worksheets("Industrie Auswertung").Range("E6").Value = "Unklar"
  
        Worksheets("Industrie Auswertung").Range("E7").Value = "Abgelehnt"
          
        Worksheets("Industrie Auswertung").Range("F5").Value = a(0) + a(1)
  
        Worksheets("Industrie Auswertung").Range("F6").Value = a(2)
  
        Worksheets("Industrie Auswertung").Range("F7").Value = a(3)
  
        Worksheets("Industrie Auswertung").Range("G5").Value = v(0) + v(1)
  
        Worksheets("Industrie Auswertung").Range("G6").Value = v(2)
  
        Worksheets("Industrie Auswertung").Range("G7").Value = v(3)
          
          
        .Activate
          
          
        .Cells(1, 1).Select
          
          
        Application.ScreenUpdating = True
          
          
    End With
      
      
End Sub

Danke und viele Grüße


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
28.12.2020 20:25:57 Gast50593
NotSolved
28.12.2020 20:27:15 Gast3594
NotSolved
28.12.2020 20:27:20 Gast27379
NotSolved
28.12.2020 20:27:25 Gast79073
NotSolved
28.12.2020 21:40:12 Gast37115
NotSolved
29.12.2020 01:39:18 Mackie
NotSolved
29.12.2020 01:45:00 Mackie
NotSolved
29.12.2020 01:59:44 Mackie
NotSolved
29.12.2020 13:10:03 Gast4343
NotSolved
Blau Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich
29.12.2020 14:05:02 Gast85178
NotSolved
29.12.2020 14:41:24 Gast26354
NotSolved