VBA Excel: Erstellen eines Diagramms in einem Arbeitsblatt

Microsoft Excel verfügt über viele Werkzeuge zum Visualisieren von Daten und eines der mächtigsten davon ist das Erstellen von Diagrammen. Diagramme ermöglichen es Ihnen, Informationen visuell darzustellen, verschiedene Werte zu vergleichen und Muster aufzudecken. Sie sind besonders nützlich bei der Analyse großer Datenmengen oder bei der Anzeige von Trends im Laufe der Zeit.

Sie können die VBA-Programmiersprache (Visual Basic for Applications) zum Erstellen von Diagrammen in Excel verwenden. VBA ist ein Tool, mit dem Sie Aktionen in Excel automatisieren können, z. B. Diagramme erstellen und mit ihnen arbeiten.

Um mit VBA zu beginnen, müssen Sie den Visual Basic-Editor in Excel öffnen. Verwenden Sie dazu den Befehl "Entwickler" -> "Visual Basic-Editor" oder drücken Sie die Tastenkombination "Alt" + "F11". Nachdem Sie den Editor geöffnet haben, können Sie Makros erstellen, die die erforderlichen Aktionen ausführen, einschließlich der Erstellung von Diagrammen.

Um ein Diagramm in einem Arbeitsblatt in VBA zu erstellen, müssen Sie das Chart-Objekt verwenden. Auf dieses Objekt kann über die Diagrammeigenschaft des Worksheet-Objekts zugegriffen werden. Um beispielsweise einen Bartschnitt im aktiven Arbeitsblatt zu erstellen, können Sie den folgenden Code verwenden:

Sub CreateBarChart()

Dim ws As Worksheet

Dim cht As ChartObject

Set ws = ActiveSheet

Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=300, Height:=200)

cht.Chart.ChartType = xlColumnClustered

With cht.Chart

.SetSourceData Source:=ws.Range("A1:B10")

.HasTitle = True

.ChartTitle.Text = "Sales by Month"

End With

End Sub

In diesem Beispiel erstellen wir einen neuen Bartchart auf dem aktiven Excel-Arbeitsblatt, indem wir dessen Position und Größe angeben. Dann geben wir den Diagrammtyp an (xlColumnClustered ist ein gruppiertes Säulendiagramm). Als nächstes geben wir die Datenquelle für das Diagramm an (Bereich von A1 bis B10) und fügen einen Titel hinzu.

VBA Excel: Erstellen eines Diagramms in einem Arbeitsblatt

In Visual Basic für Applikationen (VBA) für Excel können Sie leistungsstarke Tools zum Erstellen und Verwalten von Diagrammen direkt in einem Arbeitsblatt verwenden. Das Erstellen eines Diagramms mit VBA ermöglicht die Automatisierung und Vereinfachung des Daten- und Visualisierungsprozesses.

Führen Sie die folgenden Schritte aus, um ein Diagramm in einem Arbeitsblatt mit VBA zu erstellen:

1. Wählen Sie die Zellen aus, die die Daten für das Diagramm enthalten.
2. Öffnen Sie den VBA-Editor, indem Sie ALT + F11 drücken.
3. Wählen Sie im VBA-Editor das Arbeitsblatt aus, auf dem sich das Diagramm befinden soll.
4. Schreiben Sie VBA-Code, um das Diagramm zu erstellen.
5. Führen Sie den Code aus, indem Sie die Tastenkombination F5 drücken.

Beispiel-VBA-Code zum Erstellen eines Diagramms in einem Arbeitsblatt:

Sub СоздатьДиаграмму()Dim ЛистДиаграмм As WorksheetDim Диаграмма As ChartObjectDim ДиапазонДанных As Range' Установить ссылку на лист, на котором будет находиться диаграммаSet ЛистДиаграмм = ThisWorkbook.Worksheets("Лист1")' Задать диапазон данных для диаграммыSet ДиапазонДанных = ЛистДиаграмм.Range("A1:B5")' Создать диаграмму на листеSet Диаграмма = ЛистДиаграмм.Shapes.AddChart.Chart' Задать тип диаграммыДиаграмма.ChartType = xlColumnClustered' Задать источник данных для диаграммыДиаграмма.SetSourceData ДиапазонДанных' Задать название диаграммыДиаграмма.HasTitle = TrueДиаграмма.ChartTitle.Text = "Моя диаграмма"End Sub

In diesem Beispiel wird ein Spaltendiagramm auf Blatt1 unter Verwendung von Daten aus dem Bereich A1:B5 erstellt. Das Diagramm erhält auch den Namen "Mein Diagramm".

Nach dem Ausführen des Codes wird das Diagramm auf dem ausgewählten Arbeitsblatt erstellt. Sie können verschiedene Diagrammoptionen wie Typ, Stil, Maßstab und vieles mehr mithilfe der entsprechenden Eigenschaften und Methoden des Diagrammobjekts anpassen.

Durch das Erstellen und Verwalten von Diagrammen in einem Arbeitsblatt mit VBA können Sie die Darstellung der Daten flexibel anpassen und automatisch verarbeiten. Es ist ein nützliches Werkzeug, um große Datenmengen zu verarbeiten und professionelle Berichte und Dashboards in Excel zu erstellen.

Arbeitsvorbereitung

Bevor Sie mit dem Erstellen eines Diagramms in einem Arbeitsblatt in VBA Excel beginnen, müssen Sie einige vorläufige Schritte ausführen:

1. VBA-Editor öffnen: Wählen Sie in Excel die Registerkarte "Entwickler" aus und klicken Sie auf die Schaltfläche "VBA bearbeiten". Dadurch wird der VBA-Editor geöffnet, in dem der Code geschrieben und bearbeitet wird.
2. Blatt auswählen: Wählen Sie im linken Bereich des VBA-Editors das Arbeitsblatt aus, auf dem Sie das Diagramm erstellen möchten. Klicken Sie darauf, um es auszuwählen.
3. Code schreiben: Beginnen Sie im rechten Bereich des VBA-Editors mit dem Schreiben von Code, um ein Diagramm zu erstellen. Verwenden Sie verschiedene Methoden und Eigenschaften von Excel-Objekten, um ein Diagramm zu erstellen und anzupassen.
4. Code ausführen: Wenn der Code geschrieben wurde, klicken Sie in der Symbolleiste des VBA-Editors auf die Schaltfläche Ausführen, oder drücken Sie die Tastenkombination F5. Der Code wird ausgeführt und das Diagramm wird auf dem ausgewählten Arbeitsblatt erstellt.

Nachdem Sie diese Schritte ausgeführt haben, können Sie Diagramme in Arbeitsblättern in VBA Excel mit dem von Ihnen geschriebenen Code erstellen und anpassen.

Auswählen eines Diagrammtyps

Wenn Sie ein Diagramm in einem Excel-Arbeitsblatt erstellen, müssen Sie den Diagrammtyp auswählen, der am besten zu Ihren Daten und Zielen passt. Excel enthält verschiedene Diagrammtypen, die jeweils für eine bestimmte Art von Daten und Analysen geeignet sind.

Sie können den Diagrammtyp mithilfe der integrierten Excel-Funktionen auswählen oder ein eigenes VBA-Makro schreiben. In beiden Fällen müssen Sie die Merkmale der Datenansicht und deren Zuordnung im Diagramm berücksichtigen.

Im Folgenden finden Sie eine Tabelle mit einer Beschreibung der wichtigsten Diagrammtypen, um Ihnen bei der Auswahl zu helfen:

Die Wahl des Diagrammtyps hängt davon ab, welche Informationen Sie weitergeben möchten und welchen Effekt Sie erzielen möchten. Fühlen Sie sich frei, mit verschiedenen Diagrammtypen zu experimentieren und wählen Sie die am besten geeignete Option für Ihre Arbeit aus.

Nachdem Sie den Diagrammtyp ausgewählt haben, können Sie mit VBA beginnen, das Diagramm selbst in einem Excel-Arbeitsblatt zu erstellen.

Erstellen und Anpassen eines Diagramms

Wenn Sie ein Diagramm in einem Excel-Arbeitsblatt mit VBA-Code erstellen, können Sie verschiedene Optionen und Einstellungen verwenden, um das gewünschte Ergebnis zu erzielen. Hier sind einige von ihnen:

• Diagrammtyp: Excel stellt verschiedene Diagrammtypen bereit, z. B. Säulen-, Kreis-, Liniendiagramme usw. Im VBA-Code können Sie mithilfe der ChartType-Eigenschaft den gewünschten Diagrammtyp angeben.
• Position und Bemaßungen des Diagramms: Mit den Eigenschaften Top , Left , Width und Height können Sie die Position und die Abmessungen des Diagramms im Arbeitsblatt angeben.
• Datenquelle: Sie müssen eine Datenquelle angeben, um ein Diagramm zu erstellen. Sie können dies mithilfe der SetSourceData-Eigenschaft tun, indem Sie einen Bereich von Zellen im Arbeitsblatt angeben.
• Titel und Unterschriften: Sie können ein Diagramm mit Überschriften und Beschriftungen für Achsen und Daten ergänzen. Dazu werden die Eigenschaften HasTitle , ChartTitle, HasAxisTitles, Axistitles usw. verwendet.
• Design und Stile: Excel bietet verschiedene Möglichkeiten zum Anpassen des Aussehens eines Diagramms. Mit den Eigenschaften ChartStyle , ColorPalette , PlotVisibleOnly usw. können Sie den Stil, die Farben und die Anzeige der Daten im Diagramm ändern.

Sub CreateChart()Dim ws As WorksheetDim cht As ChartObjectDim rng As Range' Указываем лист, на котором создается диаграммаSet ws = ThisWorkbook.Worksheets("Лист1")' Указываем диапазон с даннымиSet rng = ws.Range("A1:B10")' Создаем объект диаграммыSet cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=300, Height:=200)' Устанавливаем тип диаграммыcht.Chart.ChartType = xlColumnClustered' Устанавливаем источник данныхcht.Chart.SetSourceData rng' Добавляем заголовокcht.Chart.HasTitle = Truecht.Chart.ChartTitle.Text = "Диаграмма"' Добавляем заголовки осейcht.Chart.HasAxis(xlCategory, xlPrimary) = Truecht.Chart.Axes(xlCategory, xlPrimary).HasTitle = Truecht.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Категории"cht.Chart.Axes(xlValue, xlPrimary).HasTitle = Truecht.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Значения"' Устанавливаем стильcht.Chart.ChartStyle = 2' Устанавливаем цветовую палитруcht.Chart.ColorPalette = 5' Отображаем только данные на диаграммеcht.Chart.PlotVisibleOnly = TrueEnd Sub

In diesem Codebeispiel wird unter Verwendung des Zellbereichs A1 ein Balkendiagramm in Arbeitsblatt 1 erstellt:B10 als Datenquelle. Das Diagramm hat die angegebenen Abmessungen und Positionen auf dem Arbeitsblatt, den angegebenen Diagrammtyp, den Titel und die Achsenbeschriftungen. Sie verwendet auch einen bestimmten Stil und eine bestimmte Farbpalette.

In VBA Excel gibt es viele andere Eigenschaften und Methoden zum Anpassen des Diagramms, die je nach dem gewünschten Ergebnis verwendet werden können. Befassen Sie sich mit ihnen, um bunte und informative Diagramme in Ihren Projekten zu erstellen!

Hinzufügen von Daten

Um ein Diagramm in einem Arbeitsblatt in Excel mit VBA zu erstellen, müssen Sie zuerst die Daten hinzufügen, die im Diagramm dargestellt werden sollen. Die Daten können manuell eingegeben oder aus anderen Quellen abgerufen werden.

Es gibt mehrere Möglichkeiten, Daten einem Arbeitsblatt hinzuzufügen:

1. Manuelle Eingabe: In diesem Fall können Sie einfach die Zellen im Arbeitsblatt auswählen und die Daten eingeben. Sie können beispielsweise die Zellen A1: A5 auswählen und die Zahlen 10, 20, 30, 40 bzw. 50 eingeben. Wählen Sie für Textwerte die Zellen B1:B5 aus und geben Sie den Text ein.

2. Kopieren und Einfügen: Wenn die Daten bereits an einer anderen Stelle vorhanden sind, z. B. in einem anderen Arbeitsblatt oder einem externen Programm, können Sie die Daten kopieren und in das Zielblatt einfügen. Wählen Sie dazu die Daten aus und kopieren Sie sie, wählen Sie dann die Zelle im Arbeitsblatt aus, in die die Daten eingefügt werden sollen, und fügen Sie sie ein.

3. Abrufen von Daten aus anderen Quellen: Excel bietet die Möglichkeit, Daten aus verschiedenen Quellen wie Datenbanken, CSV-Dateien und anderen abzurufen. Verwenden Sie dazu die Datenimportwerkzeuge in Excel und wählen Sie die gewünschte Datenquelle aus.

Nachdem Sie dem Arbeitsblatt Daten hinzugefügt haben, können Sie mit dem Erstellen eines Diagramms mit VBA beginnen. Dazu müssen Sie den Datenbereich definieren, der zum Erstellen des Diagramms verwendet werden soll, und ein Diagrammobjekt des entsprechenden Diagrammtyps erstellen.

Beispielcode zum manuellen Hinzufügen von Daten:

Sub AddDataManually()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1")' Заполнение числовых данныхws.Range("A1:A5").Value = Application.Transpose(Array(10, 20, 30, 40, 50))' Заполнение текстовых данныхws.Range("B1:B5").Value = Application.Transpose(Array("Один", "Два", "Три", "Четыре", "Пять"))End Sub

In diesem Codebeispiel werden den Zellen A1:A5 und B1 numerische und Textinformationen zu Blatt "Sheet1" hinzugefügt:B5 bzw.

Im nächsten Abschnitt erfahren Sie, wie Sie ein Diagramm mit den hinzugefügten Daten erstellen.

Einrichten von Achsen und Legenden

Nachdem Sie ein Diagramm in einem Excel-Arbeitsblatt mit VBA erstellt haben, können Sie die Achsen und die Legende anpassen, um das Diagramm übersichtlicher und verständlicher zu machen.

Um die Achsen zu konfigurieren, müssen Sie die folgenden Parameter festlegen:

• Minimaler X/Y-Achsenwert: sie können den minimalen Achsenwert so festlegen, dass er mit den Datenwerten übereinstimmt. Verwenden Sie dazu einfach die Axis-Eigenschaft.MinimumScale und den entsprechenden Wert angeben.
• Maximaler Wert der X/Y-Achse: sie können den maximalen Achsenwert so festlegen, dass er mit den Datenwerten übereinstimmt. Verwenden Sie dazu einfach die Axis-Eigenschaft.MaximumScale und den entsprechenden Wert angeben.
• X/Y-Achsenabstand: sie können einen Achsenabstand festlegen, damit die Divisionen einheitlich und für die Analyse der Daten verständlich sind. Verwenden Sie dazu einfach die Axis-Eigenschaft.MajorUnit und geben Sie den entsprechenden Wert an.

Sie können die folgenden Optionen konfigurieren, um die Legende lesbarer und verständlicher zu machen:

• Name der Legende: sie können einen Legendennamen angeben, um die Essenz der Daten darzustellen. Es genügt, die Chart-Eigenschaft zu verwenden, um dies zu tun.Legend.Beschriftung und einen entsprechenden Namen angeben.
• Die Position der Legende: sie können die Position der Legende so einstellen, dass sie lesbar ist. Es genügt, die Chart-Eigenschaft zu verwenden, um dies zu tun.Legend.Position und einen der möglichen Werte angeben: xlLegendPositionTop , xlLegendPositionBottom , xlLegendPositionLeft oder xlLegendPositionRight .

Auf diese Weise können Sie mit VBA Excel die Achsen und die Legende im erstellten Diagramm einfach anpassen, um die Daten klarer und übersichtlicher zu machen.