Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Diagramme auf ein Blatt mit For- Schleife

Forumthread: Mehrere Diagramme auf ein Blatt mit For- Schleife

Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 19:08:01
Nemyk
Hallo Zusammen,
seit vielen Tagen setze ich vor dem Rechner und versuche herauszufinden, was ich fasch gemacht habe bzw. wo der Fehler im unterstehenden Code ist.
In den Spalten B bis O habe ich die Monaten. Jeder einzelner Monat ist dreimal vorhanden (d. h. in der Spalte B = Jan15, Spalte C = Jan15, Spalte D = Jan15, Spalte E = Feb15, ... etc)
In der Spalte A habe ich die Namen (Ab A5 ... A_x, x = 7 im Moment)
Nun zum eigentlichen Problem !
Ich möchte für jede Zeile ab A5 ein Säulendiagramm mit jeweils 3 Säulen (3 Säulen für ein Monat) erstellen.
Aufgrund der Vielzahl der Zeilen möchte ich eine For-Schleife benutzen. Genau beim Einsatz dieser For-Schleife tritt das Problem auf. Die Erstellung eines Säulendiagramm funktioniert soweit sehr gut, wenn ich die For-Schleife als Kommentar und IngZeile = 6 (beispielweise) setze.
Für jede Hilfe bin sehr dankbar !
Bis Später Nemyk
Sub Saeulendiagramme()
Set wksTab = Worksheets("TAB_ENOM")
Dim oCT As ChartTitle
Dim lngZeile As Long
IngZeile = 6
'For lngZeile = 5 To 7
Dim ws As Worksheet
Set ws = ActiveSheet
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Auslast._Graph_" & Format(Now, "yyyymmdd_hhmmss")
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=wksTab.Range("B5")
.SeriesCollection(1).XValues = Union(wksTab.Range("C" & 4), wksTab.Range("F" & 4),  _
wksTab.Range("I" & 4), wksTab.Range("L" & 4), wksTab.Range("O" & 4), wksTab.Range("R" & 4))
.SeriesCollection(1).Values = Union(wksTab.Range("B" & IngZeile), wksTab.Range("E" &   _
_
IngZeile), wksTab.Range("H" & IngZeile), wksTab.Range("K" & IngZeile), wksTab.Range("N" &  _
IngZeile), wksTab.Range("Q" & IngZeile))
.SeriesCollection(1).Interior.ColorIndex = 20
.SeriesCollection(1).Name = "A Stunden"
.SeriesCollection(1).ApplyDataLabels ShowValue:=True
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = Union(wksTab.Range("C" & IngZeile), wksTab.Range("F" &   _
_
IngZeile), wksTab.Range("I" & IngZeile), wksTab.Range("L" & IngZeile), wksTab.Range("O" &  _
IngZeile), wksTab.Range("R" & IngZeile))
.SeriesCollection(2).Interior.ColorIndex = 26
.SeriesCollection(2).Name = "B Stunden"
.SeriesCollection(2).ApplyDataLabels ShowValue:=True
.SeriesCollection.NewSeries
.SeriesCollection(3).Values = Union(wksTab.Range("D" & IngZeile), wksTab.Range("G" &   _
_
IngZeile), wksTab.Range("J" & IngZeile), wksTab.Range("M" & IngZeile), wksTab.Range("P" &  _
IngZeile), wksTab.Range("S" & IngZeile))
.SeriesCollection(3).Interior.ColorIndex = 36
.SeriesCollection(3).Name = "C Stunden"
.SeriesCollection(3).ApplyDataLabels ShowValue:=True
' Make sure the chart has a title
'Chart
.HasTitle = True
' Get the ChartTitle object
Set oCT = .ChartTitle
' Format the ChartTitle
With oCT
.Caption = wksTab.Range("A" & IngZeile)
.Font.Name = "Times New Roman"
.Font.Size = 15
.Border.LineStyle = xlContinuous
.Border.Weight = xlThin
.Shadow = True
End With
Set oCT = Nothing
End With
Next IngZeile
End Sub

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 19:16:21
Beverly
Hi Nemyk,
und WAS funktioniert nicht?
Eine hochgeladene Beispielmappe ist übrigens immer wesentlich hilfreicher als eine ungefähre Beschreibung des Tabellenausbaus.

AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 19:39:39
Nemyk
Hallo Karin,
Vielen Dank für die schnelle Antwort !
Die For-Scheife funktioniert bis dato leider nicht. Ich bekomme eine Fehlermeldung "Next ohne For"
Anbei die XLS-File mit Beispieldaten
https://www.herber.de/bbs/user/92887.xlsx
Für jede Hilfe bin ich dankbar !

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 20:13:19
Beverly
Hi Nemyk,
also rigendwir komme ich mit dem was du im Beitrag geschrieben hast und dem was dein Code aussagt nicht so richtig klar. Was soll denn nun gemacht werden:
1. soll für jedes Diagramm ein neues Tabellenblatt erstellt werden oder soll 1 neues Tabellenblatt erstellt und darauf dann alle Diagramme?
2. sollen die Diagramme mit jeweils 3 Datenreihen erstellt und sozusagen in Dreierschritten die Schleife durchlaufen werden und danach jeweils ein neues Diagramm erstellt werden, wobei die Leerzeile anzeigt, dass dort ein neues Diagrmam beginnt?
Übrigens: wenn du eine Mape mit Code hast, dann musst du sie im Format .xlsm abspeichern, sonst ist der Code beim erneuten Öffnen weg.

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 20:27:05
Nemyk
Hallo Karin,
Danke für die Rückmeldung !
1. Es soll ein neues Tabellenblatt erstellt und darauf dann alle Diagramme.
2. Jedes Diagramm soll mit 3 Datenreihen (3 Säulen pro Diagramm) erstellt werden.
Ich hoffe, dass es jetzt verständlicher ist.
Vielen Dank noch Deine Bemühungen
Nemyk

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 20:41:12
Beverly
Hi Nemy,
ausgehend von deiner Mappe - welche Zellen sollen ganz konkret in das 1. Diagramm? Vielleicht könntest du ja mal von Hand 1 Diagramm erstellen.
Was soll die Leerzeile?

AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 21:15:57
Nemyk
Hallo Karin,
ich habe jetzt die Excel-Datei mit Makro erstellt. Das Diagramm siehst Du, wenn Du der Code kompilierst. Dabei habe ich die For-Schleife weggenommen und nur für einen bestimmten Wert IngZeile = 6 versucht.
https://www.herber.de/bbs/user/92889.xlsm
Vielen Dank !

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 22:33:27
Beverly
Hi Nemyk,
ich würde es so lösen: zuerst ein Diagramm aus den Zeilen 4 und 5 erstellen, dann dieses kopieren und die Zeilenbezüge für die Datenreihen anpassen
Sub Saeulendiagramme()
Dim lngZeile As Long
Dim wksTab As Worksheet
Dim strTabelle As String
Set wksTab = Worksheets("TAB_ENM")
strTabelle = "Auslast._Graph_" & Format(Now, "yyyymmdd_hhmmss")
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = strTabelle
Application.ScreenUpdating = False
With Worksheets(strTabelle)
With .Shapes.AddChart.Chart
.ChartType = xlColumnClustered
With .SeriesCollection.NewSeries
.XValues = Union(wksTab.Range("C4"), wksTab.Range("F5"), wksTab.Range("I4"), _
wksTab.Range("L4"), wksTab.Range("O4"), wksTab.Range("R4"))
.Values = Union(wksTab.Range("B5"), wksTab.Range("E5"), wksTab.Range("H5"), _
wksTab.Range("K5"), wksTab.Range("N5"), wksTab.Range("Q5"))
.Interior.ColorIndex = 20
.Name = "Anwesenheitsstunden"
.ApplyDataLabels ShowValue:=True
End With
With .SeriesCollection.NewSeries
.Values = Union(wksTab.Range("C5"), wksTab.Range("F5"), wksTab.Range("I5"), _
wksTab.Range("L5"), wksTab.Range("O5"), wksTab.Range("R5"))
.Interior.ColorIndex = 26
.Name = "Auftragsbearbeitungs Stunden"
.ApplyDataLabels ShowValue:=True
End With
With .SeriesCollection.NewSeries
.Values = Union(wksTab.Range("D5"), wksTab.Range("G5"), wksTab.Range("J5"), _
wksTab.Range("M5"), wksTab.Range("P5"), wksTab.Range("S5"))
.Interior.ColorIndex = 36
.Name = "Kalkulierte Stunden"
.ApplyDataLabels ShowValue:=True
End With
.HasTitle = True
With .ChartTitle
.Caption = wksTab.Range("A5")
.Font.Name = "Times New Roman"
.Font.Size = 15
.Border.LineStyle = xlContinuous
.Border.Weight = xlThin
.Shadow = True
End With
End With
For lngZeile = 6 To 7
.ChartObjects(1).Chart.ChartArea.Copy
Application.Goto reference:=Worksheets(strTabelle).Range("A1")
ActiveSheet.Paste
With .ChartObjects(.ChartObjects.Count).Chart
With .SeriesCollection(1)
.XValues = Union(wksTab.Range("C" & 4), wksTab.Range("F" & 4), wksTab.Range("I" & _
4), _
wksTab.Range("L" & 4), wksTab.Range("O" & 4), wksTab.Range("R" & 4))
.Values = Union(wksTab.Range("B" & lngZeile), wksTab.Range("E" & lngZeile), _
wksTab.Range("H" & lngZeile), wksTab.Range("K" & lngZeile), _
wksTab.Range("N" & lngZeile), wksTab.Range("Q" & lngZeile))
End With
With .SeriesCollection(2)
.Values = Union(wksTab.Range("C" & lngZeile), wksTab.Range("F" & lngZeile), _
wksTab.Range("I" & lngZeile), wksTab.Range("L" & lngZeile), _
wksTab.Range("O" & lngZeile), wksTab.Range("R" & lngZeile))
End With
With .SeriesCollection(3)
.Values = Union(wksTab.Range("D" & lngZeile), wksTab.Range("G" & lngZeile), _
wksTab.Range("J" & lngZeile), wksTab.Range("M" & lngZeile), _
wksTab.Range("P" & lngZeile), wksTab.Range("S" & lngZeile))
End With
.HasTitle = True
.ChartTitle.Caption = wksTab.Range("A" & lngZeile)
.Parent.Top = Worksheets(strTabelle).ChartObjects(lngZeile - 5).Top + _
Worksheets(strTabelle).ChartObjects(1).Height
.Parent.Left = Worksheets(strTabelle).ChartObjects(lngZeile - 5).Left
End With
Next lngZeile
End With
Set wksTab = Nothing
Application.ScreenUpdating = False
End Sub

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
30.09.2014 18:51:23
Nemyk
WAOUH !!!!
Vielen Dank Karin !
Es funktioniert, wie ich es mir vorgestellt habe.
Ich hätte gerne noch einen Wunsch. Alle Namen, von A bis G lassen sich mit einem Filter aussortieren. Jeder einzelne Name oder alle Namen gleichzeitig können ausgewählt werden, bevor die Erstellung der Diagramme stattfinden.
Wie kann ich der VBA-Code jetzt anpassen
Vielen Dank für Deine Hilfe !
Gruß, Nemyk

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
30.09.2014 21:07:28
Beverly
Hi Nemyk,
es wäre wesentlich hilfreicher und produktiver gewesen, wenn du diese Bedingung gleich von Anfang an erwähnt hättest, dann hätte ich den Code jetzt nicht extra umschreiben müssen, denn mein Konzept funktioniert so nicht mehr wie unter den zuerst genannten Bedingungen - der Code war nämlich genau an diese angepasst. Beachte das bitte in Zukunft - das erspart den Helfern viel zustzliche Arbeit.
Sub Saeulendiagramme()
Dim lngZeile As Long
Dim wksTab As Worksheet
Dim strTabelle As String
Dim lngZaehler As Long
Dim blnStart As Boolean
Set wksTab = Worksheets("TAB_ENM")
strTabelle = "Auslast._Graph_" & Format(Now, "yyyymmdd_hhmmss")
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = strTabelle
Application.ScreenUpdating = False
With Worksheets(strTabelle)
For lngZeile = 5 To 11
If wksTab.Rows(lngZeile).Hidden = False Then
If blnStart = False Then
With .Shapes.AddChart.Chart
.ChartType = xlColumnClustered
With .SeriesCollection.NewSeries
.XValues = Union(wksTab.Range("C4"), wksTab.Range("F5"), _
wksTab.Range("I4"), wksTab.Range("L4"), wksTab.Range("O4"), _
wksTab.Range("R4"))
.Values = Union(wksTab.Range("B5"), wksTab.Range("E5"), _
wksTab.Range("H5"), wksTab.Range("K5"), wksTab.Range("N5"), _
wksTab.Range("Q5"))
.Interior.ColorIndex = 20
.Name = "Anwesenheitsstunden"
.ApplyDataLabels ShowValue:=True
End With
With .SeriesCollection.NewSeries
.Values = Union(wksTab.Range("C5"), wksTab.Range("F5"), _
wksTab.Range("I5"), wksTab.Range("L5"), wksTab.Range("O5"), _
wksTab.Range("R5"))
.Interior.ColorIndex = 26
.Name = "Auftragsbearbeitungs Stunden"
.ApplyDataLabels ShowValue:=True
End With
With .SeriesCollection.NewSeries
.Values = Union(wksTab.Range("D5"), wksTab.Range("G5"), _
wksTab.Range("J5"), wksTab.Range("M5"), wksTab.Range("P5"), _
wksTab.Range("S5"))
.Interior.ColorIndex = 36
.Name = "Kalkulierte Stunden"
.ApplyDataLabels ShowValue:=True
End With
.HasTitle = True
With .ChartTitle
.Caption = wksTab.Range("A5")
.Font.Name = "Times New Roman"
.Font.Size = 15
.Border.LineStyle = xlContinuous
.Border.Weight = xlThin
.Shadow = True
End With
End With
blnStart = True
Else
lngZaehler = lngZaehler + 1
.ChartObjects(1).Chart.ChartArea.Copy
Application.Goto reference:=Worksheets(strTabelle).Range("A1")
ActiveSheet.Paste
With .ChartObjects(.ChartObjects.Count).Chart
With .SeriesCollection(1)
.XValues = Union(wksTab.Range("C" & 4), wksTab.Range("F" & 4), _
wksTab.Range("I" & 4), wksTab.Range("L" & 4), _
wksTab.Range("O" & 4), wksTab.Range("R" & 4))
.Values = Union(wksTab.Range("B" & lngZeile), _
wksTab.Range("E" & lngZeile), wksTab.Range("H" & lngZeile), _
wksTab.Range("K" & lngZeile), wksTab.Range("N" & lngZeile), _
wksTab.Range("Q" & lngZeile))
End With
With .SeriesCollection(2)
.Values = Union(wksTab.Range("C" & lngZeile), _
wksTab.Range("F" & lngZeile), wksTab.Range("I" & lngZeile), _
wksTab.Range("L" & lngZeile), wksTab.Range("O" & lngZeile), _
wksTab.Range("R" & lngZeile))
End With
With .SeriesCollection(3)
.Values = Union(wksTab.Range("D" & lngZeile), _
wksTab.Range("G" & lngZeile), wksTab.Range("J" & lngZeile), _
wksTab.Range("M" & lngZeile), wksTab.Range("P" & lngZeile), _
wksTab.Range("S" & lngZeile))
End With
.HasTitle = True
.ChartTitle.Caption = wksTab.Range("A" & lngZeile)
.Parent.Top = Worksheets(strTabelle).ChartObjects(lngZaehler).Top + _
Worksheets(strTabelle).ChartObjects(1).Height
.Parent.Left = Worksheets(strTabelle).ChartObjects(1).Left
End With
End If
End If
Next lngZeile
End With
Set wksTab = Nothing
Application.ScreenUpdating = False
End Sub

Anzeige
AW: Mehrere Diagramme auf ein Blatt mit For- Schleife
29.09.2014 19:51:02
Nemyk
Hallo Karin,
Vielen Dank für die schnelle Antwort !
Die For-Scheife funktioniert bis dato leider nicht. Ich bekomme eine Fehlermeldung "Next ohne For"
Anbei die XLS-File mit Beispieldaten
https://www.herber.de/bbs/user/92887.xlsx
Für jede Hilfe bin ich dankbar !
Anzeige
;

Forumthreads zu verwandten Themen

Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Variable vo einem Blatt in Modul übergeben
Gordon

Moin,
ich habe auf meinem Blatt ("Test") eine Variable mit einem Wert. Mit diesem Wert soll auch in meinen Moduken 1 und 2 gearbeitet werden. Wie übergebe ich am besten diesen Wert an die Module? Danke schon mal für die Auskunft! :-)
Gruß
Gordon
27.10.2008 07:32:50
Thread-ID: 1019508
5 Beiträge
Anzeige
zwei Spalten in einem zusammenfassen
Yuki

Morgen Leute,
Könnt Ihr mir bitte erklären, wie man zwei Spalten in Excel-Datei mit Marko in einem Spalt zusammenfassen kann?
Beispiel:
vorher
Spalt A: hello Spalt B: kitty
nachher
Spalt A: hello kitty
Danke schön!
07.11.2008 09:54:43
Thread-ID: 1022541
6 Beiträge
KGrösste in einem Jahr
Louis

