Makro FindenLöschen
25.10.2005 09:10:38
achim
Wer kann helfen?
Das Makro funzt noch nicht so....
Meine Werte sehen so aus 33456 oder 36789 oder 3650912.
Nun möchte ich das in dem Bereich nach den ersten Wert in der Zelle geschaut wird und wenn gefunden dann lösche den Inhalt.
Anbei mein Versuch:-(
Sub InhaltFindenUndlöschen()
Sheets("DatenAusSheet1").Activate
Range("Q1").Select
Dim i As Long, Berich As Object
With Sheets("KopieTabAusPerdis")
Set Bereich = .Range("Q1:R1000" & .[Q:R].Find("*", searchdirection:=xlPrevious).Row)
For Each Zelle In Bereich
Debug.Print Zelle.Value
If Zelle.Value Like "3*" Then
Zelle.ClearContents
End If
Next Zelle
End With
End Sub
Danke und gruss
achim h.