title image


Smiley Kommentar einfügen bei aktivierten Blattschutz Version II
hallo vossy,

so ist es besser:



Sub kommentarBeiBlattschutz()

Dim SAlt As String

Dim SNeu As String

If ActiveCell.Locked = True Then Exit Sub 'dies Zeile auskommentieren wenn in allen zellen kommentare zulassig sind

ActiveSheet.Unprotect

With Selection

On Error Resume Next

SAlt = .Comment.Text

If SAlt = "" Then .AddComment

SNeu = SAlt & Chr(10) & InputBox(SAlt & Chr(10) & "KOMMENTARTEXT ANGEBEN")

If SAlt = "" Then SNeu = Right(SNeu, Len(SNeu) - 1)

.Comment.Text SNeu

.Comment.Shape.TextFrame.AutoSize = True

End With

ActiveSheet.Protect

End Sub



gruss georg
Beiträge zu Excel 2002 in Verbindung mit Win XP

 A
1Tabellentool
2von StrgAltEntf


Gibts hier


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: