Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile Löschen wenn aktuelle Spalte leer ist

Zeile Löschen wenn aktuelle Spalte leer ist
Lutz
Hallo Excel-Spezialisten,
ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile kein Eintrag vorhanden ist.
Weiß jemand wie das geht?
Vielen Dank schon mal
Gruß Lutz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile Löschen wenn aktuelle Spalte leer ist
10.07.2009 21:58:59
Josef
Hallo Lutz,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub deleteRows()
  Dim rngDelete As Range
  
  On Error Resume Next
  Set rngDelete = ActiveSheet.UsedRange.Columns(ActiveCell.Column).SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
  
  If Not rngDelete Is Nothing Then rngDelete.EntireRow.Delete
  
  Set rngDelete = Nothing
End Sub

Sub deleteCols()
  Dim rngDelete As Range
  
  On Error Resume Next
  Set rngDelete = ActiveSheet.UsedRange.Rows(ActiveCell.Row).SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0
  
  If Not rngDelete Is Nothing Then rngDelete.EntireColumn.Delete
  
  Set rngDelete = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zeile Löschen wenn aktuelle Spalte leer ist
10.07.2009 22:04:54
Gerd
Hallo Lutz!
Sub Zeilen_raus()
On Error Resume Next
ActiveCell.EntireColumn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Gruß Gerd
AW: Zeile Löschen wenn aktuelle Spalte leer ist
10.07.2009 23:21:29
Lutz
Hallo Gerd,
vielen Dank, geht auch, genau wie der Code von Sepp.
Gruß und schönes We - Lutz

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige