Thema Datum  Von Nutzer Rating
Antwort
Rot Projekte nach Datumsbereich auswerten
20.12.2020 14:35:47 Gast7545
NotSolved
20.12.2020 15:29:14 Gast39939
NotSolved
20.12.2020 16:10:11 Mase
NotSolved
20.12.2020 18:22:41 Gast25048
NotSolved
20.12.2020 18:35:36 Mase
NotSolved
20.12.2020 18:44:09 Gast46960
NotSolved
20.12.2020 20:39:35 Gast31775
NotSolved
20.12.2020 21:43:57 Gast33046
NotSolved
20.12.2020 21:52:09 Gast83587
NotSolved
20.12.2020 22:24:34 ralf_b
NotSolved
20.12.2020 23:50:25 Gast20668
NotSolved
20.12.2020 23:52:10 Gast52334
NotSolved
21.12.2020 08:45:54 Gast98665
NotSolved
21.12.2020 00:14:26 Gast22398
NotSolved
21.12.2020 01:13:22 ralf_b
NotSolved
21.12.2020 01:15:59 ralf_b
NotSolved
21.12.2020 10:04:56 Gast27254
NotSolved
21.12.2020 11:35:45 Gast70158
NotSolved

Ansicht des Beitrags:
Von:
Gast7545
Datum:
20.12.2020 14:35:47
Views:
1007
Rating: Antwort:
  Ja
Thema:
Projekte nach Datumsbereich auswerten

Sehr geehrte Forenmitglieder,

ich hatte hier schon gepostet mein Problem aber nicht eindeutig erläutert. Daher versuche ich es nochmal und wäre dankbar wenn ihr mir bei der Lösung helfen könntet.

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 via Dropdown einen Status (Abgelehnt, Laufend, Abgeschlossen) und einen "von" sowie "bis" Zeitraum auswählen (Monat und Jahr) auswählen. Dann sollte ausgewertet werden wieviele Projekte den jeweiligen Status im gewählten Zeitraum haben und die entsprechende Summe der Anzahl Personentage. Hättet ihr freundlicherweise eine Idee wie ich meinen Code anpassen müsste? Vielen Dank vorab :)

Folgendermaßen sieht mein Code aus:

 

Sub Auswertung()

p = 4 'Erste Zeilenummer der Werte
st = 1 'Spaltennummer Status
s = 9 'Spaltennummer Projektstart
e = 11 'Spaltennummer Projektende
w = 3 'Spaltennummer Personentage

Summandenbeginn = 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) <= Ende Then a = a + w

Next

MsgBox a


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 Projekte nach Datumsbereich auswerten
20.12.2020 14:35:47 Gast7545
NotSolved
20.12.2020 15:29:14 Gast39939
NotSolved
20.12.2020 16:10:11 Mase
NotSolved
20.12.2020 18:22:41 Gast25048
NotSolved
20.12.2020 18:35:36 Mase
NotSolved
20.12.2020 18:44:09 Gast46960
NotSolved
20.12.2020 20:39:35 Gast31775
NotSolved
20.12.2020 21:43:57 Gast33046
NotSolved
20.12.2020 21:52:09 Gast83587
NotSolved
20.12.2020 22:24:34 ralf_b
NotSolved
20.12.2020 23:50:25 Gast20668
NotSolved
20.12.2020 23:52:10 Gast52334
NotSolved
21.12.2020 08:45:54 Gast98665
NotSolved
21.12.2020 00:14:26 Gast22398
NotSolved
21.12.2020 01:13:22 ralf_b
NotSolved
21.12.2020 01:15:59 ralf_b
NotSolved
21.12.2020 10:04:56 Gast27254
NotSolved
21.12.2020 11:35:45 Gast70158
NotSolved