Fehler bei AddComment
27.07.2015 15:32:43
Juli
warum meldet mir vba bei dem Code:
Set Kommentar = Worksheets("Tabelle1").Cells(4, Spalte).AddComment
eine "Anwendungs- oder objektdefinierter Fehler" - Meldung?
Der komplette Code:
Sub Markiere_KW(iKW As Integer, iJahr As Integer, Bezeichnung As String)
Dim Kommentar As Variant
Dim Spalte, SpalteMax As Long
Dim KWgegeben, KWgesucht As Integer
If iKW > 0 And iJahr > 0 And iJahr = 2014 Then
'markiere im Bereich "2014"
SpalteMax = Worksheets("Tabelle1").Cells(3, 56).Column
KWgegeben = iKW
For Spalte = 5 To SpalteMax
KWgesucht = Worksheets("Tabelle1").Cells(3, Spalte)
If KWgegeben = KWgesucht Then
Worksheets("Tabelle1").Cells(4, Spalte).Interior.ColorIndex = 5
Set Kommentar = Worksheets("Tabelle1").Cells(4, Spalte).AddComment
Kommentar.Visible = True
Kommentar.Text Text:=Bezeichnung
Kommentar.Shape.LockAspectRatio = msoTrue
Kommentar.Shape.Height = 15
Kommentar.Shape.Width = 25
Kommentar.Shape.IncrementTop 6.75
Kommentar.Shape.Fill.ForeColor.SchemeColor = 5
Exit For
End If
Next Spalte
End If
End Sub