VBA Fehler 91 nach korrekter Ausführung mit für jede Schleife und Zell kommentiert

Question

Ich habe den folgenden Code ein, der bis zum Ende des MsgBox funktioniert gut:

Sub CommentsAsFootnotes(myTemplate As Variant, ByRef footnotespage1 As String, ByRef footnotespage2 As String) 
Dim rngTemp As Range 
Dim rngComment As Range 
Dim footnote As String 
Dim i As Integer 

    On Error Resume Next 
    Set rngComment = myTemplate.Sheets("Seite 1 ").Range("B14:T35").SpecialCells(xlCellTypeComments) 
    On Error GoTo 0 
    i = 1 
    'If rngComment is Nothing 
     'Exit Sub 
    'End If 
    For Each rngTemp In rngComment 
     rngTemp.value = rngTemp.value & CStr(i) 
     rngTemp.Characters(Start:=Len(rngTemp.value), Length:=1).Font.Superscript = True 
     MsgBox rngTemp.Comment.Text 
     ' error thrown here 
    Next rngTemp 

    footnotespage1 = footnote 

End Sub 

Das Meldungsfeld wird angezeigt mit dem richtigen Inhalt. Wenn ich jedoch auf "OK" klicke, wird ein Fehler ausgelöst "Fehler 91, Objektvariable oder mit Blockvariable nicht gesetzt" und der Debugger markiert die Zeile mit dem Meldungsfeld.

Haben Sie eine Idee, was diesen Fehler verursachen könnte?

Answer 1

Es ist, weil der Strombereich keinen Kommentar innen hat, ein IF hinzufügen, wenn die Zelle keinen Kommentar innen, wie dies hat:

If rngTemp.Comment Is Nothing Then 
    MsgBox "No Comment found !" 
Else 
    MsgBox rngTemp.Comment.Text 
End If