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