Hallo, ich habe folgendes Problem:

ich habe 14 Lastprofile in 14 Spalten mit einer Auflösung von 15min über ein Jahr in einer Excelltabelle. Das sind dann pro Tag 96 Werte. Ich möchte gerne ein Makro schreiben, dass mir für jeden Tag ein Diagramm mit den 14 Lastprofilen erstellt. Dazu wollte ich erst den Bereich wählen und anschließend das Diagramm für den selektierten Bereich ausgeben lassen, dann gehe ich 96 Zeile weiter und markiere einen neuen Bereich, bis die 14 Lastprofile mit ca. 32.000 Werten abgearbeitet sind. Letztlich sollen 365 Diagramme herauskommen, die jeweils 14 Reihen enthalten.

Für eure Hilfe wäre ich sehr dankbar.

MfG Steffen 

Mein Code sieht so aus:

Sub Diagramme_erstellen()

Dim intintstartzeilezeile As Integer
Dim intintendezeilezeile As Integer
Dim intintspalte As Integer
     
    intstartzeile = 102
    intendezeile = intstartzeile + 95
    intspalte = 5
   
    Do While intendezeile < 32000
      
'   Anlage1
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage2
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage3
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage4
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage5
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage6
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage7
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage8
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage9
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage10
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage11
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage12
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage13
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
'   Anlage14
    Range(Cells(intstartzeile, intspalte), Cells(intendezeile, intspalte)).Select
    intspalte = intspalte + 3
      
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Tabelle1")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"

    intstartzeile = intstartzeile + 95
   
    Loop

End Sub