ich scheitere mit meinen bescheidenen VBA-Kenntnissen wieder einmal an einer Codezeile. Mit LngIndex sollen die Blätter 1 bis 12 durchlaufen und Formeln eingetragen werden. In A5 sollte jeweils die Formel "=Datum(2014;monat(und hier sollte der Name des aktuellen Blattes rein);1)" stehen. Bei der Zeile .Range("A5").FormulaLocal.... wird als der Fehler angezeigt. Der Fehler lautet: "Fehler beim Kompilieren: Ungültiger Bezeichner".
Option Explicit
Sub DatenEintragen()
Dim LngIndex As Long
Dim wks As Worksheet
With ThisWorkbook
For LngIndex = .Sheets("1").Index To .Sheets("12").Index
With .Sheets(LngIndex)
.Range("A5").FormulaLocal = "=Datum(2014;Monat(" & LngIndex.Value & ";1)"
.Range("A6:A35").FormulaLocal = "=WENN(A5="""";"""";WENN(A5+1>=DATUM(JAHR(A5); _
MONAT(A5)+1;1);"""";A5+1))"
.Range("B5:B35").FormulaLocal = "=WENN(A5="""";"""";A5)"
.Range("A5:B35").Formula = .Range("A5:B35").Value
.Range("A5:A35").NumberFormat = "m/d/yyyy"
.Range("B5:B35").NumberFormat = "ddd"
.Range("A5:B35").HorizontalAlignment = xlCenter
.Range("A5:B35").VerticalAlignment = xlCenter
End With
Next
End With
End Sub
Besten Dank für die Hilfe und Servus, Walter