Diagramme mittels VBA bearbeiten

Guten Tag liebes Forum,
ich hoffe, dass ihr mir weiterhelfen könnt.
Ich habe mittels Button 2 vorhandene "Vorlagen-Blätter" dupliziert, welche per Messagebox umbenannt werden. Eines davon enthält 3 Diagramme, das andere die dazugehörigen Daten.
Über den Makrorekorder habe ich die Prozedur aufgezeichnet und kann die Änderungen nachverfolgen. So weit so gut.
Da die duplizierten Blätter umbenannt werden, kenne ich natürlich im Vorfeld nicht die Blattnamen, sodass die aufgezeichnete Makroprozedur nicht funktioniert.
Der Makrocode:

Sub Makro2()
ActiveSheet.ChartObjects("LFV").Activate
ActiveChart.SeriesCollection(1).Values = "=Anlaufkurven_150_Daten!$E$9:$E$152"
ActiveChart.SeriesCollection(2).Values = "=Anlaufkurven_150_Daten!$G$9:$G$152"
ActiveChart.SeriesCollection(3).Values = "=Anlaufkurven_150_Daten!$F$9:$F$152"
ActiveChart.SeriesCollection(3).XValues = "=Anlaufkurven_150_Daten!$A$9:$A$152"
End Sub

Wie kann ich dem ganzen nun beibringen das der Wert (150) zwischen den Unterstrichen der in einer Variable steckt dort eingesetzt wird?
Ich bedanke mich bei euch im Voraus!
Grüße, Dennis.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro3() Range("H11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_150_Daten!R[-10]:R[1048565],5)+VLOOKUP( _ Berichtsmonat,Anlaufkurven_150_Daten!R[-10]:R[1048565],7)" Range("J11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_150_Daten!R[-10]:R[1048565],6)" Range("L11:M11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_150_Daten!R[-10]:R[1048565],2)" Range("O9:Q11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_150_Daten!R[-8]:R[1048567],4)" Range("O12").Select ActiveWindow.SmallScroll Down:=-6 End Sub

Sub Makro3() Range("H11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_&BRNummer_Daten!R[-10]:R[1048565],5)+VLOOKUP( _ Berichtsmonat,Anlaufkurven_&BRNummer_Daten!R[-10]:R[1048565],7)" Range("J11").Select End Sub

Sub Makro3() Range("H11").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(Berichtsmonat,Anlaufkurven_" &BRNummer &"_Daten!R[-10]:R[ _ 1048565],5)+VLOOKUP( _ Berichtsmonat,Anlaufkurven_"&BRNummer &"_Daten!R[-10]:R[1048565],7)" Range("J11").Select End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramme mittels VBA bearbeiten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread