Monate als Array
Heinz
Ich möchte in den Sheets Jänner bis Dezember in den Zellen C3:AG147 die selbe Formel einfügen
Mein unteres Makro funktioniert nicht,wie gewollt.
Könnte mir bitte jemand weiterhelfen?
Gruß
Heinz
Sub Test()
Dim VMonat As Variant
VMonat = Array(" ", "Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember")
VMonat.Range("C3:AG147").FormulaR1C1 = "=INDEX(R500C3:R523C33,MATCH(RC2,R500C2:R523C2,0),)" ' _
Formel einfügen
End Sub