Hallo hanswerne,
ändere in dem Makro das Wort "Target" gegen das Wort "ActiveCell". Dein Makro sähe dann wie folgt aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Sub ÄndernZelleigenschaft()
If ActiveCell.Offset(0) = "" Then
ActiveSheet.Unprotect Password:=[VLOOKUP(39, Variable!$B$1:$D$39, 2)]
ActiveCell.Offset(0, 18).Interior.ColorIndex = 35
ActiveCell.Offset(0, 18).Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, Password:=[VLOOKUP(39, Variable!$B$1:$D$39, 2)]
End If
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]