Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1904to1908
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

VBA anpassen und Diagramm erweitern

VBA anpassen und Diagramm erweitern
27.10.2022 15:35:35
Marco
Hallo miteinander
Folgende Situation:
In Sheet 1 hat es einen Kalkulation drin welche einen Wert rausgibt auf B23. Dieser Wert wird dann in den Tab Sheet 2 ab Zelle A30 abwärts eingefügt, jedes mal 1 Zelle tiefer wenn man auf den Button klickt. Diese Aktion triggert eine Anpassung eines Diagrammes.
Funktioniert eigentlich ganz gut.
2 Probleme:
Ich will in Sheet 1 eine weitere Zelle hinzufügen welche übernommen werden sollte für das Diagramm. In dieser Zelle wird es ein Dropdown Menu haben mit Monaten drin. Der User selektioniert den Monat, macht die Kalkulation und das Diagramm muss dann den Wert im entsprechenden Monat übernehmen. Sagen wir das Dropdown Menu ist in Zelle B10.
Aktuell habe ich mittels den Range dem Diagramm gesagt, wo die Daten sind. Das ist aber unschön da das Diagramm die Achse für den Range darstellt anstatt das es einfach jedesmal erweitert wird.
Wie könnte ich dieses Problem lösen ? Ich bin VBA noob und habe mir alles selber zusammengesucht.
Besten Dank für eure Hilfe

Sub Schaltfläche3_Klicken()
'Copy the data
Sheets("Sheet1").Range("B23").Copy
'Activate the destination worksheet
Sheets("Sheet2").Activate
'Paste in the target destination
If IsEmpty(Range("A30")) Then
Range("A30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Worksheets("Sheet2").ChartObjects(1).Activate
ActiveChart.SeriesCollection.Add _
Source:=Worksheets("Sheet2").Range("A30:A40")
Application.CutCopyMode = False
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Bitte Beispielmappe hochladen - o.w.T.
27.10.2022 18:59:39
Beverly
Bis später
Karin

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige