![]() |
|
![]() |
#1 |
![]() Neuer Benutzer |
![]() Hallo,
ich habe folgenden Code: Code: Sub farbe_braun() 'ActiveSheet.Unprotect GrundDR = Application.InputBox("Kommentar zur Abwesenheit:") With Selection.Interior .ColorIndex = 53 Selection.Value = "D" Selection.ClearComments Selection.AddComment Selection.Comment.Visible = False Selection.Comment.Text Text:=GrundDR End With 'ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True End Sub Vielen Dank im Voraus! |
![]() |
![]() ![]() |