VBA Zeile löschen wenn bestimmte Zelle ""

Hallo ich habe ein problem bei einem Makro program.
Ich habe eine Tabelle mit vielen Datensätzen (10000x10)
Nun möchte ich alle leeren (bzw "") zeilen löschen. Dazu habe ich mich viel im Forum belesen und einiges konnte ich auch anwenden jedoch nicht in effizienter Zeit.
Dann habe ich folgenden Code gefunden welcher für große Datensätze sein soll:

Sub Makro3() Columns(1).Insert With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IF(RC[1]="""",true,Row())" .Formula = .Value .CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End With Columns(1).Delete End Sub

Diesen versteh ich jedoch nicht ganz und kann ihn daher nicht anpassen.
Meine Tabelle starten von B5 bis N10000. Demnach müsste ich sie anpassen.
Die zelle nach der Kontrolliert werden soll ist spalte "K"
Gibt es eine möglichkeit diesen anzupassen oder einen anderen für große Datensätze oder muss ich meine ganze Tabelle umstrukturieren ?
Vielen Dank im Vorraus
MfG
Dennis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Application.Calculation = xlCalculationManual For i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 5 Step -1 If ActiveSheet.Cells(i, 11).Value = "" Then ActiveSheet.Rows(i).EntireRow.Delete Next i Application.Calculation = xlCalculationAutomatic End Sub

screenUpdateState = Application.ScreenUpdating statusBarState = Application.DisplayStatusBar calcState = Application.Calculation eventsState = Application.EnableEvents displayPageBreakState = ActiveSheet.DisplayPageBreaks Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False

Sub Makro3() Columns(1).Insert With Range("A5:A" & Cells(Rows.Count, 3).End(xlUp).Row) .Formula = "=IF(RC12="""",true,Row())" .Formula = .Value .EntireRow.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End With Columns(1).Delete End Sub

With Sheets("versteckte Tabelle") Columns(1).Insert With Range("A5:A" & Cells(Rows.Count, 3).End(xlUp).Row) .Formula = "=IF(RC7="""",true,Row())" .Formula = .Value .EntireRow.Sort key1:=Cells(1, 1), Order1:=xlAscending, Header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End With Columns(1).Delete End With

With Sheets("versteckte Tabelle") .Columns(1).Insert With .Range("A5:A" & .Cells(.Rows.Count, 3).End(xlUp).Row) .Formula = "=IF(RC7="""",true,Row())" .Formula = .Value .EntireRow.Sort key1:=Cells(1, 1), Order1:=xlAscending, Header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End With .Columns(1).Delete End With

Hallo Daniel.
Ich lade nun eine Beispiel Tabelle hoch die dem Aufbau meiner entspricht mit Fakedaten.
https://www.herber.de/bbs/user/122778.xlsx
Dazu zu sagen gibt es noch das jeder dieser Zellen unterhalb der überschrifften in Zeile 4 aus einer anderen Tabelle eingefügt ist.
Dazu hab ich die Formel: (aus einer Zelle in Reihe 10)

=WENN('Tabelle1'!J10="";"";WENN('Tabelle1'!K10= 0; "";WENN('Tabelle1'!K10 ="Sum:";"";'Tabelle1'!K10)) )

genommen.
Diese filtert dann die andere Tabelle raus und schreibt dann wenn die Bedingungen nicht erfüllt sind "" in die ganze Zeile. Pro Spalte unterscheiden sich die Zellen in der Formeln nur vom Spaltenindex der andere Tabelle (Tabelle1)
Ich hoffe diese Informationen sind ausreichend für eine weitere Hilfe. Zusätzlich zu der anderen Information die ich Ihnen gegeben habe. (eingefügte Spalte A -> überall nur WAHR ohne Formel)
Mit freundlichen Grüßen
Dennis Mattutat

Sub Delete() Application.ScreenUpdating = False Dim Row As Long Dim RowMax As Long With Sheets("Tabelle1") RowMax = .UsedRange.Rows.Count For Row = RowMax To 5 Step -1 If .Cells(Row, 7).Value = "" Then .Rows(Row).Delete End If Next Row End With Application.ScreenUpdating = True End Sub

With Sheets("versteckte Tabelle") .Columns(1).Insert With Range("A5:A" & Cells(Rows.Count, 3).End(xlUp).Row) .Formula = "=IF(RC8="""",true,Row())" .Formula = .Value .EntireRow.Sort key1:=Cells(1, 1), Order1:=xlAscending, Header:=xlNo .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete End With .Columns(1).Delete End With

Beliebteste Forumthreads (12 Monate)

VBA Zeile löschen wenn bestimmte Zelle ""

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

216 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeile löschen wenn bestimmte Zelle ""

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

216 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread