Zellbereich festlegen.
Heinz
Möchte im ersten Makro den Zellbereich C3:AG156 festlegen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Protect
Application.ScreenUpdating = False
Dim eing As String
Dim coKommentar As Comment
eing = InputBox("Kommentar eingeben!")
If eing "" Then
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End If
For Each coKommentar In ActiveSheet.Comments
coKommentar.Shape.DrawingObject.Font.Size = 12
coKommentar.Shape.OLEFormat.Object.AutoSize = True
Next coKommentar
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Habe selbst den Bereich C3:AG156 festgelegt.
Leider funktioniert es nicht.
Könnte mir bitte jemand weiterhelfen?
Danke & Gruß
Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim eing As String
Dim coKommentar As Comment
eing = InputBox("Kommentar eingeben!")
If eing "" Then
ActiveCell.Range("C3:AG156").AddComment
ActiveCell.Range("C3:AG156").Visible = False
ActiveCell.Range("C3:AG156").Comment.Text Text:=eing
End If
For Each coKommentar In ActiveSheet.Range("C3:AG156").Comments
coKommentar.Shape.DrawingObject.Font.Size = 12
coKommentar.Shape.OLEFormat.Object.AutoSize = True
Next coKommentar
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Anzeige