Sub loeschen()
Dim c As Range
For Each c In Range("A:A")
If c.Value = "string" Then c.ClearContents
Next c
End Sub
den string musst Du natürlich anpassen...
Schönen Gruß,
Andi
Ehm...Problem
09.02.2006 18:52:18
Schnedler
Und wenn der Suchstring lediglich ein TEIL des gesamten Durchsuchstrings ist?
Er kommt nämlich im ZellenText vor! - Nur als Teil!
MfG
Schnedler
Anzeige
AW: Ehm...Problem
09.02.2006 18:58:21
Sven
Sub loeschen()
Dim c As Range
For Each c In Range("A:A")
If c Like "*string*" Then c.ClearContents
Next
End Sub
mfg Sven
Immer noch eine Frage!!!
10.02.2006 06:15:34
Schnedler
Wie kann ich nun den genauen Suchlaut benutzen?
Wenn ich als String "apfel" nehme, dann löscht der mir auch "apfelmus"!
ich will aber nur die mit apfel löschen!
kann mir da jemand helfen?
Anzeige
AW: Immer noch eine Frage!!!
10.02.2006 09:16:47
Harald
Wie?
....doch nicht melken ? ;-))
Versuchs mal über Ersetzen
Ersetze apfel
durch
nix
Alle ersetzen
Dann wird aus apfelmus nur mus
Läßt sich auch per Rekorder aufzeichnen.
Gruss Harald