Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich
 28.12.2020 20:25:49 Gast15906
Solved

Ansicht des Beitrags:
Von:
Gast15906		 Datum:
28.12.2020 20:25:49		 Views:
1649		 Rating:
     
Antwort:
 Nein
Thema:
Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich

Hallo liebe Forenmitglieder,

und zwar bräuchte ich Vorschläge bzgl. der Anpassung meines Makros und wäre euch dankbar, wenn ihr mir helfen könntet.

Folgende Tabelle soll mit dem Makro ausgewertet werden:

 

Aktuell gebe ich über das Makro den Datumsbereich zwischen Angebot versendet und Projektende ein sowie den Status des Projektes (Abgelehnt, Laufend, Abgeschlossen, Aquise) ein und erhalte dann die Anzahl Projekte sowie PT in diesem Datumsbereich. Die Eingabe des Datumbereiches sowie des Status geschieht über Message Box. Wie könnte ich den nachfolgend aufgeführten VBA Code am besten anpassen die Anzahl Projekte und Anzahl PT direkt neben den verschiedenen Stati aufgelistet werden? Ich hoffe mein Problem ist einigermaßen verständlich ansonsten gerne fragen.

?
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
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 a As Integer
      Dim i As Integer
      Dim v As Integer
       
       
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
 
 
Start = InputBox("Bitte Start des Auswertungszeitraumes eingeben im Datumsformat TT.MM.JJJJ:")
  
Ende = InputBox("Bitte Ende des Auswertungszeitraumes eingeben im Datumsformat TT.MM.JJJJ:")
 
Dim Status
Status = Worksheets("Industrie Auswertung").Range("E5").Value
  
  
a = 0
 
 
 
For i = p To Cells(Rows.Count, st).End(xlUp).Row
   
If Cells(i, s) >= Start And Cells(i, e) <= Ende
    
   v = v + Cells(i, w).Value
    
   a = a + 1
    
 
 
End If
 
Next
 
 
Worksheets("Industrie Auswertung").Range("C5").Value = Start
 
Worksheets("Industrie Auswertung").Range("D5").Value = Ende
 
Worksheets("Industrie Auswertung").Range("E5").Value = Status
 
Worksheets("Industrie Auswertung").Range("F5").Value = a
 
Worksheets("Industrie Auswertung").Range("G5").Value = v
 
 
MsgBox "Für den Projektstatus " & Status & " beträgt im gewählten Zeitraum vom " & Start & " bis " & Ende & " die Anzahl Projekte " & a & " und die Anzahl Projekttage " & v & "."
 
 
 
ThisWorkbook.Worksheets("Industrie Auswertung").Activate
 
Cells(1, 1).Select
 
 
Application.ScreenUpdating = True
 
 
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Hilfe bzgl. VBA Code Anpassung nötig - Auswertung nach Datumsbereich
 28.12.2020 20:25:49 Gast15906
Solved