Hi Leute,
und zwar möchte ich auf zwei verschiedenen Tabellen per Knopfdruck (EIN Button) eine neue Zeile hinzufügen, welche zusätzlich sich die benachbarte Zelle herausucht und 1 addiert (zählt also automatisch und dynamisch hoch).
Für eine List funktioniert das auch wunderbar. Nur möchte ich ja beide Listen erweitert haben. Ich hatte mir dann einfach gedacht, dass ich es so mache:
Private Sub CommandButton1_Click()
Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow
Set the_sheet = Sheets("Analysis")
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
the_sheet.ListObjects(1).Range.Cells(last_row_wo_data - 1, 1).Activate
table_object_row.Range(1, 1).Value = ActiveCell.Value + 1
Dim the_sheet2 As Worksheet
Dim table_list_object2 As ListObject
Dim table_object_row2 As ListRow
Set the_sheet2 = Sheets("query-4")
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
the_sheet2.ListObjects(2).Range.Cells(last_row_wo_data2 - 1, 1).Activate
table_object_row2.Range(1, 1).Value = ActiveCell.Value + 1
'ActiveWorkbook.Connections("query-4").Refresh
End Sub
Leider funktioniert das aber nicht und Excel liefert mir als Fehler:
Run-time error '1004':
Application-defined or object-defined error
Kann mir jemand weiterhelfen? Vielen Dank schon mal :)
BR
Pitfrog91
|