Office: Tabelle um eine Zeile erweitern

Hi zusammen,

Vielleicht kann mir jemand bei folgendem Problem helfen:

Ich habe folgenden Code:

Option Explicit

Sub eNDE()
Dim Loletzte As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Rows(ActiveCell.Row).Copy Rows(Loletzte)

End Sub

Der Code kopiert mir die aktuell ausgewählte Zeile und fügt mir diese unter den letzten Eintrag ein. Das klappt wunderbar. Allerdings befinden sich alle Zeilen innerhalb einer Tabelle. Wenn ich nun hieraus eine Zeile per Code kopiere, fügt mir Excel diese richtig unter den letzten eintrag der Tabelle ein. Aber die Zeile welche mir Excel eingefügt hat, befindet sich NICHT innerhalb der Tabelle. Das muss aber leider sein.


Hat hier jemand eine Idee? Vielleicht kann ich den code so erweitern, dass er mir jedes mal die Tabelle um eine Zeile erweitert wenn ich den Code ausübe?

Vielen Dank.

:)

 

warum 2. Beiträge zum gleichen Problem?

Code:

 

Hallo Hajo,

weil ich in Thema 1 "VBA - Blattschutz nach Eintrag in Zelle aufheben und wieder setzen" die zusätzliche Frage geziehlt an dich gerichtet habe.

Dieses Thema hier befasst sich also eigentlich mit dem oben geschilderten Problem.

Auf deine Antwort noch im anderen Beitrag: Ich glaube du hast mich hier falsch verstanden. Ich spreche von einer Tabelle, welche über Excel unter "als Tabelle formatieren" erstellt wurde. Hieraus möchte ich nun mit deinem Code Zeilen kopieren und ans Ende der formatierten Tabelle setzen. Das klappt, nur leider müssen diese Zeilen der Tabelle beigefügt werden. Der Code fügt sie zwar unterhalb ein, aber die Zeilen sind dann nicht mehr Bestandteil der formatierten Tabelle.


Also irgendwie so:

Option Explicit

Sub eNDE()
Dim Loletzte As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Rows(ActiveCell.Row).Copy Rows(Loletzte)

ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$11:$Z$16")

End Sub


Nur, dass die Range der Tabelle hier immer "+ 1 Zeile" oder so ist

 

mache als Letztes einen leeren Datensatz.
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

 

Du meinst so?


Sub eNDE()
Dim Loletzte As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rows(ActiveCell.Row).Copy Rows(Loletzte)

ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$11:$Z$16")

End Sub

Dann überschreibt er mir den letzten Tabelleneintrag. Aber er soll die Tabelle ja jedes mal um einen Eintrag erweitern.

Liebe Grüße

 

vielleicht dann so?
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rows(ActiveCell.Row).Copy
Rows(Loletzte).Insert Shift:=xlDown
zu Resize kann ich nichts schreiben, setze ich nicht ein.

 

Leider auch nicht. Hier meldet er mir den Fehler: "400"


Hm.... komme einfach nicht weiter.

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten Gruß Hajo

 

Moin!
Du meinst ein List-Objekt aka "intelligente" Tabelle.
Dann solltest Du Deinen (VBA-) Sprachschatz ziemlich erweitern!

Die imo beste Sammlung dazu findest Du hier:
https://www.thespreadsheetguru.com/b...t-excel-tables

Gruß Ralf

 

Hi Hajo,

hier mal die Tabelle etwas gekürzt, aber mit gleicher Problematik:

Die Schaltfläche führt das Makro aus.

 

#9 hast Du gelesen und verstanden?
Da steht nämlich exakt der Befehl, den Du brauchst.
Jedenfalls nix mit loLetzte oder UsedRange …

 

Hi RPP63,

sry deine Nachricht hatte ich überlesen...

ich öffne den Link sofort.

 

Ich nehme an du meinst diesen code hier:


ActiveSheet.ListObjects("Table1").ListRows.Add AlwaysInsert:= True

Allerdings bekomme ich es nicht hin den in folgenden einzusetzen:

Sub eNDE()
Worksheets("Import").Unprotect Password:=""
Dim Loletzte As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Rows(ActiveCell.Row).Copy Rows(Loletzte)

End Sub


Sry, ich bin halt noch absoluter Anfänger.

 

Ahhh ich habs:


Option Explicit

Sub eNDE()
Dim tbl As ListObject
ActiveSheet.ListObjects("Tabelle1").ListRows.Add AlwaysInsert:=True


End Sub

Klappt so glaube ich....

 

Muss mich nochmal korrigieren.

Klappt leider doch nicht wie gewollt.