Hallo Forum,
ich bräuchte mal eure Hilfe.
In Spalte A stehen Jahreszahlen.
In Spalte B stehen Werte.
Jetzt möchte ich den grössten Wert des Jahres 2008 ermitteln.
in etwa so:
=wenn(A1:A100=2008;kgrösste(B1:B100;1))
ich habe es auch schon mit summenprodukt probiert, a...
06.12.2008 23:37:00
Thread-ID: 1030782
5 Beiträge
Uhrzeitprüfung einer Textbox in einem UserForm
Lenhard

Moin Excellianer!!
Ich habe ein UserForm mit einer TextBox, welche ich folgender Prüfung unterworfen habe:
Private Sub CommandButton1_Click() With TextBox1 If Len(.Text)
Nun habe ich aber eine weitere TextBox, bei der eine Zeiteingabe geprüft werden soll. Die Eingabe soll folgend...
11.12.2008 20:11:27
Thread-ID: 1032201
9 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Suche nach einem Ansatz besser nach einer Lösung
Sibylle

Hallo,
ich komme mal wieder nicht weiter.
Wie erstellt man aus der ersten Teiltabelle die zweite Teiltabelle?
Die Daten der ersten Tabelle können ruhig nach Uhreit sortiert werden, falls dies die Lösung erleichert.
Mit Spannung bitte ich um Lösungsvorschläge.
Gruß
Sibyll...
06.02.2009 16:22:00
Thread-ID: 1047831
6 Beiträge
Zweite X-Achse in einem Diagramm?
Karl

Guten Morgen liebe Excel-Experten,
ist es möglich in einem Punktdiagramm eine zweite X-Achse, die die Y-Achse oben beim Maximalwert schneidet, einzufügen? Auf dieser zweiten X-Achse sollen die logarithmierten Werte der "normalen" X-Achse angezeigt werden.
Wie gehe ich da vor?
Danke...
10.02.2009 09:41:00
Thread-ID: 1048920
4 Beiträge
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Anzeige
mehrere CSV-Dateien in einem Ordner splitten
Teck

Hallo Excel Experten,
auch nach stundenlangem Suchen auf diversen Excel-Seiten, bin ich leider nicht auf eine Lösung meines Problems gestoßen.
Mein Ziel ist es, mehrere CSV Dateien, die möglicherweise Überlänge haben (mehr als 65.536 Zeilen), aber alle in einem Ordner gespeichert sind,...
19.08.2009 13:00:31
Thread-ID: 1097079
4 Beiträge
Tabellenblatt mit mehreren Diagrammen erstellen
wernerp

Ich habe ein Tabellenblatt mit mehreren Datenblöcken, aus denen ich
Säulendiagramme erstellen und auf dem Tabellenblatt ablegen will.
Es ist das erstenmal, dass ich dabei mit dem ChartObjekt arbeite.
Die Erstellung eines Diagramms bekomme ich hin. Das Problem ist,
dass die n...
21.08.2009 11:59:29
Thread-ID: 1097642
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Diagramme auf ein Blatt mit VBA erstellen

Schritt-für-Schritt-Anleitung

Um mehrere Diagramme in Excel gleichzeitig zu erstellen, kannst Du eine For-Schleife in VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt mit den Daten, die Du für die Diagramme verwenden möchtest. Stelle sicher, dass die Daten in einem geeigneten Format angeordnet sind (Monate in den Spalten B bis O und Namen in Spalte A ab A5).

  2. Öffne den VBA-Editor, indem Du Alt + F11 drückst.

  3. Füge einen neuen Modul hinzu:

    • Rechtsklick auf "VBAProject (deinDateiname)" → Einfügen → Modul.

  4. Füge den folgenden VBA-Code ein:

    Sub Saeulendiagramme()
   Dim lngZeile As Long
   Dim wksTab As Worksheet
   Set wksTab = Worksheets("TAB_ENOM")
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "Diagramm_" & Format(Now, "yyyymmdd_hhmmss")
   For lngZeile = 5 To 7
       With ActiveSheet.Shapes.AddChart.Chart
           .ChartType = xlColumnClustered
           .SetSourceData Source:=wksTab.Range("B" & lngZeile & ":O" & lngZeile)
           ' Weitere Anpassungen hier...
       End With
   Next lngZeile
End Sub

  5. Passe den Code an, um verschiedene Diagramme zu erstellen, indem Du die Datenreihen für jedes Diagramm in der Schleife definierst.

  6. Führe den Code aus und überprüfe das neu erstellte Diagrammblatt.

Häufige Fehler und Lösungen

  • Fehlermeldung "Next ohne For": Überprüfe, ob alle Schleifen korrekt geöffnet und geschlossen sind. Stelle sicher, dass jede For-Anweisung auch ein entsprechendes Next hat.

  • Diagramme werden nicht korrekt angezeigt: Achte darauf, dass die Datenbereiche für die Diagramme korrekt definiert sind. Möglicherweise musst Du die SetSourceData-Methode anpassen, um die richtigen Zellreferenzen zu verwenden.

  • Excel mehrere Diagramme gleichzeitig erstellen funktioniert nicht: Stelle sicher, dass Du den richtigen Diagrammtyp und die korrekten Datenreihen in der Schleife angibst.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du auch mehrere Diagramme manuell erstellen. Hier sind einige Methoden:

  • Diagramme kopieren: Erstelle ein Diagramm und kopiere es dann, um es für die anderen Daten zu verwenden. Du musst lediglich die Datenreihen anpassen.

  • Diagrammgruppen: Verwende Excel-Funktionen, um mehrere Diagramme in einem Diagrammblatt zu gruppieren. Dies ist jedoch weniger flexibel als die Verwendung von VBA.

Praktische Beispiele

Hier ist ein Beispiel, wie Du mehrere Diagramme in einem Diagrammblatt erstellen kannst:

  1. Erstelle ein Säulendiagramm für die ersten drei Monate:

    .SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Union(wksTab.Range("C4"), wksTab.Range("F4"), wksTab.Range("I4"))
.SeriesCollection(1).Values = Union(wksTab.Range("B6"), wksTab.Range("E6"), wksTab.Range("H6"))

  2. Füge ein weiteres Diagramm hinzu, indem Du die Schleife für weitere Zeilen anpasst.

Tipps für Profis

  • Verwende Application.ScreenUpdating = False, um die Bildschirmaktualisierung während der Ausführung des Codes zu deaktivieren. Dies beschleunigt den Prozess.

  • Erstelle ein benutzerdefiniertes Diagrammformat, um ein einheitliches Erscheinungsbild für alle Diagramme zu gewährleisten.

  • Nutze Filter, um nur die gewünschten Daten in den Diagrammen anzuzeigen. Dies kann durch das Anpassen des VBA-Codes erledigt werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Diagramme in einem Diagrammblatt erstellen? Du kannst eine For-Schleife verwenden, um Diagramme für verschiedene Datenreihen zu erstellen. Achte darauf, die Daten korrekt zu referenzieren.

2. Was mache ich, wenn Excel mehrere Diagramme gleichzeitig erstellen nicht funktioniert? Überprüfe den VBA-Code auf Syntaxfehler und stelle sicher, dass alle Diagrammreferenzen korrekt sind.

3. Kann ich verschiedene Diagrammtypen in einem einzigen Blatt verwenden? Ja, Du kannst in einer Schleife verschiedene Diagrammtypen erstellen, indem Du die .ChartType-Eigenschaft für jedes Diagramm anpasst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige