Select Case in welchem Monat
09.05.2016 08:02:38
nikelwerner
ich möchte einen Select-Case anwenden, der überprüfen soll in welchem Monat wir uns befinden und dem entsprechend Werte aus der zum Monat gehörigen Spalte lesen.
Momentan sieht mein Code dazu so aus:
Dim monat As Integer
Set monat = monat(heteute())
Select Case monat
Case 5
Cells(r, 6) = ActiveWorkbook.Worksheets("Anwsenheit").Cells(r, 96)
Cells(r, 14) = ActiveWorkbook.Worksheets("Urlaub").Cells(r, 96)
Cells(r, 20) = ActiveWorkbook.Worksheets("BZK").Cells(r, 96)
Case 6
Cells(r, 6) = ActiveWorkbook.Worksheets("Anwsenheit").Cells(r, 97)
Cells(r, 14) = ActiveWorkbook.Worksheets("Urlaub").Cells(r, 97)
Cells(r, 20) = ActiveWorkbook.Worksheets("BZK").Cells(r, 97)
Case 7
Cells(r, 6) = ActiveWorkbook.Worksheets("Anwsenheit").Cells(r, 98)
Cells(r, 14) = ActiveWorkbook.Worksheets("Urlaub").Cells(r, 98)
Cells(r, 20) = ActiveWorkbook.Worksheets("BZK").Cells(r, 98)
End Select
Dies funktioniert allerdings nicht. Bei "Set monat = monat(heute()) shceint der Fehhler zu liegen.. wisst Ihr wie ich das schrieben muss damit alles funktioniert?
Danke und viele Grüße :)