bedingteformatierung per umschalter prog

Hallo zusammen,
kann mir einer Helfen?
Wie kann ich Marko 1. in Makro 2. ausführen lassen
Danke für eure Hilfe
Marko 1.


Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If Application.Intersect(Range("i56:ni300"), Target) Is Nothing Then Exit Sub
If .Text = "PR" Then
.Interior.Color = RGB(197, 217, 241)
ElseIf .Text = "F" Then
.Interior.Color = RGB(217, 217, 217)
ElseIf .Text = "LZ" Then
.Interior.Color = RGB(217, 217, 217)
ElseIf .Text = "LO" Then
.Interior.Color = RGB(217, 217, 217)
ElseIf .Text = "3D" Then
.Interior.Color = RGB(204, 192, 218)
ElseIf .Text = "FG" Then
.Interior.Color = RGB(252, 213, 180)
End If
End With
End Sub

UND
Makro 2.


Private Sub ToggleButton1_Change()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "TB einblenden"
  hier Makro 1 ausgeführt werden
Else
ToggleButton1.Caption = "TB ausgeblendet"
Range("i56:ni300").FormatConditions.Delete
ich hoffe das ist richtig so
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dass Einzige, was diese Makros mit einer bedingten Formatierung zu tun haben:
Das Erste - GAR NIX - es färbt nur gewisse Zellen, wenn die Bedingungen zutreffen, aber das ist NICHT eine "bedingte Formatierung" im klassischen Sinne, sondern nur eine Formatierung mit Bedingungen.
Das Zweite: löscht alle WIRKLICHEN "bedingten Formatierungen".
Eine "bedingte Formatierung" braucht keinen Code, das macht Excel ganz alleine.
Google mal nach nach "bedingte Formatierung" - dann siehst du, was ich meine.
z.B.:
https://support.microsoft.com/de-de/office/verwenden-von-bedingter-formatierung-zum-hervorheben-von-informationen-fed60dfa-1d3f-4e13-9ecb-f1951ff89d7f
oder:
https://excelhero.de/bedingte-formatierung/bedingte-formatierung-ganz-einfach-erklaert/

Private Sub ToggleButton1_Change() Dim Z As Range Application.ScreenUpdating = False If ToggleButton1.Value = False Then ToggleButton1.Caption = "TB einblenden" For Each Z In Range("i56:ni300") Z.Font.Color = Z.Interior.Color Next Else Range("i56:ni300").Font.Color = 0 End If End Sub

Beliebteste Forumthreads (12 Monate)

bedingteformatierung per umschalter prog

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bedingteformatierung per umschalter prog

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread