Hallo,
folgender Code liefert einen Laufzeitfehler 91:
Dim i As Long
With Tabelle1.Cells(3 + i, 3)
On Error Resume Next
salt = "" ' Bugfix ?!!!
salt = .Comment.Text
If Len(salt) = 0 Then .AddComment
.Comment.Text Text:=salt
.Comment.Visible = False
.Comment.Shape.TextFrame.AutoSize = True
End With
Mit der Zeile salt = "" läuft der Code jedoch problemlos durch.
Ich wüßte aber gern, wie ich den Laufzeitfehler noch loswerde,
um auf die beiden Zeilen
On Error Resume Next
salt = ""
verzichten zu können.
Mit
Dim TestObjekt As Object ' Objektvariable erstellen.
Set TestObjekt = Tagesauswertung.Cells(3 + diff, 3)
für die With-Variable bin ich auch nicht weitergekommen.
Hat jemand ´nen Tipp?
Viele Grüße
Mathias