Hallo zusammen ich habe zum wochenende noch einriesen problem.
ich sollte diagramme , die sich auf variierenden zellen beziehen
(je nachdem wieviel einträge gemacht wurden)
mein skript sieht bis jetzt so aus:
die zeilen zwischen den sternchen enthalten den/die fehler
kann mir jemand helfen oder weis mir jemand einen guten tipp?
Dim aa As Integer
Dim wertaa As String
Dim bereich_start_da 'bereich start diagramm a
Dim bereich_ende_da ' bereich ende diagramm a
For aa = 1 To 400 '400 Zeilen
wertaa = Cells(aa, 2)
If wertaa = "Summe Tor 1" Then
bereich_start_da = Cells(aa, 2).Address
End If
Next
bereich_ende_da = bereich_ergb4ggg' genau so ermittelt wie bereich_start_da
Windows(WorkbookName2).Activate
Sheets.Add
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Diagramme"
Charts.Add
ActiveChart.ChartType = xlLineMarkers
'***************************************************************************
ActiveChart.SetSourceData Source:=Workbooks( _
WorkbookName2).Sheets(WorkbookName2).Range( _
"=" & bereich_start_da & ":" & bereich_ende_da & ""), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
'***************************************************************************
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "WE Süd"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.PlotArea.Select
End Sub
Gruß,
Markus