Worksheets("Tabelle1").Cells(lngRowIndex, intcolindex).Comment.Text

xlWS.Cells(lngRowIndex, intColIndex).Comment.Text

Const xlDateiName As String = "Beispiel.xls"
Const xlWS_Name As String = "Sheet1"
 
Private xlAppl As Object    ' As Excel.Application
Private xlApplLiefNicht As Boolean
 
Private xlWB As Object      ' As Excel.Workbook
Private xlWS As Object      ' As Excel.Worksheet