Kommentare / farbige Felder

[Svhpe]

Meine Frage wäre noch ....wenn ich bereits einen Kommentar in der Zielzelle habe kommt eine Fehlermeldung

Laufzeitfehler 1004
Fehler der Methode "Add Comment des Objektes "Range"

wie besteht die Möglichkeit dieses abzustellen , bestehende Kommentare sollen überschrieben werden.

G
S

[schauan]

Hallöchen,

hatte ich 8 Beiträge weiter oben schon beantwortet …

Übrigens noch ein Hinweis. AddComment könnte einen Fehler bringen, sofern schon ein Kommentar vorhanden ist. Man müsste den dann zuvor entfernen.
z.B. If Not Range("C4").Comment is Nothing Then Range("C4").ClearComments

[Svhpe]

@ schauan .....hatte ich gelesen , danke .
Weiß nur nicht in welche Zeile dieser kommen sollte!

Momentan sieht das Modul bei mir so aus ....

Sub test()
Dim strText As String
strText = Range("=Feiertage!G4").Value
Range("='WAI 1.Halb'!B3").AddComment strText
Range("='WAII 1.Halb'!B3").AddComment strText
Range("='WAIII 1.Halb '!B3").AddComment strText
Range("='TD 1.Halb'!B3").AddComment strText
Range("='Vorlage 1.Halb.'!B3").AddComment strText

strText = Range("=Feiertage!C4").Value
Range("='WAI 1.Halb'!C3").AddComment strText
Range("='WAII 1.Halb'!C3").AddComment strText
Range("='WAIII 1.Halb '!C3").AddComment strText
Range("='TD 1.Halb'!C3").AddComment strText
Range("='Vorlage 1.Halb.'!C3").AddComment strText

End Sub

[schauan]

Hallöchen,

die kommt jeweils vor die Kommentarcodes:

If Not Range("='WAI 1.Halb'!B3").Comment is Nothing Then Range("='WAI 1.Halb'!B3").ClearComments
Range("='WAI 1.Halb'!B3").AddComment strText
If Not Range("='WAII 1.Halb'!B3").Comment is Nothing Then Range("='WAII 1.Halb'!B3").ClearComments
Range("='WAII 1.Halb'!B3").AddComment strText
...

[Svhpe]

kann man die schriftbarbe des Makros bzw. Teile davon ändern ,ich würde mir gern 2-3 erinnerungen anmakern !?

[schauan]

Hallöchen,

da nimmst Du Kommentare. Die werden mit einem Hockomma eingeleitet. Im VBA wird der grün

PHP-Code:

'Das ist ein Kommentar 


[Svhpe]

Könnte man das Löschen von den Kommentaren auch von B3:FZ3 auf mehren Blättern gleichzeitig machen ?

If Not Range("='WAI 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='WAII 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='WAIII 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='TD 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='Vorlage 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='Gesamt 1.Halb'!B3:FZ3").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='Gesamt 1.Halb'!B23:FZ23").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments
If Not Range("='Gesamt 1.Halb'!B43:FZ43").Comment Is Nothing Then Range("='WAI 1.Halb'!B3:FZ3").ClearComments

[schauan]

Hallöchen,

wenn Du Kommentare in einem Bereich generell löschen willst, sollte es auch ohne Prüfung gehen, im Prinzip

Range("B3:BZ3").ClearComments

[Svhpe]

Könnte jemand noch mal drüber schauen ich bekomme immer die Fehlermeldung Laufzeitfehlr 1004 , Fehler Medthode" AddComment"des Obkjektes"Range"

Sub Kommentare()
Dim strText As String
  strText = Range("=Feiertage!G4").Value '(NEUJAHR)
  Range("='WAI 1.Halb'!B3").AddComment strText
  Range("='WAII 1.Halb'!B3").AddComment strText
  Range("='WAIII 1.Halb'!B3").AddComment strText
  Range("='TD 1.Halb'!B3").AddComment strText
  Range("='Vorlage 1.Halb'!B3").AddComment strText
  Range("='Gesamt 1. Halb'!B3").AddComment strText
  Range("='Gesamt 1. Halb'!B23").AddComment strText
  Range("='Gesamt 1. Halb'!B43").AddComment strText

  strText = Range("=Feiertage!C5").Value '
  Range("='WAII 1.Halb'!C3").AddComment strText
  Range("='WAII 1.Halb'!C3").AddComment strText
  Range("='WAIII 1.Halb'!C3").AddComment strText
  Range("='TD 1.Halb'!C3").AddComment strText
  Range("='Vorlage 1.Halb'!C3").AddComment strText
  Range("='Gesamt 1. Halb'!C3").AddComment strText
  Range("='Gesamt 1. Halb'!C23").AddComment strText
  Range("='Gesamt 1. Halb'!C43").AddComment strText
 
End Sub

[schauan]

Hallöchen,

wo genau kommt der Fehler und in welcher Zeile?