Weekday & Select Case
23.09.2018 13:25:21
Simon
bin leider ein absoluter Neuling und hab letzte Nacht ganze 4 Stunden an einem Problem gesessen. So langsam kapituliere ich....
Ich möchte ein Datum auslesen in Zelle A3. VBA soll mir dann in D3 entweder nichts oder ein Text reinschreiben. So sieht mein Code aus, aber egal welches Datum ich in Zelle A3 reinschreibe, ich bekomme immer Text...
Sub frueh1()
Select Case Weekday(A3, vbMonday)
Case 7: Range("D3").Value = ""
Case 1: Range("D3").Value = "08:00"
Case 2: Range("D3").Value = "08:00"
Case 3: Range("D3").Value = "08:00"
Case 4: Range("D3").Value = "08:00"
Case 5: Range("D3").Value = "08:00"
Case 6: Range("D3").Value = "08:00"
End Select