Hallo liebe Community!
Ich komme echt nicht weiter...
ich habe ein Programm geschrieben, mit dem automatisch eine Formatierung etc. von einem Diagramm stattfindet...
und als ich es erweitert habe etc... funktionierts auf einmal nicht mehr...
Die Beschreibung und "Ursache..." von dem Fehler, von Microsoft... --> support.microsoft.com/de-de/kb/983119 hilft mir auch nicht weiter... weil... das hat nichts mit dem Blattschutz zu tun...
Teilausschnitt vom Code:
Also wenn er mir in den Else-Zweig reingeht... bei:
schmiert er mir dann ab... und schmeißt den Fehler...
Keine Ahnung warum...
Jemand von euch, eine Idee??
VG Tim
Ich komme echt nicht weiter...
ich habe ein Programm geschrieben, mit dem automatisch eine Formatierung etc. von einem Diagramm stattfindet...
und als ich es erweitert habe etc... funktionierts auf einmal nicht mehr...
Die Beschreibung und "Ursache..." von dem Fehler, von Microsoft... --> support.microsoft.com/de-de/kb/983119 hilft mir auch nicht weiter... weil... das hat nichts mit dem Blattschutz zu tun...
Teilausschnitt vom Code:
Visual Basic-Quellcode
- Dim kz9 As Boolean
- Dim Grafik11 As Chart
- Dim a As Long
- Dim b As Long
- Dim y As Long
- Dim z As Integer
- '--------------------------------------------------------------
- '- Falls eines der Kennzeichen TRUE ist... -
- '--------------------------------------------------------------
- z = 5
- If kz9 = True Then
- z = z + 1
- For a = 1 To b
- y = a + 4
- If Tabelle7.Cells(11, y).Value <> 0 Then
- With Grafik11.SeriesCollection(z).Points(a).DataLabel.Format.TextFrame2.TextRange.Font.Fill
- .Visible = msoTrue
- .ForeColor.RGB = RGB(255, 0, 0)
- .Transparency = 0
- .Solid
- End With
- Else
- Grafik11.SeriesCollection(z).Points(a).Select
- Grafik11.SeriesCollection(z).Points(a).DataLabel.Select
- ActiveChart.SetElement (msoElementDataLabelNone)
- End If
- Next
- Else
- End If
Also wenn er mir in den Else-Zweig reingeht... bei:
schmiert er mir dann ab... und schmeißt den Fehler...
Keine Ahnung warum...
Jemand von euch, eine Idee??
VG Tim