Private Sub add1_Click()
Dim Zauberbuch As String
Zauberbuch = txtZauberbuch.Text
Dim Beschreibung As String
Beschreibung = txtBeschreibung.Text
Dim ApKosten As String
ApKosten = txtApKosten.Text
Dim Kosten As String
Kosten = txtManakosten.Text
Dim Zusatzregeln As String
Zusatzregeln = txtZusatzregeln.Text
Dim Schaden As String
Schaden = txtSchaden.Text
Dim Magierstufe As String
Magierstufe = txtMagierstufe.Text
Dim Schule As String
Schule = cbbschule.Text
Dim Abklingzeit As String
Abklingzeit = txtAbklingzeit.Text
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("Tabelle1")
Set tbl = wsh.ListObjects("Zauberbuch")
Dim lRow As ListRow
Set lRow = tbl.ListRows.Add <--- hier soll wohl der Fehler liegen laut VBA.
With lRow
.Range(1, 1) = Zauberbuch
.Range(1, 2) = Beschreibung
.Range(1, 3) = ApKosten
.Range(1, 4) = Kosten
.Range(1, 5) = Zusatzregeln
.Range(1, 6) = Schaden
.Range(1, 7) = Magierstufe
.Range(1, 8) = Schule
.Range(1, 9) = Abklingzeit
End With
End Sub