Eigentlich einfach :-)
Beleg die Zellen als Verianten, und prüfe das Jahr...schreib irgendwo im Blatt Namens "XXXXX" in einer Zelle "XX" per Formel
=JAHR(HEUTE() ) -2016
Wobei hier 2016 das Jahr wo deine Auswertung startet, also mit dem Bezug auf Range auf B2-B54
so und nun deklarierst du variablen a und b ==> a für die 2 hier undb für die 54
Ich nehme an du hast dich oben etwas vertippt, weil ab zeile 2 mit 5 zeilen runter landest du auf Zeile 7 :-) es sei denn du meinst 5 Zeilen überspringen, dann auf die 8. Zeile schreiben (in dem Fall ändere bitte in meinem Code die 5 durch eine 6)
Ich nehme auch an, dass du Anfang und Ende als Variablen nutzen willst um damit auf B bis BB zu zeigen...deshalb habe ich die deklariert, fall du irgendwann Mal andere Bereiche dadurch ziehen willst:
******************************************
Hier ist dein code:
Sub machdas()
Dim Anfang
Dim Ende
Dim a
Dim b
Dim c
c= Sheets("XXXXX").Range("XX").Value
a=2+(5*c)
b=54+(5*c)
Anfang="B"
Ende="BB"
ActiveChart.SetSourceData Source:=Range("Tabelle1!$" & Anfang & "$" & a & ":$" & Ende & "$" & b)
End Sub
so in der Art:
|