makro markierung von Zeilen nach oben und unten
12.09.2008 08:37:02
Zeilen
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen Bedingungen sucht "TW" oder "HW" und dann die 2 Zeilen vor und die 16 Zeilen nachher löscht (also insgesamt 19 Zeilen).
Löschen ist kein Problem aber die Markierung zu erweitern, tja da ist es bei mir vorbei!
Meine Bisherige Lösung:
Sub TW_HW_Löschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(i, 2) = "TW" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
Dim t As Long
Application.ScreenUpdating = False
For t = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(t, 2) = "HW" Then Rows(t).Delete
Next t
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus!
Gruss
Baumpaul