AW: Spalte mit Datum von bestimmten Wochentagen
15.10.2016 18:34:21
bestimmten
Hi,
war auch schon am Basteln:
Option Explicit
Sub mach0()
Call mach(Range("B2").Value, Range("B4"), "2,4,6")
Call mach(Range("B2").Value, Range("E4"), "3,5,7")
End Sub
Sub mach(d As Date, r As Range, typ As String)
Dim i&, z&, m&
m = Month(d)
While Month(d) = m
If InStr(typ, CStr(Weekday(d))) > 0 Then r.Offset(z).Value = d: z = z + 1
d = d + 1
Wend
End Sub
Die untere Sub macht, was man ihr sagt (also: Datumswert, der in meinem Test in B2 steht: 01.10.2016, dann die Zelle, wo die Ausgabe hinsoll und schließlich die Tage, die erwünscht sind, als String).
Ausgegeben werden die Datümer in den Spalten B und E, wobei ich rechts daneben (zur Überprüfung) nochmal den gleichen Wert stehen habe (mit Excel-Formel, einfach = Zelle links), mit Wochentag formatiert.
Datei: https://www.herber.de/bbs/user/108804.xlsm
Schöne Grüße,
Michael