Zelle entsperren
08.11.2016 11:40:55
Berndt
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