Supportnet / Forum / Tabellenkalkulation

Guten Abend Habe mir mit eurer Hilfe ein Kalender erstellt, ich schütze die einzelnen Tabellenblätter durch aufrufen eines Makros siehe. Sheets("JANUAR").Select ActiveSheet.Protect "neinnein" Sheets("FEBRUAR").Select ActiveSheet.Protect "neinnein" Sheets("März").Select ActiveSheet.Protect "neinnein" Usw. Bis hier funktioniert es einwandfrei. Einzelne Zellen in den Tabellenblättern sind ungeschützt. Dort soll es möglich sein ein Kommentar einzufügen, und genau das bekomme ich nicht hin! Mit freundlichen Grüßen Hans

Moin Hans,

Kommentare kannst Du nur einfügen, wenn der Blattschutz nicht gesetzt ist. Wenn Du aber den Blattschutz verwenden musst, kannst Du das ganze nur über ein Makro oder über eine UserForm oder so, realisieren. Nachfolgend mal ein Makro, dass trotz Blattschutz ermöglicht, ein Kommentarfeld in der markierten Zelle einzufügen. Kopiere es in ein StandardModul und starte es über eine Befehlsschaltfläche.

Option Explicit

Sub Kommentar()
Dim Kommentar As String
Rem: Inputbox für Kommentartext öffnen
Kommentar = InputBox("Bitte Kommentar eingeben", "Kommentartext eingeben...")
Rem: Wenn kein Text eingegeben wurde, Prozedur beenden
If Kommentar = "" Then Exit Sub
With ActiveSheet
Rem: Blattschutz aufheben, zwischen die beiden Anführungszeichen gehört das Passwort
.Unprotect "Hier das Blattschutzpasswort eintragen"
Rem: In der markierten Zelle den Text aus der Variablen "Kommentar" als Kommentar einfügen
ActiveCell.AddComment Text:=Kommentar
Rem: Blattschutz aktivieren, zwischen die beiden Anführungszeichen gehört das Passwort
.Protect "Hier das Blattschutzpasswort eintragen"
End With
End Sub

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Moin

Und besten Dank für deine kompetente Hilfe!

Hat einwandfrei funktioniert.

Habe noch ein Anliegen. Ist es möglich die Schriftgröße z.b. ( 16 ) im Kommentar fest zulegen bzw. vor dem einfügen durch das Makro einzustellen. .

mfg
Hans

Hallo Hans,

dann sieht der Code wie folgt aus:

Option Explicit

Sub Kommentar()
Dim Kommentar As String
Rem: Inputbox für Kommentartext öffnen
Kommentar = InputBox("Bitte Kommentar eingeben", "Kommentartext eingeben...")
Rem: Wenn kein Text eingegeben wurde, Prozedur beenden
If Kommentar = "" Then Exit Sub
With ActiveSheet
Rem: Blattschutz aufheben, zwischen die beiden Anführungszeichen gehört das Passwort
.Unprotect "Hier das Blattschutzpasswort eintragen"
Rem: In der markierten Zelle den Text aus der Variablen "Kommentar" als Kommentar einfügen
With ActiveCell
.AddComment Text:=Kommentar
.Comment.Shape.TextFrame.Characters.Font.Size = 24
.Comment.Shape.TextFrame.Characters.Font.Name = "Times New Roman"
End With
Rem: Blattschutz aktivieren, zwischen die beiden Anführungszeichen gehört das Passwort
.Protect "Hier das Blattschutzpasswort eintragen"
End With
End Sub

Die Zeilen, die das Format betreffen habe ich untrerstrichen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Moin - Moin

Nochmals besten Dank !!

Alles Perfekt :-)

Mit freundlichen Grüßen
Hans

• Kommentar aus anderem Blatt
• Werte per Makro kopieren
• Verschieben von Zeilen in Blätter mit Namensprinzip
• Shortcut für Kommentaranzeige in Excel?
• nachtstunden in mehren bereichen ausrechnen????