VBA Anzahl der Tage im Monat ermitteln lassen

Hallo die Fachwelt!
am Ende des aktuellen oder am Anfang des Folgemonats rechne ich meine Kundentermine ab.
Ein Makro, das ich aus mehreren Userforen assembliert habe fragt mich nach dem ersten Tag des Abrechnungsmonats. In die Userbox geb ich das komplette Datum (z.B. 01.03.2016) ein. Daraus errechnet das Makro 31 Tage und löscht alle übrigen Zeilen.
Bei kürzeren Monaten muss ich die unzutreffenden Tage manuell entfernen.
Gern möchte ich die 2 Sachen einbinden:
Die korrekte Anzahl der Tage im Monat selbst ermitteln lassen.
Dazu fand ich eine Anweisung, die ich selbst nicht einbinden kann :(
Der letzte Tag des aktuellen Monats:
VBA
DateSerial(Year(Date()), Month(Date()) + 1, 0)

Mit diesem Wert dann die Monate davor u. danach entfernen lassen. Die Abrechnung schreibe ich monatsweise mal in der letzten Woche des aktuellen Monats mal in den ersten Wochen des Folgemonats.
1) wie bekomme ich den aktuellen kompletten Monat mit der korrekten Anzahl der Tage extrahiert wenn das Makro in der letzten Monatswoche (am letzten Arbeitstag) läuft?
2) wie bekomme ich den letzten Monat extrahiert, wenn das Makro in den ersten 3 Monatswochen des Folgemonats, für den letzten Monat, ausgeführt wird.

Die Tabellenstruktur sieht wie folgt aus:
Kundenname |Stunden |Beginn
KundeA |2 |01.02.2016 13:15
KundeB |2 |18.02.2016 13:15
KundeA |2 |01.03.2016 13:15
KundeB |2 |18.03.2016 13:15
KundeA |2 |01.04.2016 13:15
KundeB |2 |18.04.2016 13:15
/Der Codeanfang***
Sub Stundenabrechnung()
Dim Beginn As Date
Dim anfangsdatum As Date
Dim datumsuche As Date
Dim lastrow As Long
Dim zaehler As Long
Beginn = Date
anfangsdatum = InputBox("Anfangsdatum?")
'datumsuche = Beginn - anfangsdatum
datumsuche = anfangsdatum - 1
MsgBox datumsuche, , "Ausgabe aller Daten NACH folgendem Datum"
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
For zaehler = lastrow To 1 Step -1
If IsDate(Cells(zaehler, 1)) Then
If CDate(Cells(zaehler, 1)) If CDate(Cells(zaehler, 1)) > CDate(datumsuche) + 31 Then Rows(zaehler).Delete
End If
Next
/ Code Ende***
Danke schön!
André

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sorry, du hast recht, bei den ersten Versuchen habe ich dein Makro auf eine andere Datei angewandt, und schrieb irrtümlich von diesem falschen Screenshot ab...
Dein Makro zeigt also korrekter Weise den ersten Monat in der Liste an.
Die Lösung, nach der ich suche setzt sich aus zwei Sachen zusammen:
- wenn in der letzten Woche des aktuellen Monats ausgeführt, d.h. würde ich den Februar 2016 zw. 22.02.2016-29.02.2016 abrechnen, möchte ich den aktuellen Monat, also den Februar extrahieren lassen;
- Erstelle ich die Abrechnung nicht in der letzten Woche des Monats sondern in den ersten 3-4 Wochen des Folgemonats bei März also 31 Tage - 7 Tage (zw. 01.03.2016-24.03.2016), sollte der abgelaufene Monat Februar 2016 extrahiert werden.
Gern würde ich einen "fast fertigen" Code vorlegen wollen, meine VBA-Kenntnisse sind echt unterirdisch und reichen leider nicht, um deinen Code richtig zu interpretieren. :(
Mit meinen Versuchen würde ich wohl noch mehr irritieren...
Es wäre also echt etwas großes, wenn du bittemeinen bisherigen Code um deine Lösung ergänzen könntest.
Die Tabelle mit beiden Makros meinem und deinem füge ich anbei.
https://www.herber.de/bbs/user/104150.xlsm
Denke schön, und sorry für das Missverständnis.
André

Option Explicit Sub auswertung() Dim c As Range Dim von As Long, bis As Long ' Zeilen Dim Tvon As Long, Tbis As Long ' Zeilen mit Treffern Dim suchen As String Dim shD As Worksheet von = 2 Set shD = Sheets("Daten") bis = shD.Range("A" & shD.Rows.Count).End(xlUp).Row suchen = Range("B4").Text Set c = shD.Range("A" & von & ":A" & bis).Find(what:=suchen, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing Then Tvon = c.Row Set c = shD.Range("A" & von & ":A" & bis).FindPrevious(c) If Not c Is Nothing Then Tbis = c.Row End If If Tvon > 0 And Tbis > 0 Then bis = Range("A" & Rows.Count).End(xlUp).Row If bis > 7 Then Range("A8:C" & bis).ClearContents shD.Range("A" & Tvon & ":C" & Tbis).Copy Range("A8") Else MsgBox "Monat " & suchen & " nicht gefunden." End If End Sub Sub monate() Dim letzter As Date, datum As Date Const tageAbziehen = 7 If IsDate(Range("B2")) Then datum = Range("B2") Else datum = Date letzter = WorksheetFunction.EoMonth(datum, 0) If datum

Beliebteste Forumthreads (12 Monate)

VBA Anzahl der Tage im Monat ermitteln lassen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Anzahl der Tage im Monat ermitteln lassen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread