Dynamisches Diagramm


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.



Schreibe einen Kommentar