Punktdiagramm farbige Klassen

[klausulrich87]

Hallo liebe Community, 

ich möchte mit Excel ein Punktdiagramm erstellen, in dem die Punkte zusätzlich noch eingefärbt werden, um weitere Informationen darzustellen. 
In meinem Beispiel stelle die Abhängikeit zweier Winkel dar und möchte die Punkte, je nach Gesteinsart, einfärben. 

Viel Dank im Voraus
Klaus :)

[WillWissen]

Hi Klaus,

In meinem Beispiel stelle die...

wo ist das Beispiel?

[klausulrich87]

Ich meine: In meinem Bespiel stelle ich die Abhängigkeit zweier Winkel dar und möchte die Punkte, je nach Gesteinsart, einfärben.
Anbei ein Foto meines Diagramms.

   

Die einzelnen Punkte sollen je nach Gesteinsart eingefärbt werden :)


Danke sehr

[Mario]

Hi Klaus,

kannst du bitte einmal eine Beispieldatei hochladen.

VG Mario

[klausulrich87]

Hallo, 
das hier ist meine Tabelle mit Diagramm.

[Mario]

Hallo Klaus,

hier eine Lösung in VBA.

Code:

Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim objChart As Chart, objSerie As Series, wks As Worksheet
   Dim x As Integer
   Dim MyColor As Long
   Application.ScreenUpdating = False
   
   Set wks = Worksheets("Tabelle1") ' eventuell anpassen
   Set objChart = Worksheets("Tabelle1").ChartObjects(1).Chart 'eventuell anpassen
   Set objSerie = objChart.SeriesCollection(1)
   
   For x = 1 To objSerie.Points.Count
      'Wert in Spalte E (5) des Punktes prüfen
      Select Case wks.Cells(x + 1, 5).Value
        Case "Basalt"
          MyColor = 4 'rot
        Case "Sandstein"
          MyColor = 6 'gelb
        Case "Gneis"
          MyColor = 5 ' blau
        Case Else
          MyColor = 3 'grün
       
      End Select
   
      With objSerie.Points(x)
        .MarkerForegroundColorIndex = 1 'xlColorIndexAutomatic      'Linienfarbe Marker
        .MarkerBackgroundColorIndex = MyColor 'Füllfarbe Marker
        .MarkerSize = 5
        .Shadow = False
      End With
   Next x
   Application.ScreenUpdating = True
End Sub

Kopiere dies bitte unter das Tabellenblatt.

Bei Frage gerne,

VG Mario

[Mario]

Hallo Klaus,

hier deine Datei, ich habe dir den Code schon eingefügt.

VG Mario

[klausulrich87]

Wow! 
Ich bin richtig begeistert :)
Vielen vielen Dank. Das ist echt richtig Klasse.