VBA / Makro / Script: Zeilen löschen mit mehreren Bedingungen

01/04/2009 - 16:55 von Krisovice | Report spam
Hallo Experten,

trotz làngerer Google-Recherche bin ich leider nicht nach einer Lösung
für mein Problem fündig geworden: ich möchte automatisch alle Zeilen,
in denen in Spalte D der Wert "weihnachtsmann" oder "heuschrecke" oder
"abwrackpràmie" steht, komplett löschen lassen.

Leider bin ich absoluter Neuling auf dem VBA / Makroterrain.. bin für
jeden Tipp dankbar!

Krisovice
 

Lesen sie die antworten

#1 Eberhard Funke
01/04/2009 - 17:26 | Warnen spam
Am Wed, 1 Apr 2009 07:55:46 -0700 (PDT) schrieb Krisovice:

trotz làngerer Google-Recherche bin ich leider nicht nach einer Lösung
für mein Problem fündig geworden: ich möchte automatisch alle Zeilen,
in denen in Spalte D der Wert "weihnachtsmann" oder "heuschrecke" oder
"abwrackpràmie" steht, komplett löschen lassen.




Hallo Krisovice,

probier's mal hiermit:

Sub Zeilen_löschen()
With Columns("D")
.Replace What:="weihnachtsmann", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.Replace What:="heuschrecke", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.Replace What:="abwrackpràmie", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.SpecialCells(xlCellTypeBlanks).Select
End With
Selection.EntireRow.Delete
End Sub



Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen