Diagramm aktualisieren in Excel mit VBA
Schritt-für-Schritt-Anleitung
Um ein Diagramm in Excel per VBA zu aktualisieren, folge diesen Schritten:
-
Öffne den Visual Basic-Editor: Drücke ALT + F11 in Excel.
-
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
-
Füge den folgenden Code ein, um den Datenbereich des Diagramms zu aktualisieren:
Sub diagramm_datenbereich()
Dim chDiagramm As Chart
Dim letzteZeile As Long
' Ermittle die letzte belegte Zeile
letzteZeile = Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
With Worksheets("Tabelle1")
Set chDiagramm = .ChartObjects("Diagramm 2").Chart
chDiagramm.SetSourceData Source:=Range(.Cells(5, 2), .Cells(letzteZeile, .Cells(letzteZeile, 7).End(xlToRight).Column)).Address
End With
Set chDiagramm = Nothing
End Sub
-
Schließe den Editor und kehre zu Excel zurück.
-
Füge einen Button hinzu: Gehe zu Entwicklertools > Einfügen > Button (Formularsteuerung).
-
Weise das Makro zu: Klicke mit der rechten Maustaste auf den Button und wähle Makro zuweisen....
Jetzt kannst Du das Diagramm in Excel mit einem Klick aktualisieren!
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du kein VBA nutzen möchtest, kannst Du das Diagramm auch manuell aktualisieren:
- Klicke mit der rechten Maustaste auf das Diagramm.
- Wähle
Daten auswählen.
- Passe den Datenbereich manuell an.
Eine andere Möglichkeit ist, Excel Diagramme automatisch zu aktualisieren, indem Du die Option für die automatische Aktualisierung aktivierst.
Praktische Beispiele
Hier sind einige nützliche Beispiele, um verschiedene Diagramme in Excel zu aktualisieren:
-
Diagramm in einem Diagrammblatt:
Dim Blattname As String
Dim Diagrammname As String
Blattname = "Hauptmotorliste"
Diagrammname = "Hauptmotorliste-Dia"
Charts(Diagrammname).SetSourceData Source:=Worksheets(Blattname).Range(Worksheets(Blattname).Cells(3, 2), Worksheets(Blattname).Cells(letzteZeile, letzteSpalte))
-
Diagramm manuell aktualisieren:
Sub manuellesDiagrammAktualisieren()
Dim chDiagramm As Chart
Set chDiagramm = Worksheets("Tabelle1").ChartObjects("Diagramm 2").Chart
chDiagramm.Refresh
End Sub
Tipps für Profis
- Nutze Variablen: Statt feste Werte wie 30 zu verwenden, nutze Variablen, um den Code flexibler zu gestalten.
- Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um Probleme beim Aktualisieren des Diagramms zu vermeiden.
- Automatisierung: Du kannst das Diagramm automatisch aktualisieren lassen, indem Du das Makro beim Öffnen der Datei oder bei bestimmten Änderungen ausführst.
FAQ: Häufige Fragen
1. Wie aktualisiere ich ein Diagramm in Excel automatisch?
Du kannst Excel so einstellen, dass das Diagramm automatisch aktualisiert wird, wenn die Daten geändert werden. Dies geschieht in der Regel durch die Verwendung von dynamischen Datenbereichen.
2. Was tun, wenn mein Diagramm sich nicht automatisch aktualisiert?
Überprüfe die Datenquelle des Diagramms und stelle sicher, dass der Datenbereich korrekt definiert ist. Möglicherweise musst Du auch das Makro anpassen, um sicherzustellen, dass es die richtigen Zellen erfasst.