Thema Datum  Von Nutzer Rating
Antwort
Rot Ausgefüllte Zellen schützen, leere bleiben ausfüllbar
05.04.2022 17:05:13 S.Schönherr
NotSolved
05.04.2022 18:12:46 ralf_b
NotSolved
06.04.2022 08:23:50 S.Schönherr
NotSolved
06.04.2022 17:38:54 ralf_b
NotSolved
06.04.2022 21:34:42 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
S.Schönherr
Datum:
05.04.2022 17:05:13
Views:
237
Rating: Antwort:
  Ja
Thema:
Ausgefüllte Zellen schützen, leere bleiben ausfüllbar

Hallo zusammen!

Ich habe ein kleines Makro geschrieben, dass bei Einträgen in der vorgegebenen Spalte (Spalte 3) auslöst, wenn ein Wert eingetragen wird.

Datum, Uhrzeit und Nutzer werden automatisch ausgelesen und in die entsprechenden Spalten eingetragen. Außerdem sollen die ausgefüllten Zellen sofort vor Änderungen geschützt werden, die leeren Zellen sollen aber ausfüllbar bleiben.

Das klappt auch wunderbar. Aber nach einer zufälligen Anzahl an Einträgen (zwischen 3-10), sind plötzlich auch leere Zellen gesperrt. Wenn ich den Code jetzt in eine neue Datei übernehme, wird es noch abenteuerlicher. Da sperrt er meistens die Zeile, nur nicht die Zelle, in der der Wert eingetragen wurde. Der Wert eine Zeile darüber ist dann aber plötzlich gesperrt.

Da die Dateien, in denen ich das Makro anwenden will, sehr viele Daten enthalten, wollte ich Schleifen vermeiden, die jede Zelle abfragen, ob leer oder nicht. Dann rödelt Excel schon lange vor sich hin.

Meine Excel Version ist folgende: (Version 2202 Build 16.0.14931.20128) 64 Bit

 

Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo here
ActiveSheet.Unprotect

    Application.EnableEvents = False
    
    If Target.Column = 3 Then
        Range("A" & Target.Row) = Date
        Range("b" & Target.Row) = Time
        Range("D" & Target.Row) = Environ("Username")
    End If
        
        
    With ActiveSheet
        .Cells.Locked = True
        .Cells.SpecialCells(xlCellTypeBlanks).Locked = False
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With

here:
Application.EnableEvents = True
End Sub

 

Viele Grüße

Sophia


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
Rot Ausgefüllte Zellen schützen, leere bleiben ausfüllbar
05.04.2022 17:05:13 S.Schönherr
NotSolved
05.04.2022 18:12:46 ralf_b
NotSolved
06.04.2022 08:23:50 S.Schönherr
NotSolved
06.04.2022 17:38:54 ralf_b
NotSolved
06.04.2022 21:34:42 Gast7777
NotSolved