Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.10.2019 15:14:23 |
Pitfrog91 |
|
|
|
10.10.2019 15:21:26 |
Mase |
|
|
Zwei Tabellen über einen Button erweitern |
10.10.2019 15:30:36 |
Torsten |
|
|
|
11.10.2019 09:23:24 |
Pitfrog91 |
|
|
|
15.10.2019 09:21:48 |
Pitfrog91 |
|
|
Von:
Torsten |
Datum:
10.10.2019 15:30:36 |
Views:
563 |
Rating:
|
Antwort:
|
Thema:
Zwei Tabellen über einen Button erweitern |
Hallo,
habs mal etwas nachgebaut. Denke auch, dass die Listobject Nummer vielleicht irgendwo falsch ist. Wenn du nur ein Listobject in jeder Tabelle hast, dann ist das auch immer ListObjects(1). Probier das mal.
Weiterhin hab ich mal dein Activate der Zelle rausgenommen, da, wenn du die Zelle aktivieren willst, musst du vorher auch das jeweilige Blatt aktivieren. Sonst:
"Subscript out of range"
Hier mal der Code zurueck:
Private Sub CommandButton1_Click()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Dim last_row_wo_data As Long
Set the_sheet = Sheets("Sheet2")
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add
last_row_wo_data = the_sheet.Range("A33546").End(xlUp).Row
table_object_row.Range(1, 1).value = the_sheet.ListObjects(1).Range.Cells(last_row_wo_data - 1, 1) + 1
Dim the_sheet2 As Worksheet
Dim table_list_object2 As ListObject
Dim table_object_row2 As ListRow
Dim last_row_wo_data2 As Long
Set the_sheet2 = Sheets("Sheet3")
Set table_list_object2 = the_sheet2.ListObjects(2)
Set table_object_row2 = table_list_object2.ListRows.Add
last_row_wo_data2 = the_sheet2.Range("I33546").End(xlUp).Row
table_object_row2.Range(1, 1).value = the_sheet2.ListObjects(2).Range.Cells(last_row_wo_data2 - 1, 1) + 1
End Sub
Gruss Torsten
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.10.2019 15:14:23 |
Pitfrog91 |
|
|
|
10.10.2019 15:21:26 |
Mase |
|
|
Zwei Tabellen über einen Button erweitern |
10.10.2019 15:30:36 |
Torsten |
|
|
|
11.10.2019 09:23:24 |
Pitfrog91 |
|
|
|
15.10.2019 09:21:48 |
Pitfrog91 |
|
|