Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Zeilen löschen mit Spaltenbedingung ?

Alle Zeilen löschen mit Spaltenbedingung ?
alexander
Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
so müsste es gehen.
16.09.2009 10:37:32
Tino
Hallo,
Sub Loesche_Leere_In_G()
Dim meSH As Worksheet
Dim iCalc As Integer
Set meSH = Sheets("Tabelle1") 'Tabelle anpassen 

With Application
  iCalc = .Calculation
 .ScreenUpdating = False
 .EnableEvents = False
 .Calculation = xlCalculationManual
 
    With meSH
        With .UsedRange.Columns(.UsedRange.Columns.Count).Offset(0, 1)
            .FormulaR1C1 = "=IF(OR(RC7<>"""",ROW()<5),ROW(),TRUE)"
             meSH.UsedRange.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo
             On Error Resume Next
            .SpecialCells(xlCellTypeFormulas, 4).EntireRow.Delete
             On Error GoTo 0
            .EntireColumn.Delete
        End With
    End With
 
 .ScreenUpdating = True
 .EnableEvents = True
 .Calculation = iCalc
End With
End Sub
Gruß Tino
Anzeige
AW: so müsste es gehen.
16.09.2009 11:03:10
alexander
Danke schon einmal. Spalte A wäre immer gefüllt. Hilft das ?
?
16.09.2009 11:24:51
Tino
Hallo,
das interessiert mein Code nicht.
Gruß Tino
AW: Alle Zeilen löschen mit Spaltenbedingung ?
16.09.2009 10:42:26
JogyB
Hi.
Sub löScheWennGleer()
Dim zeiLe As Long
Const spAlte = 7 'G
Application.ScreenUpdating = False
With ActiveSheet
For zeiLe = .Cells.SpecialCells(xlLastCell).Row To 5 Step -1
If .Cells(zeiLe, spAlte) = "" Then .Rows(zeiLe).Delete Shift:=xlUp
Next
End With
Application.ScreenUpdating = True
End Sub

Besser wäre es noch, wenn Du eine Spalte hättest, die immer gefüllt ist, dann würden unnötige Löschungen vermieden - xlLastCell liegt oftmals weit nach dem eigentlich genutzen Bereich.
Gruss, Jogy
Anzeige
AW: Alle Zeilen löschen mit Spaltenbedingung ?
16.09.2009 11:15:38
alexander
Danke schon einmal. Spalte A wäre immer gefüllt. Hilft das ?
AW: Alle Zeilen löschen mit Spaltenbedingung ?
16.09.2009 11:19:02
JogyB
Hi.
Dann so:
Sub löScheWennGleer()
Dim zeiLe As Long
Const spAlte = 7 'G
Application.ScreenUpdating = False
With ActiveSheet
For zeiLe = .Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1
If .Cells(zeiLe, spAlte) = "" Then .Rows(zeiLe).Delete Shift:=xlUp
Next
End With
Application.ScreenUpdating = True
End Sub
Gruss, Jogy

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige