Hallo zusmmen,
Ich möchte gerne dass wenn man das Kontrollkästchen anklickt, der Text / die Zelle mit Format durchgestrichen ist.
Wenn man wieder drauf klickt soll es wieder normal sein.
Also eigentlich wie in Outlook die Aufgaben-Funktion.
Ich habe auf dem Rechner kein Outlook deshalb möchte ich dies in Excel erledigen.
Grüße
dnbma
Hallo zusmmen,
Ich möchte gerne dass wenn man das Kontrollkästchen anklickt,
der Text / die Zelle mit Format durchgestrichen ist.Wenn man wieder drauf klickt soll es wieder normal sein.
Das ist XL-Standard im Format-Dialog.
Also muss man nur das Kästchen auch in eine der Symbolleiste rüberschieben. Da beginnt man mit Extras | Anpassen und nimmt sich die entsprechende Format-Funktion aus dem Befehle-Tab…
Hallo zusmmen,
Das ist XL-Standard im Format-Dialog.
Also muss man nur das Kästchen auch in eine der Symbolleiste
rüberschieben. Da beginnt man mit Extras | Anpassen und nimmt
sich die entsprechende Format-Funktion aus dem Befehle-Tab…
Ich möchte gerne dass wenn man das Kontrollkästchen anklickt,
der Text / die Zelle mit Format durchgestrichen ist.
Wenn man wieder drauf klickt soll es wieder normal sein.
Wie es über Anpassen geht weiß ich ja, aber ich würde es gerne über ein Kotrollkästche machen
Ich möchte gerne dass wenn man das Kontrollkästchen anklickt,
der Text / die Zelle mit Format durchgestrichen ist.
Wenn man wieder drauf klickt soll es wieder normal sein.
Hi dnbma,
in einer leeren Mappe den nachfolgenden Code in die beiden Module reinkopieren. Die Mappe bei „Speichern unter“ als „Excel Add-In (xla)“ abspeichern.
Über Extras—Add-In Manager dann die Mappe einbinden als Add-In
In der Menuleiste ist dann ein neues Symbol…
in „DieseArbeitsmappe“:
Option Explicit
’
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call SymbolLoeschen
End Sub
’
Private Sub Workbook_Open()
Call SymbolErzeugen
End Sub
’
In ein Standardmodul, z.B. Modul1:
Option Explicit
'
Sub SymbolErzeugen()
Dim cmbb As CommandBarButton
Call SymbolLoeschen
Set cmbb = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, temporary:=True)
With cmbb
.Caption = "Durchstreichen"
.FaceId = 578
.OnAction = ThisWorkbook.Name & "!DurchstreichenEin"
End With
Set cmbb = Nothing
End Sub
'
Sub SymbolLoeschen()
Dim C As CommandBarControl
For Each C In Application.CommandBars("Worksheet Menu Bar").Controls
If C.Caption = "Durchstreichen" Then
C.Delete
Exit For
End If
Next C
End Sub
'
Sub DurchstreichenEin()
Dim cmbb As CommandBarButton
On Error Resume Next
Selection.Font.Strikethrough = True
Set cmbb = Application.CommandBars("Worksheet Menu Bar").Controls("Durchstreichen")
With cmbb
.OnAction = ThisWorkbook.Name & "!DurchstreichenAus"
End With
Set cmbb = Nothing
End Sub
'
Sub DurchstreichenAus()
Dim cmbb As CommandBarButton
On Error Resume Next
Selection.Font.Strikethrough = False
Set cmbb = Application.CommandBars("Worksheet Menu Bar").Controls("Durchstreichen")
With cmbb
.OnAction = ThisWorkbook.Name & "!DurchstreichenEin"
End With
Set cmbb = Nothing
End Sub
Gruß
Reinhard
Hallo,
Danke
KONTROLLKÄSTCHEN 2 Makros?
Hallo zusammen,
danke schon mal für die Antworten. Ich weiß nicht ob ich die Frage falsch gestellt habe wenn ja tut es mir Leid. Ich möchte das ganze über ein KONTROLLKÄSTCHEN machen. Deshalb habe ich im Betreff auch mal 2 Makros geschrieben. Ich glaub doch dass man dafür 2 Makros braucht (durchstreichen und dann wieder normal).
Grüße dnbma
Hallo Reinhard,
sei mir net böse, aber Deine Lösung verschlechtert die Funktionalität des Originären Format Button - der erkennt beim Anwählen einer Zelle, welcher Auszeichnungszustand herrscht und bietet dann die entsprechende FUnktion an. Ich hab dnbma vorgeschlagen den Originären Formatbutton in eine Symbolleiste zu übernehmen und er besteht aber auf einer Checkbox, die Du auch net anbietest…
Vielleicht sollte ihr euch einfach noch mal meinen Vorschlag durch den Kopf gehen lassen und vor allem auch mal umsetzen und vergleichen!
Kontrollkästchen formatiert Zelle
danke schon mal für die Antworten. Ich weiß nicht ob ich die
Frage falsch gestellt habe wenn ja tut es mir Leid. Ich möchte
das ganze über ein KONTROLLKÄSTCHEN machen. Deshalb habe ich
im Betreff auch mal 2 Makros geschrieben. Ich glaub doch dass
man dafür 2 Makros braucht (durchstreichen und dann wieder
normal).
Hi dnbma,
dann halt ein Kontrollkästchen aus der Symbolleiste Formular, weise dem das nachfolgende Makro zu.
Haken im Kontrollfeld streicht A1 durch.
Sub Strich()
With ActiveSheet.Shapes(Application.Caller).ControlFormat
Range("A1").Font.Strikethrough = IIf(.Value = -4146, False, True)
End With
End Sub
Gruß
Reinhard
sei mir net böse, aber Deine Lösung verschlechtert die
Funktionalität des Originären Format Button - der erkennt beim
Anwählen einer Zelle, welcher Auszeichnungszustand herrscht
und bietet dann die entsprechende FUnktion an. Ich hab dnbma
vorgeschlagen den Originären Formatbutton in eine Symbolleiste
zu übernehmen und er besteht aber auf einer Checkbox, die Du
auch net anbietest…
Hallo Hans,
ich habe wenig Symbole in den Leisten, du meinst dieses durchgestrichene ABC als Symbol?
Okay, der leistet mehr, z.B. Teiltext durchstreichen.
K.A. warum das dnbma nicht will.
Gruß
Reinhard
Hallo Ihr,
Ich wollte das so weil ich mehrere Dige habe die zum Durchstreiche sind. Es geht auch schnellen wenn man die Buttons neben die Zellen setzt und dann ein Häckchen reinmacht und sieht dass es erledigt ist.
Ich kenne ja die andere Funktionen, aber immer die Zellen auswählen dann hoch zum Symbol fahren.
Grüße dnbma