Diagramm 'geht' nicht (mehr)

Hallo!
Ich habe folgendes Problem, ich lasse über ein Formular ein Diagramm erstellen. Das funktioniert wie folgt: Per Checkboxes werden bestimmte Werte auf ein leeres Blatt (Data Storage) kopiert und von dort aus wird dann das Diagramm erstellt.
Das seltsame ist, bis jetzt lief es prima, seit heute gar nicht mehr. Und das obwohl ich an dem ganzen Modul nichts, aber auch gar nichs, geändert habe.
Beim Befehl "charts.Add" kommt die Fehlermeldung: "Fehler beim Kompilieren, Methode oder Datenobjekt nicht gefunden", ich kann es mir aber nicht erklären.
Fall jemand einen Tipp hat, ich bin seeehr dankbar. ;-)


Private Sub CommandButton1_Click()                      'OK
Application.ScreenUpdating = False
Worksheets("Data Storage").Visible = xlSheetVisible
Sheets("Data Storage").Select
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 3).Value = "" Then
Rows(i).Delete Shift:=xlUp
End If
Next
CheckBox7.Value = False                             'Rücksetzen aller Checkboxes auf "Null"
CheckBox8.Value = False
CheckBox25.Value = False
CheckBox24.Value = False
CheckBox23.Value = False
CheckBox22.Value = False
CheckBox21.Value = False
CheckBox20.Value = False
CheckBox19.Value = False
CheckBox16.Value = False
CheckBox17.Value = False
CheckBox18.Value = False
CheckBox26.Value = False
UserForm2.Hide
Dim x As Integer
Dim y As Integer
Dim bereich As Range
x = (Sheets("Data Input").Range("B5").Value + 1)    'Monate aus "Data Input"!B5 übernehmen
y = ActiveSheet.UsedRange.Rows.Count                'Zeilen zählen
'Set bereich = Range("A1:S" & CStr(y))               '<< alter Code >>
Set bereich = Range(Cells(1, 1), Cells(y, x))       'Quell Bereich für Diagramm
Dim dianame As String
charts.Add                                          'Diagramm erstellen
With ActiveChart
.ChartType = xlColumnClustered                  'Diagrammtyp
.SetSourceData Source:=bereich, PlotBy:=xlRows
Application.CutCopyMode = False
.HasTitle = True
.ChartTitle.Text = "Distribution of Cost over entire Duration"
Dim sc As Byte
With ActiveChart
For sc = 1 To .SeriesCollection.Count         'Anzahl der Balken im Diagramm zählen
.SeriesCollection(sc).Border.LineStyle = xlNone   'Alle diese Balken ohne Rahmen versehen
Next
End With
On Error Resume Next
End With
Worksheets("Data Storage").Visible = xlSheetHidden
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Ralf,
ich habe den Code jetzt etwas optimiert,
das Blatt "Data Storage" brauchst du wahrscheinlich gar nicht einblenden...
ich habe den Code ohne Checkboxen und Userform getestet...

Option Explicit
Private Sub CommandButton1_Click()
Dim x As Integer, y As Integer, bereich As Range
Dim sc As Byte, i As Long
x = Sheets("Data Input").Range("B5").Value + 1
Application.ScreenUpdating = False

With Worksheets("Data Storage")
     '.Visible = xlSheetVisible

     For i = .UsedRange.Rows.Count To 1 Step -1
        If .Cells(i, 3).Value = "" Then
           .Rows(i).Delete Shift:=xlUp
        End If
     Next
'    CheckBox7.Value = False
'    CheckBox8.Value = False
'    CheckBox25.Value = False
'    CheckBox24.Value = False
'    CheckBox23.Value = False
'    CheckBox22.Value = False
'    CheckBox21.Value = False
'    CheckBox20.Value = False
'    CheckBox19.Value = False
'    CheckBox16.Value = False
'    CheckBox17.Value = False
'    CheckBox18.Value = False
'    CheckBox26.Value = False
'    UserForm2.Hide


        y = .UsedRange.Rows.Count
        Set bereich = .Range(.Cells(1, 1), .Cells(y, x))
       '.Visible = xlSheetHidden
End With

With Charts.Add
    .ChartType = xlColumnClustered
    .SetSourceData Source:=bereich, PlotBy:=xlRows
    .HasTitle = True
    .ChartTitle.Text = "Distribution of Cost over entire Duration"
   For sc = 1 To .SeriesCollection.Count
    .SeriesCollection(sc).Border.LineStyle = xlNone
   Next
End With

With Application
      .SendKeys "{esc}"
      .ScreenUpdating = True
End With
End Sub

gruß Herbert

Sub CommandB() Dim x As Integer, y As Integer, bereich As Range Dim sc As Byte, i As Long x = Sheets("Data Input").Range("B5").Value + 1 Application.ScreenUpdating = False On Error Resume Next With Worksheets("Data Storage") '.Visible = xlSheetVisible ' For i = .UsedRange.Rows.Count To 1 Step -1 ' If .Cells(i, 3).Value = "" Then ' .Rows(i).Delete Shift:=xlUp ' End If ' Next ' CheckBox7.Value = False ' CheckBox8.Value = False ' CheckBox25.Value = False ' CheckBox24.Value = False ' CheckBox23.Value = False ' CheckBox22.Value = False ' CheckBox21.Value = False ' CheckBox20.Value = False ' CheckBox19.Value = False ' CheckBox16.Value = False ' CheckBox17.Value = False ' CheckBox18.Value = False ' CheckBox26.Value = False ' UserForm2.Hide y = .UsedRange.Rows.Count Set bereich = .Range(.Cells(1, 1), .Cells(y, x)) '.Visible = xlSheetHidden End With Charts.Add With ActiveChart .Location Where:=xlLocationAsNewSheet .ChartType = xlColumnClustered .SetSourceData Source:=bereich, PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "Distribution of Cost over entire Duration" For sc = 1 To .SeriesCollection.Count .SeriesCollection(sc).Border.LineStyle = xlNone Next End With With Application .SendKeys "{esc}" .ScreenUpdating = True End With End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm 'geht' nicht (mehr)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread