Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Verbundene Zellen nach Eingabe sperren

Verbundene Zellen nach Eingabe sperren
04.12.2020 11:26:46
Jan
Hallo zusammen,
ich habe ein Problem mit verbunden Zeilen. Ich weiß das diese immer wieder bei der nutzung von Makros probleme bereiten. Leider kann ich in diesem Fall die Tabelle nicht ändern. Das unten genannte Makro funktionier bei Tabellen ohne verbundenen Zellen perfekt. Nur hier kommt folgende Fehlermeldung:
"Laufzeitfehler `1004´ - Die Locked-Eigenschaften des Range-Objektes kann nicht festgelegt werden.
Das Makro sieht wie folgt aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle1.Unprotect "test"
If VBA.IsEmpty(Target) Then
Target.Locked = False
Else
Target.Locked = True
End If
Tabelle1.Protect "test"
End Sub

Hat jemand eine Idee wie es klappen könnte ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verbundene Zellen nach Eingabe sperren
04.12.2020 12:06:23
EtoPHG
Hallo Jan,
so:
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "test"
Target.MergeArea.Cells.Locked = Not IsEmpty(Target.Cells(1, 1))
Protect "test"
End Sub
Gruess Hansueli
AW: Verbundene Zellen nach Eingabe sperren
04.12.2020 12:21:08
Jan
Perfekt, das klappt super. Vielen Dank, habe wieder was gelernt.
AW: Verbundene Zellen nach Eingabe sperren
04.12.2020 12:06:36
Werner
Hallo,
Private Sub Worksheet_Change(ByVal Target As Range)
Tabelle1.Unprotect "Test"
If IsEmpty(Target) Then
If Target.MergeArea.MergeCells Then
For Each Target In Target.MergeArea.Cells
Target.MergeArea.Cells.Locked = False
Next Target
Else
Target.Locked = False
End If
Else
If Target.MergeArea.MergeCells Then
For Each Target In Target.MergeArea.Cells
Target.MergeArea.Cells.Locked = True
Next Target
Else
Target.Locked = True
End If
End If
Tabelle1.Protect "Test"
End Sub
Gruß Werner
Anzeige

171 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige