oben:
Public wordzähler As Integer
 
in der Sub:
zähler = 0
 
    If zähler = 0 Then
        Set WordAppl = CreateObject("Word.Application")
    End If
 
und immer noch der selbe fehler bei
 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=zeile, _
   NumColumns:=spalten, DefaultTableBehavior:=wdWord9TableBehavior, _
   AutoFitBehavior:=wdAutoFitFixed