Meine Abfrage in der Userform:
'Neuer Fehler
If (NeuerFehler > 0) And NeuerFehler.Text "" Then
For i = 9 To 46
If ws.Cells(i, 1) = "Sonstiges" Then
ws.Cells(i, fehlerspalte) = NeuerFehler.Value
With ws.Cells(i, fehlerspalte)
Call AddComments
Exit For
End If
Next i
End
Sub
Sub Kommentar einfügen im Modul:
Sub AddComments()
Dim wks As Worksheet: Set wks = ActiveSheet
With ActiveCell
'Kommentare einblenden
Application.DisplayCommentIndicator = xlCommentAndIndicator
'Wenn kein Kommentar vorhanden, neuen einfügen
If .Comment Is Nothing Then
.Comment.Visible = True
.AddComment.Text Userform1.Neuerfehlerbeschr.Text
.Comment.Shape.Select True
End If
End Sub
Im Moment scheitert es leider an der Zeile ".AddComment.Text Userform1.Neuerfehlerbeschr.Text" und die Fehlermeldung "Benutzerdefinierte Anwendung oder Objekt benutzerdefinierte Fehler" wird ausgegeben.
Gehört das
Sub überhaupt ins Modul?
Was mache ich falsch?