Shape per True/False färben

Private Sub Worksheet_Change(ByVal Target As Range) If ActiveSheet.Range("Y2").Value = True Then ActiveSheet.Shapes("Rechteck1").Fill.ForeColor.RGB = vbGreen ElseIf ActiveSheet.Range("Y2").Value = False Then ActiveSheet.Shapes("Rechteck1").Fill.ForeColor.RGB = vbRed End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$Y$2" Then If Me.Range("Y2").Value = True Then Me.Shapes("Rechteck 1").Fill.ForeColor.RGB = RGB(0, 255, 0) ElseIf ActiveSheet.Range("Y2").Value = False Then Me.Shapes("Rechteck 1").Fill.ForeColor.RGB = RGB(255, 0, 0) End If End If End Sub

Hallo Andreas,
Was du willst ist klar. Wie du es willst, nämlich über die LinkedCell Eigenschaft der Checkboxe(n) ist mehr als zweifelhaft! Ebenso zweifelhaft ist, dass 2 Checkboxen die gleiche LinkedCell benutzen. Änderst du den Zustand einer Checkbox, ändert sich damit automatisch auch der Zustand der anderen. Und noch einmal: Das _Change Ereignis ist hier völlig fehl am Platz, weil es nicht ausgelöst wird, durch die Zustandsänderung der Checkbox. In deinem Fall würde die Farbänderung nur dann ausgelöst, wenn in irgendeiner anderen Zelle als Y2 eine manuelle Eingabe erfolgt und das kann unmöglich dein Ziel sein, es sei denn du hast letzteres falsch mitgeteilt!
Also gilt für die beiden (ActiveX-)Checkboxen der gleiche Code, jeweils im entsprechenden Tabellenblatt der Checkbox:

Private Sub CheckBox1_Click()
With Worksheets("Timeline").Shapes("Rechteck 1")
.Fill.ForeColor.RGB = IIf(CheckBox1, vbGreen, vbRed)
End With
End Sub

Die LinkedCell Eigenschaft beider Checkboxen sollte leer bleiben!
Gruess Hansueli

...Andreas,
Ich hab deine Mappe leider zu spät gesehen.
Einige Anmerkungen:
Du hast von CheckBox und dem _Click Ereignis geredet, darum hab ich vorausgesetz, dass es ActiveX Steuerelemente sind. Du hast aber überall Formularsteuerelemente verwendet. Für diese muss ein Code anders aussehen! Welche Rechtecke grün/rot gefärbt werden sollen beschreibst du nicht. Ich vermute, dass es die links von den Checkboxen im Blatt "Timeline" sind. Leider korrelieren die Namen der Rechtecke nicht mit den Checkbox Namen. Ein typischer Fall von: Zuerst will ich mein Blatt schön gestalten und dann überlege ich mir wie ich die Funktionen einbaue, statt zuerst die Funktionen beschreiben und dann die Gestaltung!
Also... sorry ich bin raus!
Gruess Hansueli

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E2:E73")) Is Nothing Then Exit Sub For Each Zelle In Intersect(Target, Range("E2:E73")) If Zelle.Value = True Then Worksheets("Timeline").Shapes("Rechteck " & Target.Row - 1).Fill.ForeColor.RGB = _ RGB(0, 255, 0) Else Worksheets("Timeline").Shapes("Rechteck " & Target.Row - 1).Fill.ForeColor.RGB = _ RGB(255, 0, 0) End If End If End Sub

Sub Rechteck1() If Worksheets("Übersicht").Range("E2").Value = True Then Worksheets("Timeline").Shapes("Rechteck1").Fill.ForeColor.SchemeColor = 11 ElseIf Worksheets("Übersicht").Range("E2").Value = False Then Worksheets("Timeline").Shapes("Rechteck1").Fill.ForeColor.SchemeColor = 10 End If End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Shape per True/False färben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread