Ich schon wieder, hab schooooon wieder ein Problem bei dem ich
nicht weiterkomme.
Mit dem Code:
Sub addCelebrationComment1()
Dim rng As Range, rngD As Range
Dim strTemp
Set rngD = Sheets("Übersicht").Range("u21:u27,x19:x29,aa19:aa29,ad18:ad30,al19:al29,an19:an29, _
ap19,ar19:ar23") 'Tabellenname anpassen
rngD.ClearComments
For Each rng In rngD
If IsDate(rng) And rng "" Then
strTemp = Komment(rng.Value)
If strTemp "" Then
rng.AddComment strTemp
rng.Comment.Shape.TextFrame.AutoSize = True
End If
End If
Next
End Sub
füge ich in einem Kalender die Feiertage als Kommentar ein.
Die Rangeangaben sind etwas anders, die bestehenden sind schon dem neuen Blatt angepasst
und "Komment" bezeichnet einen Bereich aus dem die neuen Daten gelesen werden sollen.
Nun soll er aber nicht mit dem Datum ("IsDate") vergleichen, sondern mit Werten im Range Bereich,
die ganz normale Zahlen von 1 bis 54 enthalten. Ich denke, das der Befehl "IfDate da nicht ganz richtig ist,
da muß etwas anderes rein.
Aber ich hab leider keine Ahnung was.
Kann mir da jemand weiterhelfen, wäre Toll.
Danke und Gruß Harald