04.03.2024, 21:52
Hallo,
ich benutze eine Vorlage um Daten aus einem Eingabeformular zu speichern. Im Original wird es allerdings in 1 Tabellenblatt gespeichert und ich möchte nun aber 2 Tabellenblätter ansprechen. Mein Weg einfach auszuprobieren, jeweils 2mal Tabellenblätter anzusprechen, hat irgendwie nicht funktioniert. Kann mir bitte einer helfen, wie es funktionieren kann?
Mein falscher Weg:
Sub KundenChange_EingabeDB()
'Tabelle einlesen
Dim tbl_1 As ListObjects
Set tbl_1 = tb_Personen.ListObjects(1)
Dim tbl_2 As ListObjects
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
'Kunde bearbeiten
Else
End If
'Datenbank befüllen
usw...
ich benutze eine Vorlage um Daten aus einem Eingabeformular zu speichern. Im Original wird es allerdings in 1 Tabellenblatt gespeichert und ich möchte nun aber 2 Tabellenblätter ansprechen. Mein Weg einfach auszuprobieren, jeweils 2mal Tabellenblätter anzusprechen, hat irgendwie nicht funktioniert. Kann mir bitte einer helfen, wie es funktionieren kann?
Mein falscher Weg:
Sub KundenChange_EingabeDB()
'Tabelle einlesen
Dim tbl_1 As ListObjects
Set tbl_1 = tb_Personen.ListObjects(1)
Dim tbl_2 As ListObjects
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
'Kunde bearbeiten
Else
End If
'Datenbank befüllen
usw...