Office: (Office 2010) Zeile einfügen unter letzte ausgefüllte Zeile mit Klick auf Button

Hallo zusammen,

ich habe den folgenden Code geschrieben, um unterhalb der Spalte Nummer eine Zeile in die Tabelle einzufügen/löschen:

Sub Zeile_löschen()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = "Nummer:"
i = i - 1
Loop
Rows(i + 1).Delete (xlShiftDown)
End Sub

Ich weiss leider nicht wie ich den Code umschreiben kann, dass Excel mir nicht eine Zeile direkt unter der Überschrift der Tabelle einfügt, sondern am besten unter die letzte ausgefüllte Zeile in der Tabelle. Die Formatierung müsste dann jedoch mit der Formatierung der letzten ausgefüllten Zeile übereinstimmen. Des Weiteren befinden sich mehrere Tabellen zum ausfüllen untereinander. Ist es möglich festzulegen, dass eine Zeile nicht gelöscht werden kann wenn etwas ausgefüllt wurde? das löschen soll auch von unten nach oben der Zellen geschehen.

Bei Bedarf kann ich gerne einen Screenshot von der Tabelle machen...

Vielen Dank und beste Grüße

Philipp

:)

 

Hallom Philipp,

warum einfügen nach der letzten Zeile, die Zeile ist doch schon da, es muß nur das Format übertragen werden.
In Deinem Makro was löschen und einfügen machen soll finde ich nicht das Einfügen.

 

wenn ich dieses Makro einem Button zuweise dann fügt er mir eine Zelle ein, unterhalb der Beschriftungszeile:

Sub Zeile_einfügen_Test()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = " Name / Description:"
i = i - 1
Loop
Rows(i + 2).Insert (xlShiftDown)
End Sub

Dies ist auch nötig, da sich unter der Tabelle in der eine Zeile eingefügt werden sollen, noch weitere Tabellen die ausgefüllt werden sind. Diese müssen sich dann ja weiter nach unten verschieben. Leider wird mir die Zeile immer direkt unter der Überschriftenzeile eingefügt. Mir wäre es lieb wenn ich das Makro so umschreiben könnte, das die Zeile unterhalb der letzten ausgefüllten Zeile eingefügt wird und sich alles halt wieder nach unten verschiebt. Des weitere wäre eine Modifikation sinnvoll, das Zellen nicht gelöscht werden können wenn sie Inhalt haben.

Makro zum löschen:

Sub Zeile_löschen_Test()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = " Name / Description:"
i = i - 1
Loop
Rows(i + 2).Delete (xlShiftDown)
End Sub

"Name / Description" ist die Spaltenbeschriftung in der Tabelle in der die Zeile eingefügt werden soll.

 

ich war wohl Blind das ich es nicht gesehen habe.
Da ich Deine Datei nicht sehen kann waren mir wohl de Zusammenhänge nicht klar.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

 

hier die datei...

 

ich hätte ja für alle Einfügen einen Code benutzt. Mit Unterstützung vom Karin.
Code:

Löschen analog.

 

Der Code sieht sehr gut aus. Leider verschieben die Tabellenrahmen sich wenn ich Zeilen einfüge, also die Rahmenformatierungen ect. werden nicht mitübernommen. Des Weiteren schaffe ich es nicht, den Code für den Delete Button umzuschreiben. Einfach das Wort Insert gegen Delete auszutauschen scheint nicht genug zu sein. Hab es mal probiert und probiere es weiter:-)

 

mit ein wenig in den Code schauen und werte überprüfen hättest Du es auch hinbekommen.
Das andere sieht man schlecht da alle Zellen Farben. Übertrag das Format der vorherigen Zeile.
Code:

 

ich bin leider nicht so gut in VB wie ich dachte. Letzter Fehler an dem code ist leider, dass der Summenbereich sich nicht automatisch erweitert wenn ich eine Zeile einfüge.

 

ich sehe nicht wo Summe steht. Ich habe was anderes zu tun um irgendwas zu Suchen. Der Fehler muss aber auch schon Vorher bestanden haben.
Benutze Indirekt.
Summe Indirekt

 

Hallo philipp10111983

Schau man in die Beispiel Mappe in Tabelle "1st Quarter"

schau dir mal die Summe-Indirekt Formel an
so müsste es gehen

Gruß Peter9

 

Hallo Peter,

da steht keine Summenformel.

1st Quarter

	D
5	1st Quarter
6	#NAME?

verwendete Formeln
Zelle	Formel	Bereich
D6	=LastSaveDate()

Gruß Hajo

 

Hallo Hajo,

das was Du meinst wird bei mir richtig angezeigt

ich hatte es so verstanden da wo seine summen sein sollten wird nicht gerechnet des halb hatte ich über all wo Summe sein sollte eine Summe-Indirekt Formel eingefühgt.

gruß Peter9

 

dann ist es ja gelöst, beachte auch meine Signatur.

 

Vielen vielen Dank für die tolle Unterstützung. Leider funktioniert das mit der Summe Indirekt nicht so ganz wenn man zuviele Zeilen einfügt. Ich schaffe es leider nicht den VB-Code entsprechend anzupassen, damit auch die Formeln mitkopiert werden. Da die Exceltabelle noch weitere Formeln bekommen soll, wäre dies allerdings notwendig. Anbei noch einmal die aktuelle Datei. Vielleicht kann mir ja jemand helfen. Beste Grüße