Matthias L. hat mir ein gutes Makro geschrieben zum Löschen von Zelleninhalten. Nachdem ich mir den Code mehrfach durchgelesen habe verstand ich ihn auch und konnte ihn anpassen.
Nun habe ich ihn auch für folgende neue Anforderung anpassen wollen:
1. Finde einen bestimmten Wert (aus Tabelle2.Range("B75")) in Tabelle3
2. Lösche in der Zeile den Zelleninhalt von Spalte A, B & G
Der folgende Code von Matthias löscht mir allerdings Zelleninhalt aus Spalte A, B & C:
Dim sh As Worksheet, c As Variant, x As Long
Dim sb As String
Set sh = Tabelle3
sb = Tabelle2.Range("B75").Text
For x = 41 To 3 Step -1
With sh
If .Cells(x, 1) = sb Then .Range(.Cells(x, 1), .Cells(x, 3)).ClearContents
End With
Next
Ich verstehe wohl, dass dies vermutlich wegen der Passage .Cells(x,3) geschieht. Leider kann ich mir mit meinen geringen Kenntnissen nicht zusammenreimen, wie ich das verändern kann.
Könnte Ihr mir weiterhelfen?
Danke und Grüße
Martin