wer hat ein script oder gibt tipp, wie in in einer Mappe mit 12 Monatsregistern (01 ... 12) jeweils immer den Monatsersten in Zelle A2 schreibe. Inputbox liefert das Jahr, die ich habe. Tipp wäre prima. Danke!
Gruß
Horst
Sub t()
Dim wks As Worksheet
Dim intYear As Integer
intYear = Application.InputBox("Bitte geben Sie ein Jahr ein", "MONAT", Type:=1)
If Not IsNumeric(intYear) Or intYear = 0 Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
wks.Range("A2") = DateSerial(intYear, CInt(wks.Name), 1)
Next
End Sub