Eigenschaft .locked im Range
Jörg
ich möchte gerne bei folgenden Code :
Set rngBereich = Worksheets(fbfile).Range("A:Z")
strSuch = "Auftrag Nr.:"
Set rngFund = rngBereich.Find(What:=strSuch, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not rngFund Is Nothing Then
If rngFund.Offset(0, 2).Value = "" Then
rngFund.Offset(0, 2).NumberFormat = "General"
rngFund.Offset(0, 2).FormulaLocal = "=WENN(" & sStartpage & "!$D$9="""";"""";" & _
_
sStartpage & "!$D$9)"
End If
End If
gerne noch bei der gefunden Variable rngfund die Zelle mit dem gleichen Offset
sperren.
Hierzu habe ich noch die Zeile
rngFund.Offset(0, 2).locked = true
hinzugefügt, aber erhalte nun immer Fehler.
Gibt es bei einen Range eine andere Art des Locked-Befehls ?
Gruß Jörg