Dim xl As New Excel.Application
        Dim owb As Excel.Workbook = xl.Workbooks.Open("F:\ad.xls")
 
        'oWB.Names.Add("DR_AppData2", RefersToR1C1:="=OFFSET(AppData!R3C1,0,0,(" & _
          "COUNTA(AppData!C1)-2),1)")
 
        Dim ci As System.Globalization.CultureInfo = _
          System.Globalization.CultureInfo.CurrentCulture
        Dim ls As String = ci.TextInfo.ListSeparator
        Dim expr As String = "=OFFSET(AppData!R3C1,0,0,(COUNTA(" & _
          "AppData!C1)-2),1)"
        expr = Replace(expr, ",", ls)
        owb.Names.Add("DR_AppData2", RefersToR1C1:=expr)
 
        Dim ni As Object = owb.Names.Item("DR_AppData2")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist