Guten Morgen zusammen,
ich stehe schon wieder auf dem Schlauch.
Ich habe eine Workbook mit folgenden Sheets:
Sheet("Tageswerte"):
Spalte A1 - A5000. Fortlaufendes Datum (27.10.2009 - 05.07.2023)
Spalte B1-B5000 Sverweis auf das entsprechende Datum in anderem Sheet.
Sheet("2009"):
Spalte A1 - AxxFortlaufendes Datum (01.01.209 - 31.12.2009)
Spalte B1-Bxx Minutenwerte
Spalte C1-Cxx Tageswerte
Jedes Jahr kommt ein neuer Sheet dazu (2010,2011 usw.)
Bisher hatte ich das ganze immer nur für 1 Jahr realisiert. Da hatte ich dann einfach folgendes "programmiert":
Sheet(Tageswerte)
Range("B1").FormulaR1C1 = "=VLOOKUP(RC[-1],'2009'!C[-1]:C[1],3,FALSE)"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B365"), Type:=xlFillDefault
Funktionierte auch gut. Jetzt kommt aber mein Problem:
Wenn ich das ganze für die nächsten 15 Jahre mache, passt mein Verweis auf '2009' ja nicht mehr. Ich müsste da dann irgendwie in die A-Spalte gucken und den Verweis dann immer auf das entsprechende Sheet lenken (2009,2010,2011 usw.)
Dann habe ich gedacht, ich mache einfach ne Schleife:
For Y = 1 To 5540
t = Year(Range("A" & Y))
Range("B" & Yea).FormulaR1C1 = "=VLOOKUP(RC[-1],'" & t & "'!C[-1]:C[1],3,FALSE)"
Next Y
Da habe ich aber das Problem, das es die Sheets 2010,2011 usw. ja noch nicht gibt und Excel immer eine Aktualisierung fordert...
Bin für jeden Tip dankbar !!
Mfg, Thomas