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
Hallöchen,
hatte ich 8 Beiträge weiter oben schon beantwortet …
Zitat:Ü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
@ 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
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
...
kann man die schriftbarbe des Makros bzw. Teile davon ändern ,ich würde mir gern 2-3 erinnerungen anmakern !?
Hallöchen,
da nimmst Du Kommentare. Die werden mit einem Hockomma eingeleitet. Im VBA wird der grün
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
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
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
Hallöchen,
wo genau kommt der Fehler und in welcher Zeile?