Zeilen löschen

Forumthread: Zeilen löschen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeilen löschen

Zeilen löschen

14.09.2006 23:44:07

Fritz

Hallo schönen Abend!
Würd gerne folgendes mit einme Makro durchführen.
ich hab in der tabelle 1 verschieden daten stehen und würde ein makro benötigen das mir alle zeilen löscht bei denen in der spalte h keine daten stehen.
danke!!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen

15.09.2006 00:25:38

Josef
AW: Zeilen löschen

15.09.2006 00:44:13

Fritz

AW: Zeilen löschen

15.09.2006 00:25:38

Josef

Hallo Fritz!
das geht z.B. so.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Loeschen()
Dim rng As Range, rngU As Range

With Sheets("Tabelle1")
  For Each rng In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    If rng.Offset(0, 7) = "" Then
      If rngU Is Nothing Then
        Set rngU = rng.EntireRow
      Else
        Set rngU = Union(rngU, rng.EntireRow)
      End If
    End If
  Next
End With

If Not rngU Is Nothing Then rngU.Delete

Set rngU = Nothing

End Sub

Gruß Sepp