Wut auf alle Tabellen auf

Question

Mit der folgenden VBA versuche ich alle Blätter (bis auf die beiden genannten) zu durchlaufen und füge eine Tabelle in den Bereich A2005 bis AD3005 ein.

For Each wsvar5 In ThisWorkbook.Sheets 
    With wsvar5 
     If wsvar5.Name <> "timekeeper code" And wsvar5.Name <> "Bill Date" Then 
      .ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).ListObjects.TableStyle = "TableStyleMedium9" 
     End If 
    End With 
Next wsvar5 
End Sub 

das funktioniert für das erste Blatt und hält dann an und wirft die folgende Error nicht über Runde hat alle Tabellen, wie es auf dem ersten Blatt arbeitet und alle anderen Blätter sind im gleichen Format.

Ive hatte eine Suche online und scheint nicht die richtige Lösung zu finden!

Vielen Dank im fortgeschrittenen

Answer 1

Versuchen Sie folgende Zeile ersetzt

.ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).ListObjects.TableStyle = "TableStyleMedium9" 

zu

.ListObjects.Add(xlSrcRange, .Range("A2005:AD3005"), , xlYes).TableStyle = "TableStyleMedium9"