Diagramm 1
Das erste Diagramm funktioniert mit Makro. Durch Doppelklick in die Spalte A werden die einzelnen Diagramme ein-/ausgeblendet. DAs Diagramm wird hauptsächlich eingesetzt wenn man täglich Daten anzeigen möchte, d.h. ein Vergleich zu alten Daten ist nicht notwendig.
Code im VBA
Option Explicit
'Code in die Klasse Worksheet einfügen - Codename (Tabelle1) und Tabellename (Datentabelle) anpassen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
'
'Doppelklick nur in der Tabelle möglich
If Not Intersect(Target, Tabelle1.Range("Datentabelle")) Is Nothing Then
'Alle Farben in der Zelle zurücksetzen
Tabelle1.Range("Datentabelle").Interior.Color = xlNone
Cancel = True
For i = 2 To 8
'Daten der aktiveb Zelle in die erste Zeile kopieren
Tabelle1.Cells(1, i) = Tabelle1.Cells(Target.Row, i)
'Farbe der aktiven Zelle setzen
Tabelle1.Cells(Target.Row, i).Interior.ColorIndex = 8
Next i
End If
End Sub
Diagramm 2
Beim zweiten Diagramm kann man durch Auswahl der Steuerelemente die einzelnen Diagramme aus-/ausblenden. Der Vorteile dieser Methode ist, dass am Anfang alle Diagramm angezeigt werden. Man hat die Möglichkeit die einzelnen Diagramme miteinander zu vergleichen. Das Diagramm funktioniert ohne VBA und wird nur mit der Hilfstabelle umgesetzt. Die Hilfstabelle kann man in ein anderes Blatt legen und diese Blatt ausblenden,
Unterschied zwischen den Diagrammen
Diagramm 1 filtert die Daten nach der Zeile (Datum). und Diagramm 2 filtert nach der Spalte.
Dateiformat
Die Datei wurde mit Excel (Office 365) erstellt. Das Makro wurde mit VBA programmiert. Um das Makro nutzen zu können, muss die Datei heruntergeladen werden und die Sicherheit für Makro freigegeben werden.
Fragen
Sollten Sie Fragen, Anregungen, Ergänzungen oder weitere Informationen benötigen, dann nehmen Sie bitte mit mir Kontakt auf.
Schlusswort
Ich hoffe die Datei kann Ihnen in der Qualitätsplanung weiterhelfen.