09.11.2020, 21:58
(05.11.2020, 07:37)schauan schrieb: [ -> ]Hallöchen,
Ich glaube, eine Linie in ein Blatt einzufügen und diese in Rohr1 umzubenennen könnte auch ohne Beispieldatei klappen
Für die Programmierung kann man zuweilen auch den Makrorekorder nutzen. Siehe dazu
Ich habe mal eine Linie erzeugt und rot gefärbt. Dabei ist das herausgekommen. Wenn Du Dir das anschaust, ist da einiges dabei, was auch Ralf benutzt hat. Nur ist sein Färben in einer Zeile untergebracht.
Code:Sub Makro1()
'
' Makro1 Makro
'
'
ActiveSheet.Shapes.Range(Array("Rohr1")).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
End Sub
Eingekürzt und nach Deinem bisherigen Prinzip könnte man es so schreiben
Code:Sub Blinken()
If ActiveSheet.Shapes.Range(Array("Rohr1")).Line.ForeColor.RGB = RGB(0, 176, 240) Then
ActiveSheet.Shapes.Range(Array("Rohr1")).Line.ForeColor.RGB = RGB(197, 90, 17)
Else
ActiveSheet.Shapes.Range(Array("Rohr1")).Line.ForeColor.RGB = RGB(0, 176, 240)
End If
End Sub
und wenn Du Dich mal über With informierst und das verwendest geht es noch kürzer
Code:Sub Blinken()
With ActiveSheet.Shapes.Range(Array("Rohr1")).Line.ForeColor
If .RGB = RGB(0, 176, 240) Then
.RGB = RGB(197, 90, 17)
Else
.RGB = RGB(0, 176, 240)
End If
End With
End Sub
Aber mal unabhängig davon sollte man überlegen, dass so ein Blinken schon belastend ist.
Hallo Andre,
vielen herzlichen Dank.
1) Deine Beiträge sind immer so umfangreich, dass es auch für Anfänger gut verständlich sind. :15:
2) Den Makrorekorder verwende ich immer wieder, aber dieses mal konnte ich meine Ziel damit nicht umsetzten.
3) Bezüglich: "Aber mal unabhängig davon sollte man überlegen, dass so ein Blinken schon belastend ist." => Es sollte nicht immer blinken, sondern nur bestimmte Zeit bis Einweisung kommt diesen Makro(Blinken) wieder zu stoppen.
Viele Grüße
Andre