Makro anpassung

Hallo excelfreunde,
ich lösche mit dem nachfolgenden Macro bestimmte leere Zeilen aus einer Tabelle.
Nun stehe ich vor dem Problem das sich die Spaltenanzahl in der Tabelle ständig verändert so das ich wie in diesem Beispiel die Spalte ( If Cells(LoI, 6) = "" Then) die 6 ständig das Macro anpassen muss. Kann jemand das Macro so anpassen das es den Wert welcher in Tabelle "Zellendefininion" B4 und B5 definiert ist in der Tabelle " Vorgang " sucht und diese Spalte dann als suchspalte für die leeren zellen nimmt und dann unterhalb der Fundstelle die leeren Zeilen löscht?
zur besseren Erläuterung habe ich es in der Beispiel Arbeitsmappe deutlich gemacht.
Ich habe schon sehr viel gesucht was dieses Thema Leerzeilen löschen angeht. Jedoch sind die meisten Vorschläge zu langsam oder ich schaffe es nicht an meinen Gegebenheiten anzupassen. Diese Version ist die schnellste aber auch dies kann ich nicht anpassen.
vielen dank für euer Interesse und vorab schon mal für die Hilfe.
Liebe grüsse thomas
https://www.herber.de/bbs/user/99081.xlsm

Sub leerzeilen_löschen()
Dim LoLetzte As Long
Dim LoI As Long
Dim RaZeile As Range
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
'  If LoLetzte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub leerzeilen_löschen() Dim lRow As Long, lCnt As Long Dim ws As Worksheet Set ws = ActiveSheet lCnt = ws.UsedRange.Columns.Count For lRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row To 11 Step -1 If WorksheetFunction.CountA(ws.Rows(lRow))

Sub leerzeilen_löschen() Dim LoLetzte As Long Dim LoI As Long Dim RaZeile As Range Dim Spalte1 As Long, Spalte2 As Long LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536) Spalte1 = Application.Match(Sheets("zellendefininion").Range("B4"), Sheets("Vorgang").Rows( _ 10), 0) Spalte2 = Application.Match(Sheets("zellendefininion").Range("B5"), Sheets("Vorgang").Rows( _ 10), 0) ' If LoLetzte

Sub leerzeilen_loeschen() Dim LoLetzte As Long Dim LoI As Long Dim RaZeile As Range, rLeer As Range Dim Spalte1 As Long, Spalte2 As Long LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536) With Sheets("zellendefininion") Spalte1 = Application.Match(.Range("B4"), Rows(10), 0) If .Range("B5") "" Then Spalte2 = Application.Match(.Range("B5"), Rows(10), 0) End If End With If LoLetzte 0 Then If Cells(LoI, Spalte1) = "" Or Cells(LoI, Spalte2) = "" Then Set rLeer = Rows(LoI) End If Else If Cells(LoI, Spalte1) = "" Then Set rLeer = Rows(LoI) End If End If If Not rLeer Is Nothing Then If RaZeile Is Nothing Then Set RaZeile = rLeer Else Set RaZeile = Union(RaZeile, rLeer) End If End If Next LoI If Not RaZeile Is Nothing Then RaZeile.Delete Set RaZeile = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread