Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.09.2021 10:30:29 |
Maxi |
|
|
|
07.09.2021 10:52:25 |
Der Steuerfuzzi |
|
|
|
07.09.2021 11:29:09 |
Maxi |
|
|
|
07.09.2021 11:38:48 |
Gast19602 |
|
|
|
07.09.2021 11:40:57 |
Mase |
|
|
|
07.09.2021 11:44:42 |
Gast55876 |
|
|
|
07.09.2021 13:14:03 |
Gast16647 |
|
|
|
07.09.2021 13:59:10 |
Gast63813 |
|
|
|
07.09.2021 14:05:36 |
Gast50624 |
|
|
|
08.09.2021 09:46:07 |
Der Steuerfuzzi |
|
|
|
08.09.2021 10:07:41 |
Mase |
|
|
|
08.09.2021 11:49:37 |
Gast59658 |
|
|
|
08.09.2021 12:41:54 |
Mase |
|
|
|
08.09.2021 12:51:05 |
Der Steuerfuzzi |
|
|
Durchbrechen wir den Teufelskreis mit einem Beispiel |
08.09.2021 13:19:33 |
Gast58864 |
|
|
|
08.09.2021 13:44:15 |
Der Steuerfuzzi |
|
|
|
08.09.2021 22:02:53 |
Gast65589 |
|
|
|
08.09.2021 15:02:43 |
Mase |
|
|
Von:
Gast58864 |
Datum:
08.09.2021 13:19:33 |
Views:
470 |
Rating:
|
Antwort:
|
Thema:
Durchbrechen wir den Teufelskreis mit einem Beispiel |
Ein sehr einfach gehaltenes Beispiel:
Option Explicit
Private m_rngUndo As Excel.Range
Private m_blnFormatFettAlt As Boolean
Public Sub BeispielAktion()
'Beispiel erzeugen
Range("B2").Value = "Irgend ein Zelleninhalt."
'Aktion ausführen, welche optional vom Nutzer rückgängig gemacht werden kann/soll
Call FormatFett(Range("B2"))
End Sub
Public Sub FormatFett(Range As Excel.Range)
Set m_rngUndo = Range
m_blnFormatFettAlt = Range.Font.Bold
Range.Font.Bold = True
Call Application.OnUndo("Rückgängig - FormatFett", "FormatFett_Undo")
End Sub
Public Sub FormatFett_Undo()
If m_rngUndo Is Nothing Then
Exit Sub
End If
m_rngUndo.Font.Bold = m_blnFormatFettAlt
Set m_rngUndo = Nothing
End Sub
Eigentlich erklärt sich das von selbst...
Man kann diese Aktion nun über die GUI rückgängig machen.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.09.2021 10:30:29 |
Maxi |
|
|
|
07.09.2021 10:52:25 |
Der Steuerfuzzi |
|
|
|
07.09.2021 11:29:09 |
Maxi |
|
|
|
07.09.2021 11:38:48 |
Gast19602 |
|
|
|
07.09.2021 11:40:57 |
Mase |
|
|
|
07.09.2021 11:44:42 |
Gast55876 |
|
|
|
07.09.2021 13:14:03 |
Gast16647 |
|
|
|
07.09.2021 13:59:10 |
Gast63813 |
|
|
|
07.09.2021 14:05:36 |
Gast50624 |
|
|
|
08.09.2021 09:46:07 |
Der Steuerfuzzi |
|
|
|
08.09.2021 10:07:41 |
Mase |
|
|
|
08.09.2021 11:49:37 |
Gast59658 |
|
|
|
08.09.2021 12:41:54 |
Mase |
|
|
|
08.09.2021 12:51:05 |
Der Steuerfuzzi |
|
|
Durchbrechen wir den Teufelskreis mit einem Beispiel |
08.09.2021 13:19:33 |
Gast58864 |
|
|
|
08.09.2021 13:44:15 |
Der Steuerfuzzi |
|
|
|
08.09.2021 22:02:53 |
Gast65589 |
|
|
|
08.09.2021 15:02:43 |
Mase |
|
|