in VBA Zeilen löschen

Bild

Betrifft: in VBA Zeilen löschen
von: Heinz
Geschrieben am: 05.04.2004 12:45:55
Liebe Excel-Spezialisten,
ich möchte gerne innerhalb einer Tabelle die markiert ist
("currentregion") alle Zeillen löschen, bei denen in der ersten
Spalte ("A") die Zelle leer ist.
Habt Ihr eine Idee?
Ich wünsche allen eine schöne Woche.
Heinz
P.S.:Ich habe bei level "VBA nur mit recorder" angegeben, aber ein bißchen
Makro überarbeiten krieg ich hin.

Bild

Betrifft: AW: in VBA Zeilen löschen
von: Andre
Geschrieben am: 05.04.2004 12:52:27
Hi, versuch´s mal so:

Sub Test()
Dim i As Integer
   LetzteZeile = Sheets("currentregion").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    
   For i = 1 To LetzteZeile
    
      With Sheets("currentregion")
         If .Cells(i, 1).Value = "" Then .Rows(i & ":" & i).Delete Shift:=xlUp
      End With
   
   Next
   
End Sub

Gruß Andre
Bild

Betrifft: AW: in VBA Zeilen löschen
von: Bert
Geschrieben am: 05.04.2004 13:02:41
Beim Löschen von Zeilen immer von unten anfangen, logisch, oder?
Option Explicit

Sub weg()
Dim z As Long, lZ As Long
lZ = Sheets("currentregion").Cells(65536, 2).End(xlUp).Row
For z = lZ To 1 Step -1
  With Sheets("currentregion")
    If .Cells(z, 1) = "" Then .Rows(z).Delete
  End With
Next
End Sub

Bert
Bild

Betrifft: Völlig richtig! Hatte nicht nachgedacht! o.T.
von: Andre
Geschrieben am: 05.04.2004 13:07:42

Bild

Beiträge aus den Excel-Beispielen zum Thema " in VBA Zeilen löschen"