Meine Lösung funktioniert nicht, wahrscheinlich mache ich schon das einlesen falsch...
Weil ich es immer 2x aufschreibe. In meiner Vorlage wird es nur in einem Tabellenblatt gespeichert und ich habe es so einfach ausprobiert und es klappt natürlich nicht :)
Ich kopiere es mal hier rein:
Sub KundenChange_EingabeDB()
'Tabelle einlesen
Dim tbl_1 As ListObjects
Set tbl_1 = tb_Personen.ListObjects(1)
Dim tbl_2 As ListObject
Set tbl_2 = tb_Leistungen.ListObjects(1)
Dim Zeile As Long
'Kunde anlegen oder bearbeiten
If tb_Eingabeformular.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True Then
'Kunde anlegen
'Zeile hinzufügen
tbl_1.ListRows.Add
tbl_2.ListRows.Add
'Zeile in Variable speichern
Zeile = tbl_1.DataBodyRange.Rows.Count
Zeile = tbl_2.DataBodyRange.Rows.Count