Guten Tag,

leider habe ich ein kleines Problem an dem ich grade verzweifel. Ich habe mir eine Userform für ein Zauberbuch eines Pen and Papers gebaut und es läuft so weit auch ganz gut. Der hinzufügen Button funktionierte auch erst, nun aber plötzlich nicht mehr und er haut nur einen Fehlercode raus.

Kann mir einer sagen wieso?

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