Hallo zusammen,

ich möchte das Excel eine Zahl zwischen 1 und 12 aus der 17. Spalte aufnimmt und in der 19. Spalte als Text oder Datum ausgibt.

Sub Zugang_Monat()

Dim c As Integer

c = 0

Do Until c = 40
    Select Case Sheets(1).Cells(2 + c, 17).Value
        Case 12
            Sheets(1).Cells(2 + c, 19).Value = "01.01.2012"
        Case 11
            Sheets(1).Cells(2 + c, 19).Value = "01.02.2012"
        Case 10
            Sheets(1).Cells(2 + c, 19).Value = "01.03.2012"
        Case 9
            Sheets(1).Cells(2 + c, 19).Value = "01.04.2012"
        Case 8
            Sheets(1).Cells(2 + c, 19).Value = "01.05.2012"
        Case 7
            Sheets(1).Cells(2 + c, 19).Value = "01.06.2012"
    End Select
    c = c + 1
    Loop
        
End Sub

Woran liegts?

Vielen Dank für Eure Hilfe