ich möchte ein Diagramm erstellen, welches automatisch die Anzahl an Legendeneinträgen (Datenreihen) anpassen; und zwar so, dass nur Datenreihen angezeigt werden zu denen auch Daten vorhanden sind.
Das Diagramm greift auf eine Tabelle zu in der alle potentiellen Datenreihennamen erfasst sind. Die zugehörigen Zeilen mit den Daten zu den Datenreihen sind entweder leer oder eben befüllt je nachdem ob daten vorhanden sind oder nicht.
Ich habe nun folgenden Plan, freue mich aber über einfachere Lösungswege:
1. In der Tabelle werden nur Zellen mit Inhalt markiert
2. Die Zellen werden kopiert
3. Die Zellen werden weiter unten im Datenblatt eingefügt
4. Ein Bereich wird erstellt, welcher sich automatisch an die Anzahl der vorhandenen Spalten/Zeilen anpasst
5. Das Diagramm bezieht sich auf diesen Bereich und passt sich damit automatisch an.
Ich habe dazu folgenden VBA Code zusammengebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngC As Range, rngF As Range
If Target.Address = "$I$3" Then
Set rngC = Worksheet("Jahr_Projekt").Range("A3:Z25").Cells.SpecialCells(xlCellTypeConstants)
Set rngF = Worksheet("Jahr_Projekt").Range("A3:Z25").Cells.SpecialCells(xlCellTypeFormulas)
Union(rngC, rngF).Select
Selection.Copy
Worksheet("Jahr_Projekt").Range("B31").Select
Worksheet("Jahr_Projekt").Paste
End If
End Sub
1. Ich erhalte nun die Fehlermeldung, das Sub ist nicht definiert o.Ä. und verstehe nicht wieso
2. Würde ich mich über Lösungsansätze zum o.g. Vorhaben freuen.
Vielen Dank im Voraus!
Euer Anton