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
|