Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sverweis Zellenbezogen VBA

Sverweis Zellenbezogen VBA
tbl
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sverweis Zellenbezogen VBA
27.10.2009 10:37:45
{Boris}
Hi Thomas,
gleich einfach t mit dem Jahr ab:
If t 
Grüße Boris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige