letzen zwei Zeilen löschen
06.06.2006 13:32:51
Anton
ich möchte in einer Tabelle die letzten beiden Zeilen löschen lassen.
(Hier stehen nur Summen drin, die ich nicht brauche.)
Die letzte Zeile finde ich mit diesem Code einwandfrei:
Sub letzte()
Dim intZeilenanzahl%
intZeilenanzahl = 0
'letzte Zeile in A suchen
intZeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'und aktiviert
Cells(intZeilenanzahl + 0, 1).Activate
End Sub
Mein Dank ist Euch schon jetzt sicher.
Servus,
Anton