AW: mal (m)eine Variante ...
01.07.2019 16:56:50
Leon.DerProf
Nun das ist leider nicht zielführend. Eine interessante Möglichkeit hast du dir hingebastelt, aber leider ist sie kein Ersatz für eine Form.
Es fängt schon damit an, dass die Kameraaufnahme keine Pfeilform, geschweige kompliziertere Formen, annehmen kann. Die Bildaufnahme sieht auch nicht so "clean" aus wie die Formen.
Aber danke für deine Mühe Matthias und du hast meine Bewunderung für deine Freude an Herausforderungen.
Kurzum, mit Excel allein kann man keine bedingte Formatierung für Formen erstellen. Ihr könnt gerne im Netz oder in Büchern suchen, aber sowas gibt es nicht. Also schon mal Danke für Nichts an Robert.
Jedoch, falls sich der ein oder andere dennoch dafür interessiert, wie man es mit VBA programmieren kann, hier ist meine Lösung und diese Lösung ist sogar ganz ohne sinnlose Kommentare, "Dank" geht nochmal an Robert.
Ihr must in das Editor-Fenster der Tabelle folgendes hinzufügen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim y As Integer
y = -1
Do
y = y + 1
If Range("Tabelle2[Vorbedingung]").Range("A1").Offset(y, 0) "" Then
FarbeZeit
End If
Loop Until y > 400
End Sub
Weil das ganze Tabellenblatt-übergreifend gehen soll, macht ihr in z.B. Modul1 folgendes rein.
Sub FarbeZeit()
Dim x As Integer
Dim festNr As Long
On Error GoTo Vorbei
x = -1
Do
x = x + 1
If Range("Tabelle2[Vorbedingung]").Range("A1").Offset(x, 0) "" Then
festNr = Range("Tabelle2[Nr.]").Range("A1").Offset(x, 0).Value
With Tabelle1.Shapes("Zeit " & festNr).Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
End If
Loop Until x > 300
Vorbei:
End Sub