Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1520to1524
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

Zelle entsperren

Zelle entsperren
08.11.2016 11:40:55
Berndt
Hallo zusammen,
im folgenden ein Teilauschnitt meines Makros
    FindStr = "aus Themenspeicher übertragen"
For Each WS In ThisWorkbook.Worksheets
Debug.Print UCase(WS.Name)
If (UCase(WS.Name) Like "*HERR*" Or UCase(WS.Name) Like "*FRAU*") Then
With WS
With .Range("B:B")
Set c = .Find(FindStr, LookIn:=xlValues)
If Not c Is Nothing Then
maxZell = .Cells(.Rows.Count, 2).End(xlUp).Row - c.Offset(1, 0).Row + 1
If maxZell  0 Then
Set rng = .Range(c.Offset(1, -1), c.Offset(maxZell, -1))
For Each Zell In rng
' Datenüberprüfung setzen
Zell.Offset(0, -1).Validation.Delete
Zell.Offset(0, -1).Validation.Add Type:=xlValidateList,  _
AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
Formula1:="x"
Zell.Offset(0, -1).Validation.IgnoreBlank = True
Zell.Offset(0, -1).Validation.InCellDropdown = True
Zell.Offset(0, -1).Validation.InputTitle = ""
Zell.Offset(0, -1).Validation.ErrorTitle = ""
Zell.Offset(0, -1).Validation.InputMessage = ""
Zell.Offset(0, -1).Validation.ErrorMessage = ""
Zell.Offset(0, -1).Validation.ShowInput = True
Zell.Offset(0, -1).Validation.ShowError = False
' Linie setzen "löschen?"
Zell.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, -1).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, -1).Borders(xlEdgeBottom).Weight = xlThin
' Linie setzen "Bemerkung"
Zell.Offset(0, 2).Borders(xlEdgeBottom).LineStyle = xlDot
Zell.Offset(0, 2).Borders(xlEdgeBottom).TintAndShade = 0
Zell.Offset(0, 2).Borders(xlEdgeBottom).Weight = xlThin
' Text links setzen
Zell.Offset(0, -1).HorizontalAlignment = xlLeft
' Text links setzen
Zell.Offset(0, 2).HorizontalAlignment = xlLeft
Next
End If
End If
End With
End With
WS.Protect , UserInterfaceOnly:=True
End If
Next
mit Zell.Offset(0, -1) & Zell.Offset(0, 2) wird neben der eigentlichen Zelle links und rechts noch eine weitere Zelle angefügt und formatiert.
Was muss ich hinzufügen um bei diesen 2 Befehlen via Makro das Häkchen bei Zelle formatieren\Schutz\gesperrt herauszunehmen.
Das heißt, ich möchte die 2 Zellen entsperren.
Kann jmd. helfen?
VG Berndt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.Locked=false owT
08.11.2016 11:48:38
Rudi
AW: .Locked=false owT
08.11.2016 13:41:20
Berndt
Sehr gut. Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige