Thema Datum  Von Nutzer Rating
Antwort
16.05.2023 03:18:31 Peter
NotSolved
16.05.2023 15:55:33 ralf_b
NotSolved
19.05.2023 10:55:21 Bernd
NotSolved
16.05.2023 22:57:19 Gast15772
NotSolved
17.05.2023 10:31:55 Gast77425
NotSolved
18.05.2023 00:53:21 Gast2234
NotSolved
18.05.2023 12:21:38 Gast18769
NotSolved
18.05.2023 12:25:50 Gast01233
NotSolved
18.05.2023 12:58:00 Gast42174
NotSolved
18.05.2023 13:11:57 Gast01288
NotSolved
Rot Userform
 19.05.2023 11:23:22 Gast8617
NotSolved

Ansicht des Beitrags:
Von:
Gast8617		 Datum:
19.05.2023 11:23:22		 Views:
299		 Rating:
     
Antwort:
  Ja
Thema:
Userform

Wie wäre es mit einer "Sperrung" der Formatierung von vornherein bzw. einer automatischen Zurücksetzung direkt nach dem Eintragen in eine jeweilige Zelle? Oder ist das nicht gewünscht?

 

In ein Modul:

Sub Worksheet_Change_Protected(ByVal Target As Range)

    Dim ZFormat As Variant
    On Error GoTo FehlerP
    ZFormat = Target.Value
    Application.EnableEvents = False
    Application.Undo
    Target.Value = ZFormat

FehlerExit:
    Application.EnableEvents = True
    Exit Sub

FehlerP:
    Resume FehlerExit

End Sub

 

In die jeweiligen Tabellen:

Private Sub Worksheet_Change(ByVal Target As Range)

   Worksheet_Change_Protected Target

End Sub

Ihre Antwort
  • 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: Name: Email:



  • 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
16.05.2023 03:18:31 Peter
NotSolved
16.05.2023 15:55:33 ralf_b
NotSolved
19.05.2023 10:55:21 Bernd
NotSolved
16.05.2023 22:57:19 Gast15772
NotSolved
17.05.2023 10:31:55 Gast77425
NotSolved
18.05.2023 00:53:21 Gast2234
NotSolved
18.05.2023 12:21:38 Gast18769
NotSolved
18.05.2023 12:25:50 Gast01233
NotSolved
18.05.2023 12:58:00 Gast42174
NotSolved
18.05.2023 13:11:57 Gast01288
NotSolved
Rot Userform
 19.05.2023 11:23:22 Gast8617
NotSolved