Registriert seit: 24.11.2016
Version(en): 2016
Hallo,
ich möchte folgendes Makro per klick auf Button einschalten, und per nochmaligem Klick ausschalten!
Wie kann ich das machen?
LG Gerald
Sub Zeige()
'
' Zeige Makro
'
'
Columns("M:S").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$U$16", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16751204
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
wozu soll das gut sein? Da das Makro ohnehin manuell angestartet werden muss, ist doch alles OK.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 25.04.2016
Version(en): 2013
Ich denke, das ist eher gemeint
PHP-Code:
Selection.FormatConditions.Delete
Registriert seit: 24.11.2016
Version(en): 2016
Hallo,
wo muss ich das reinschreiben?
LG
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
25.09.2018, 11:04
(Dieser Beitrag wurde zuletzt bearbeitet: 25.09.2018, 11:04 von MisterBurns.)
@Gerald:
Du hast dich etwas unglücklich ausgedrückt, darum die Unklarheit.
Dein Makro formatiert ja die Spalten M:S nach den gewählten Vorgaben. Und du willst quasi mit einem Klick die Formatierung aktivieren bzw. wieder rückgängig machen, korrekt?
Dazu wäre ein Umschaltbutton geeignet, hinter den du folgenden Code legen kannst:
Code:
Private Sub ToggleButton1_Click()
if ToggleButton1.Value = true then
Columns("M:S").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="=$U$16", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16751204
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 10284031
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Else
Selection.FormatConditions.Delete
End If
End Sub
Schöne Grüße
Berni
Registriert seit: 24.11.2016
Version(en): 2016
Hallo
Danke an alle Antworten!
Ich werde es wohl doch anders lösen!
LG Gerald
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Das ist - offen gesagt - eine ziemlich sinnlose Antwort. Zuerst stellst du eine unklare Frage und wenn man dir eine Lösung präsentiert, gehst du zwar nicht drauf ein, willst aber eine andere Lösung umsetzen.
Schöne Grüße
Berni