Fabränderung einer Grafik durch Tabelle
06.02.2019 14:55:38
Benjamin
mein erster Beitrag.
Ich plage mich aktuell mit einer Herausforderung, an welcher in den Denkfehler nicht finde.
Die Aufgabe ist, bei Änderung einer Liste mit den Drop-Down Werten "Neu", "Zugewiesen", "In Bearbeitung", "Abgeschlossen" eine Grafik Farblich anzupassen.
Dies konnte ich soweit lösen.
Nun muss ich die Basistabelle, allerdings in ein neues Tabellenblatt umziehen, damit ich alle Werte in einer Reihe habe, was die Formel vereinfachen soll.
Hier hängt es nun, da in der Tabelle das Makro automatisch ausgeführt werden soll.
Über Foren habe ich diverse Ansätze gefunden, leider startet er dann entweder das Makro nicht mehr oder er gibt Fehler aus.
Könnt ihr mir weiterhelfen, dass ich die erste Privat Sub automatisieren kann, wenn aus einem anderen Tabellenblatt der Wert per =Projektplan!F18; =Projektplan!F28 etc. weiter gereicht wird und nun in D11:D25 ausgegeben wird?
------------------------------
Worksheet Selection Change
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z, z1, z2, s1, s2 As Integer
z1 = 11: z2 = 50: s1 = 4: s2 = 4
z = Target.Row: s = Target.Column
Set Target = Intersect(Target, Range("D11:D12"))
If ((z >= z1) And (z = s1) And (s ---------------------------------
Modul 2 - Farbe_Aendern
Sub Farbe_Aendern(z As Integer)
'
Dim Farbe, i As Integer
Dim Text As String
Dim Texte, Farben As Variant
Texte = Array("Neu", "Zugewiesen", "In Bearbeitung", "Abgeschlossen")
Farben = Array(43, 46, 27, 4) '43 Gelbgrün, 4 Grün, 27 Gelb, 46 Orange'
'Farbe bestimmen
Text = Cells(z + 10, 4) 'aktuellen Text auslesen
For i = 0 To 3
If Texte(i) = Text Then Farbe = Farben(i)
Next i
'Farbe für den aktuellen Datenpunkt einstellen
Worksheets("Projektstatus").ChartObjects("Diagramm 4").Activate
ActiveChart.SeriesCollection(2).Points(z).Select
Selection.Interior.ColorIndex = Farbe
'ActiveSheet.Cells(z + 10, 4).Select
Worksheets("Projektplan").Activate
End Sub