Hallo.
Ich bin VBA-Anfänger und habe das folgende Problem.
Mein Makro soll in einem bestimmten Bereich zum Beispiel den Wert 1000 suchen, und dann diesen Zelleninhalt löchen.
Zudem sollen aber die Zelleninhalte links und rechts davon ebenfalls gelöscht werden. Und dieses bekomme ich leider nicht hin.
Bis jetzt sieht es bei mir so aus:
Sub aufraumen()
'
' aufraumen Makro
'
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.Range("A1:H55")
If InStr(1, rngZelle.Text, "1000", 1) Then
rngZelle.ClearContents
End If
Next
'
End Sub
Vielen Dank für Eure Hilfe.
|