Da ist grundsätzlich nichts falsches dran.
Was sagt dann die Fehlermeldung? Der Fehlercode allein ist hier wenig hilfreich, weil diese 1004 ein Allerweltsfehlercode für Automatisierungsprobleme ist.
Grüße
PS: Das der Code so bei dir durchläuft, muss bedeuten, dass du kein Option Explicit - in der obersten Zeile des Moduls - definiert hast. Das solltest du unbedingt nachholen. - erzwingt die Deklaration von allen verwendeten Variablen; beugt Tippfehlern vor
PPS: Die ganzen String-Variablen könntest du dir sparen und einfach schreiben:
With lRow
.Range(1, tbl.ListColumns("Zauberbuch").Index) = txtZauberbuch.Text
.Range(1, tbl.ListColumns("Beschreibung").Index) = txtBeschreibung.Text
'...
End With
Den Index der Spalten würde ich, wie hier gezeigt, anhand der Beschriftung ermitteln; also nicht hard-coden. Die Reihenfolge der Spalten kann ja beliebig geändert werden, dann ist hard-coden schlecht.
|