habe folgen Code um die Aktive Zelle mit einem Muster zu färben.
Sub Seminar()
ActiveSheet.Unprotect "xxx"
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray16
.PatternColorIndex = xlAutomatic
End With
ActiveSheet.Protect "xxx", UserInterfaceOnly:=True
End Sub
Jetzt möcht ich gerne in den Code noch eingebaut haben das er mir einen Kommentar in die Aktive zelle zusätzlich einfügt. Es soll aber jedesmal etwas in den Kommtar eingegeben werden können nach Ausführung des Makros. Hat jemand vielleicht eine Idee oder kann mir Helfen. Ist es überhaupt möglich ?
Vielen Dank im Vorraus
Gruß Alex