Überflüssige Zeilen löschen

16/11/2013 - 18:58 von Joachim Eger | Report spam
Hallo NG,

ich habe ein kleines Problem.
Ich bekomme öfter ein Tabellenblatt mit ca. 25000 Zeilen, alles Text.
In Spalte A befinden sich Leerzellen in unregelmàßigen Abstànden und
ebenfalls Zellen, deren Text mit zB. "ABCDEF" oder "XYZ" anfangen.
Lassen sich die Zeilen in denen der Anfangstext erscheint und die Zeilen
mit den Leerzellen in einem Rutsch löschen?
Wenn das funktionieren sollte, würde mich das sehr freuen.
Vielen Dank im Voraus und viele Grüße
Joachim
 

Lesen sie die antworten

#1 Claus Busch
16/11/2013 - 19:11 | Warnen spam
Hallo Joachim,

Am Sat, 16 Nov 2013 18:58:44 +0100 schrieb Joachim Eger:

Ich bekomme öfter ein Tabellenblatt mit ca. 25000 Zeilen, alles Text.
In Spalte A befinden sich Leerzellen in unregelmàßigen Abstànden und
ebenfalls Zellen, deren Text mit zB. "ABCDEF" oder "XYZ" anfangen.
Lassen sich die Zeilen in denen der Anfangstext erscheint und die Zeilen
mit den Leerzellen in einem Rutsch löschen?



fast. Probiere es mal mit folgendem Makro:

Sub Test()
Dim LRow As Long
Dim i As Long

With ActiveSheet
LRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A1:A" & LRow).SpecialCells(xlCellTypeBlanks) _
.EntireRow.Delete Shift:=xlUp

For i = LRow To 2 Step -1
If Left(Cells(i, 1), 6) = "ABCDEF" Or _
Left(Cells(i, 1), 3) = "XYZ" Then
Rows(i).Delete
End If
Next
End With
End Sub


Mit freundlichen Grüßen
Claus
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen