Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Ausführung Code vorher/hinterher (ent)sperren

Forumthread: Bei Ausführung Code vorher/hinterher (ent)sperren

Bei Ausführung Code vorher/hinterher (ent)sperren
28.02.2017 20:36:44
Simon
Hallo zusammen,
Hajo hat mir diesen tollen Code formuliert:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then
Application.EnableEvents = False
With Worksheets("Tabelle2")
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(Target.Row).Copy .Rows(2)
Rows(Target.Row).Delete
End With
Application.EnableEvents = True
End If
End Sub
Kurz beschrieben: Wenn in "Tabelle1" in Spalte 3 der Status "Erledigt" gesetzt wird, dann wird die gesamte Zeile in "Tabelle2" verschoben. "Tabelle2" soll eine Art Archiv darstellen.
Mein Problem ist nun, dass wenn ich bei Tabellenblatt "Tabelle2" den Blattschutz aktiviere (da dort nur noch gelesen werden soll), dann funktioniert der o. g. Code natürlich nicht mehr.
Könnte man den Code irgendwie ergänzen, dass der Blattschutz vor dem eigentlichen Code kurz aufgehoben wird und nach Beendigung des Codes wieder gesetzt wird?
Viele Grüße, Simon
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Ausführung Code vorher/hinterher (ent)sperren
28.02.2017 20:54:31
Werner
Hallo Simon,
With Worksheets("Tabelle2")
.Unprotect Password:="DeinPasswort"
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(Target.Row).Copy .Rows(2)
Rows(Target.Row).Delete
.Protect Password:="DeinPasswort"
End With
Gruß Werner
Anzeige
AW: Bei Ausführung Code vorher/hinterher (ent)sperren
28.02.2017 21:04:24
Simon
Vielen Dank!!! :-)
Gerne u. Danke für die Rückmeldung. o.w.T.
01.03.2017 10:15:30
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
01.03.2017 13:14:17
Simon
Könnte man noch irgendwie einbauen, dass man vor dem Verschieben der Zeile noch einmal z. B. über eine MsgBox sein Vorhaben bestätigen muss?
Denn wenn der Code ausgeführt wurde, gibt es ja keinn Zurück mehr.
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
01.03.2017 13:30:00
Werner
Hallo Simon,
aber sicher doch..
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then
Application.EnableEvents = False
With Worksheets("Tabelle2")
If MsgBox("Wollen Sie die Zeile wirklich verschieben?", _
vbYesNo + vbQuestion, "Sicherheitsabfrage") = vbYes Then
.Unprotect Password:="DeinPasswort"
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(Target.Row).Copy .Rows(2)
Rows(Target.Row).Delete
.Protect Password:="DeinPasswort"
Else
End If
End With
Application.EnableEvents = True
End If
End Sub
Gruß Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige