Daten kopieren, einfügen und ein Diagramm erstellen.
10.11.2019 20:13:43
timsn91
ich würde gerne Daten, die jede Woche manuell eingegeben und ausgewertet werden nun automatisch auswerten.
Es ist vermutlich nichts wildes, aber ich habe leider noch keine VBA / Makro Kenntnisse.
Hier der Fall:
In einem Excel Dokument wird auf dem ersten Blatt (nennen wir es Tabelle1) die Daten, die Wöchentlich einzutragen sind, eingetragen. Anschließend sollen diese Daten auf ein anderes Blatt kopiert werden und dazu ein Diagramm erstellt werden, welches sich automatisch erweitern.
Teil1:
(Dieser bleibt manuell)
In Tabelle1 stehen rot, gelb, grün, blau und schwarz in Spalte A2:A6 und die Zahlen in B2:B6.
rot - 1
gelb - 1
grün - 1
blau - 1
schwarz - 1
Teil2:
(Hier beginnt die Automatisierung)
Auf Blatt2 (Tabelle2) steht in A2:A6 das die gleichen Inhalte wie in Tabelle1, also rot, gelb, grün, blau und schwarz.
Nun sollen die Werte aus Tabelle1 B2:B6 in Tabelle2 unter B2:B6 kopiert werden.
Die Tabelle2 soll dafür dienen, die Daten mit Kalenderwochen zu versehen. Es werden also jeden Montag die Daten in Tabelle1 manuell eingegeben. Danach soll der Makro ausgeführt werden und in Tabelle2 die Daten einspeisen.
Also KW1 und dann die Daten, dann KW2 mit daten, etc.
Hierfür habe ich folgendes verwendet:
Sub Kopieren()
'1. Zelle kopieren.
Worksheets("Tabelle1").Range("B2:B6").Copy _
Destination:=Worksheets("Tabelle2").Range("B2")
Formel = "KW" & Format(Now, "ww", vbMonday)
ActiveSheet.Range("B1").Value = Formel
Columns("B").Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Teil 3:
Es soll ein Diagramm erstellt werden, welches sich die Daten aus dem zweiten Blatt zieht.
Also aus Tabelle2.
Die Daten werden ja von Tabelle1 in Tabelle2 automatisch eingetragen.
Bislang habe ich nur dieses hier:
Sub Test()
'1. DiagrammBlatt hinzufügen
ThisWorkbook.Charts.Add After:=Worksheets("Tabelle2")
'2. Werte einlesen
ActiveChart.SetSourceData Worksheets("Tabelle2").Range("C2:C6")
End Sub
Wie kriege ich es hin, dass das Diagramm, wenn ich in der Tabelle2 eine Kalenderwoche ergänze, auch die Daten dort automatisch einträgt?
Vielen Dank im Voraus!