Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

neue Daten in der Tabelle sollen automatisch im Diagrammm dargestellt werden.Wie geht das?





Frage

Meine Tabelle besteht aus 2 Spalten. In der ersten die Monate Jan-Dez. In der zweiten dazugehörige Umsatzzahlen. Ich will ein Diagramm, bei dem im Laufe des Jahres die neuen Daten des Monates ergänzt werden. Wenn man aber den ganzen Datenbereich (12 Monate)selektiert für die Erstellung des Diagrammes, sieht das Diagramm am Anfang des Jahres blöd aus, da die Zahlen noch fehlen und das Diagramm dafür Platz lässt. Ein Makro, der nur Zellen mit Inhalt markiert, hat auch nicht funktionirt. Bin total dankbar um Hilfe!

Antwort 1 von Event

Hallo

Kopiere nachstehendes Makro in Code-Berech des Tabellen Blattes mit den Daten und dem Diagramm:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&
Debug.Print ActiveSheet.ChartObjects(1).Name
i = Range("B65535").End(xlUp).Row
ChartObjects("Chart 1").Chart.SetSourceData Source:=Sheets("Tabelle1").Range("B2:B" & CStr(i))
End Sub


Gruß

Antwort 2 von sisiti03

Danke schon mal für die Hilfe!

Ich habe den Macro kopiert .Es kommt folgende Fehlermeldung: "Fehler beim kompilieren. Es wird Sub End erwartet".

Können Sie mir noch weiterhelfen?