|
Hallo ich möchte, dass der Nutzer die Kalenderwochen welche im Diagramm dargestellt werden sollen angeben kann. Dazu habe ich zwei Zellen erstellt, wo der Nutzer zB von 12. KW bis zur 45. KW eingeben kann. Dann soll im Diagramm der Bereich von der 12. KW bis zur 45. KW dargestellt werden.
Dabei starten die Werte in einem anderen Tabellenblatt mit Zelle "P4" (1. Wert startet bei KW 12) und gehen bis zu 52. KW mit Zelle "BD5".
Sprich der Bereich von KW 12 bis KW 18 wären zB "P4:V5".
Nun wollte ich das mit der Formatierung Cells(Zeile, Spalte) angeben, weil ich damit die Zeile definieren könnte als "eingebene Zahl + 4". Warum + 4? Weil KW 12, die 16. Spalte in dem Fall wäre.
Mein Code sieht wie folgt aus:
Sub Diagramm1()
Dim Von As Integer
Dim Bis As Integer
Von = Range("D43").Value + 4
Bis = Range("G43").Value + 4
If Von < 16 Or Von > 56 Or Bis < 16 Or Bis > 56 Then
MsgBox "Die Kalenderwoche liegt außerhalb des Auswertungungsbereiches (Jahr 2020)!", vbInformation, "Hinweis"
ElseIf Von > Bis Then
MsgBox "'VON' darf nicht größer als 'BIS' sein!", vbInformation, "Hinweis"
Else
Worksheets("Yusuf").ChartObjects("Diagramm 3").Chart.SetSourceData Source:=Sheets("Diagrammdaten").Range(Cells(4, Von), Cells(5, Bis))
End If
End Sub
Funktioniert alles schön und gut, bis auf die Formatierung von dem Chart Code! Habe auch versucht nur mit Zahlen, statt Variablen funktioniert aber auch nicht. Der Code funktioniert mit einem Rangebereich wie "P4:V5", aber nicht mit der Cells Formatierung. Was muss ich ändern?
LG Till
|