Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 15:14:23 Pitfrog91
NotSolved
10.10.2019 15:21:26 Mase
NotSolved
Rot Zwei Tabellen über einen Button erweitern
 10.10.2019 15:30:36 Torsten
NotSolved
11.10.2019 09:23:24 Pitfrog91
NotSolved
15.10.2019 09:21:48 Pitfrog91
Solved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
10.10.2019 15:30:36		 Views:
561		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
10.10.2019 15:21:26 Mase
NotSolved
Rot Zwei Tabellen über einen Button erweitern
 10.10.2019 15:30:36 Torsten
NotSolved
11.10.2019 09:23:24 Pitfrog91
NotSolved
15.10.2019 09:21:48 Pitfrog91
Solved