zuerst der Code:
Sub Kommentar_name(planinummer, usernummer)
With Sheets("Spieler").Range("B5")
.AddComment
.Comment.Visible = False
.Comment.Text Text:="" & (Sheets("User").Cells(planinummer, usernummer))
End With
With Selection.Font
.name = "Verdana"
.FontStyle = "Fett"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Die beiden variablen werden richtig übergeben, und geben der Ort an, aus dem der Text für den Kommentar genommen werden soll.
Allerdings ist das Problem schon vorher:
Wenn ich den Sub, von dem aus die variablen übergeben werden, klappt dort alles, nur läuft der im Code oben auf den Fehler:
Laufzeitfehler '1004'
Anwendungs- oder objektdefinierter Fehler
Beim debuggen wird diese Zeile angezeigt:
.AddComment
Ich habe auch schon
Range("B5").AddComment
ausprobiert, bzw. das war da vorher, aber da kam der gleiche Fehler.
Was ist falsch?
Grüße aus Ibbenbüren
Manuel