Ecxel VBA problem

Question

Hallo folgendes VBA Problem

Sub KommentarErfassen()
Dim Kom As Comment
Dim s As String
s = InputBox _
("Geben Sie Ihren Kommentar ein!", "Kommentar erfassen")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text "Verdienst:" & Chr(10) & s
With Kom.Shape.TextFrame
.Characters.Font.Name = "Tahoma"
.Characters.Font.Size = 9
.AutoSize = True
End With
End Sub

FRÜHER MIT XP KEIN PROBLEM jetzt mit Vista fehlermeldung
kompilieren objekt oder bibliothek nicht gefunden

Answer 1

Hallo Nick,

der lief bei mir Fehlerfrei.

Gruß Hajo