Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

die letzten 5 Reihen löschen

die letzten 5 Reihen löschen
04.03.2013 11:45:01
Raphael
Hallo Excelianer,
ich hoffe ihr könnt mir weiterhelfen.
ich importiere in meine Exceldatei ne Menge an Daten.
Ich möchte jetzt aber das die letzten 5 Reihen nach jedem Import gelöscht werden.
Es sind aber immer unterschiedlich viele Daten. somit kann ich mit folgendem Macro schonmal die letzte Zelle identifizieren.
Range("A1").SpecialCells(xlCellTypeLastCell).Select
Aber wie lösche ich jetzt die letzten 5 wieder raus?
Besten dank für eure Hilfe
raphael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: die letzten 5 Reihen löschen
04.03.2013 11:52:04
Rudi
Hallo,
cells(rows.count,1).end(xlup).offset(-4).resize(5).entirerow.delete
Gruß
Rudi

DANKE!
04.03.2013 12:07:50
Raphael
DANKE EUCH! Das hilft mir weiter!
euch einen guten start in die Woche
Raphael

AW: die letzten 5 Reihen löschen
04.03.2013 11:52:26
Daniel
Hi
probiers mal so:
Range(Cells.Specialcells(xlcelltypelastcell).offset(-4, 0), Cells.Specialcells(xlcelltypelastcell)).EntireRow.Delete
Gruß Daniel

AW: die letzten 5 Reihen löschen
04.03.2013 11:55:37
ing.grohn
Hallo raphael,
probier mal 

Sub test()
Dim letzteZeile As Long
letzteZeile = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Sheets("Tabelle1").Range("A" & letzteZeile - 5 & ":A" & letzteZeile)
.EntireRow.Delete
End With

Mit freundlichen Grüßen
Albrecht

Anzeige
Specialcells(xlcelltypelastcell) ....
04.03.2013 12:11:15
Rudi
Hallo,
.... ist nicht unbedingt die letzte mit Inhalt. Kann auch eine sein, deren Inhalt gelösch wurde, die anders formatiert ist, ...
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige