VBA Runtime error

[Sebastian82]

Hallo zusammen,

ich habe mir ein kleines Makro geschrieben, jedoch bekomme ich eine Fehlermeldung wenn ich das Makro wieder laufen lassen, nachdem ich über eine Tabelle gefiltert habe.

Kann mir da jemand weiter helfen?

Ich hänge die Datei auch mal an. Das Makro wird über einen Button ausgelöst und soll das Bubble Diagramm beschriften, jedoch kommt immer ein Runtime Error. Weiß nicht was ich falsch mache...

Vielen Dank für Eure Hilfe.

Viele Grüße
Sebastian

[pefeu]

Hallo Sebastian,

bei mir stirbt dein Code, wenn der ProjCounter auf 4 addiert wurde.
Das könnte heißen ,es gibt nur 3 ProjCounter?

Gruß Peter

[Sebastian82]

Hi Peter,

vielen Dank für Deine Antwort. Genau so passiert es bei mir auch. Wenn ich haber den Filter der Tabelle raus nehme, dann führt der das Makro ohne weiteres aus.

Ich kann das nicht nachvollziehen, bzw. habe da bis jetzt noch keine Lösung.

Viele Grüße
Sebastian

[pefeu]

Hallo Sebastian,

versuche es einmal so:

PHP-Code:

Sub CreateDataLabels()

   Dim Projekt As Series
   Dim SingleCell As Range
   Dim ProjList As Range
   Dim ProjCounter As Integer
   Dim SingleChart As ChartObject
       Set ProjList = Range("A30", Range("A30").End(xlDown))
       For Each SingleChart In ActiveSheet.ChartObjects
           ProjCounter = 1
       Set Projekt = SingleChart.Chart.SeriesCollection(1)
           Projekt.HasDataLabels = True
       For Each SingleCell In ProjList
           Projekt.Points(ProjCounter).DataLabel.Text = SingleCell.Value
           ProjCounter = ProjCounter + 1
           If Projekt.Points.Count < ProjCounter Then Exit For
       Next SingleCell
   Next SingleChart
End Sub

Gruß Peter


[Sebastian82]

Hi Peter,

vielen Dank für den Code, die Fehlermeldung ist weg, jedoch wird das Diagramm nicht mehr aktualisiert.

So langsam habe ich das Gefühl, dass das ein Bug in Excel ist...

Denn wenn ich den Filter raus nehme, dann sieht alles super aus, aber so bald ich den Filter setze, werden die Bubbles nicht mehr neu beschrieben...

Vielen Dank für Deine Hilfe und viele Grüße
Sebastian

[schauan]

Hallo Sebastian,

das Problem ist, dass Du einen Bereich über alle Zellen setzt, auch die weggefilterten. Du willst jedoch nur die sichtbaren verarbeiten. Dann ändere nur die Zeile mit dem Bereich von:
Set ProjList = Range("A30", Range("A30").End(xlDown))
in
Set ProjList = Range("A30", Range("A30").End(xlDown)).SpecialCells(xlCellTypeVisible)