Projekte nach Datumsbereich auswerten
20.12.2020 21:26:26
Ahmad
ich hoffe ihr könnt mir bei der Anpassung meines Excel Codes behilflich sein.
Und zwar habe ich eine Tabelle mit Projekten und verschiedenen Spalten. Relevant sind hierbei die Spalte Status, Personentage, Projektanfang / Ende. In meiner Auswertung möchte ich nun einen Status (Abgelehnt, Laufend, Abgeschlossen) und einen "von" sowie "bis" Datum auswählen.
Es soll dann via VBA gemäß Auswahl ausgewertet werden welche Anzahl Projekte aus der Tabelle den jeweiligen Status (Abgelehnt, Laufen, Abgeschlossen) im gewählten Zeitraum haben und die jeweilige Anzahl Personentage soll ebenfalls aufgelistet werden.
Folgendermaßen sieht mein Code aus:
Option Explicit
Sub Auswertung()
Dim p As Integer
Dim st As Integer
Dim s As Integer
Dim e As Integer
Dim w As Integer
Dim Beginn As Date
Dim Ende As Date
Dim a As Integer
Dim i As Integer
p = 4 'Erste Zeilenummer der Werte
st = 1 'Spaltennummer Status
s = 9 'Spaltennummer Projektstart
e = 11 'Spaltennummer Projektende
w = 3 'Spaltennummer Personentage
Beginn = InputBox("Beginn Auswertungszeitraum")
Ende = InputBox("Ende Auswertungszeitraum")
a = 0
For i = p To Cells(Rows.Count, st).End(xlUp).Row
If Cells(i, s) >= Beginn And Cells(i, e) Hättet ihr freundlicherweise eine Idee wie ich meinen Code anpassen müsste, ich wäre euch sehr dankbar? Falls eine ausführlichere Beschreibung des Problems erforderlich ist, gerne Bescheid sagen.
Grüße
Anzeige