Zeilen markieren

[Jonathan]

Hey,

ich möchte die Zeilen per VBA wie folgt markieren, um diese dann zu
löschen:

Letzte Zeile bis letzte Zeile minus 22

Hat jemand einen Tipp?
danke!!

[Alexander Wolff]

Post by Jonathan
ich möchte die Zeilen per VBA wie folgt markieren, um diese dann zu
Letzte Zeile bis letzte Zeile minus 22

Zeichne es auf. Bei mir gibt es dann sowas:

Sub Makro1()
ActiveCell.Offset(-22, 0).Rows("1:22").EntireRow.Select
ActiveCell.Offset(-1, 0).Range("A1").Activate
Selection.Delete Shift:=xlUp
End Sub

1. Die letzte Zeile mußt Du selbst bestimmen. Hier: stattdessen ActiveCell
2. Dann ändert man das Makro noch so ab, dass es keine Selects mehr gibt.

Sub Makro2()
ActiveCell.Offset(-22, 0).Rows("1:22").EntireRow.Delete Shift:=xlUp
End Sub

[unknown]

Hallo Alexander,
da reicht auch schon die Anweisung:

ActiveCell.Offset(-22, 0).Rows("1:22").EntireRow.Delete

da das Shift:=xlUp zwangsweise erfolgen muss.

MfG Frank
_________________________________________________
Frank Arendt-Theilen (ehem. MVP für Excel), Hameln
Microsoft Excel - Die ExpertenTipps: tinyurl.com/cmned
Website: xl-faq.de

[Thomas Ramel]

Grüezi Frank und Alexander

Frank Arendt-Theilen schrieb am 25.10.2006

Post by Alexander Wolff
ActiveCell.Offset(-22, 0).Rows("1:22").EntireRow.Delete

...oder dann gleich noch mit Resize arbeiten um den String in der
Range-Anweisung zu umgehen udn die letzte belegte Zeile einer Spalte (hier
A) mit einbeziehen:

Cells(Rows.Count, 1).End(xlUp).Offset(-21, 0).Resize(22, 1).EntireRow.Delete


...zugegeben ein Bandwurm, der aber auch in xl2007 noch funktionieren
müsste (das habe ich nicht getestet)


Mit freundlichen Grüssen
Thomas Ramel

[Jonathan]

Super, vielen Dank Euch allen!

[Claus Busch]

Hallo Jonathan,

Post by Jonathan
Hey,
ich möchte die Zeilen per VBA wie folgt markieren, um diese dann zu
Letzte Zeile bis letzte Zeile minus 22

probiers mal so:

Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row

Rows(LRow - 22 & ":" & LRow).Delete

[Michael]

Hi,

Im Range Objekt die Methode Select setzen:


Worksheets("Sheet1").Activate
Range("A1:B3").Select


VG
Michael


"Jonathan" <***@web.de> schrieb im Newsbeitrag news:***@h48g2000cwc.googlegroups.com...
Hey,

ich möchte die Zeilen per VBA wie folgt markieren, um diese dann zu
löschen:

Letzte Zeile bis letzte Zeile minus 22

Hat jemand einen Tipp?
danke!!