AW: laufzeitfehler 438
30.03.2008 01:15:00
Jimi
Ok, Excel bringt mich noch zur verzweiflung. Ich hab hier nur Office 2007 zur Verfügung aber es soll unter Office 2003 laufen. Nur es funktioniert jedesmal unter 2007 aber nie unter 2003 und das liegt nur an den scheiß Diagramm Eigenschaften. Kann da mal jemand drüber schaun ob er irgendwas findet das in 2003 nicht bzw. anders geht? Der letzte Fehler den ich mitbekommen hab war in der Zeile
.ChartTitle.Text = "=" & datasheet & "!$M$4"
Text Eigenschaft konnte für * nicht festgelegt werden oder so ähnlich. Das Makro ist zum glück nicht sehr kompliziert :)
Sub mkchart()
Dim start As Integer
Dim datasheet As String, chartsheet As String
Dim i As Long, j As Long
datasheet = "Sheet1"
chartsheet = "Chart"
start = 6
i = 1
For i = 1 To Worksheets.count
If Worksheets(i).Name = chartsheet Then
Application.DisplayAlerts = False
Sheets(chartsheet).Delete
Application.DisplayAlerts = True
Exit For
End If
Next i
For i = 1 To Worksheets.count
If Worksheets(i).Name = datasheet Then
j = i
End If
Next i
Sheets.Add After:=Sheets(j)
Sheets(j + 1).Select
Sheets(j + 1).Name = chartsheet
i = start
j = 1
While Not Sheets(datasheet).Cells(i, 5) = Empty
If Not Sheets(datasheet).Cells(i, 13) = Empty Then
Sheets(chartsheet).Cells(j, 1) = Sheets(datasheet).Cells(i, 13)
Sheets(chartsheet).Cells(j, 2) = Sheets(datasheet).Cells(i, 14)
j = j + 1
End If
i = i + 1
Wend
Sheets(chartsheet).Range("C1").Select
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=chartsheet
With ActiveChart
.ChartTitle.Text = "=" & datasheet & "!$M$4"
.HasTitle = True
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.ChartType = xlBarClustered
.HasLegend = False
.SeriesCollection(1).Values = "=" & chartsheet & "!$A$1:$A$" & j - 1
.SeriesCollection(1).XValues = "=" & chartsheet & "!$B$1:$B$" & j - 1
'SetSourceData Source:=Sheets("Tabelle1").Range("C5:D12"), PlotBy _
' :=xlRows
End With
ActiveSheet.ChartObjects(1).Activate
Selection.Cut
ActiveSheet.Paste
Columns("A:B").Select
Selection.EntireColumn.Hidden = True
End Sub