Problem mit Inhalt löschen
meik
bin ganz neu hier.
Habe nur wenig VBA Kenntnisse.
Vielleicht kann mir trotzdem jemand helfen, habe nachfolgendes Makro, was den Inhalt einer Zeile enfernt.
Ich möchte aber gerne das nur bestimmte Spalteninhalte in dieser Zeile entfernt werden z.B. A:H oder die nächsten drei Spalten rechts von den Fundwert, ich hoffe ich konnte mich deutlich ausdrücken. Google schon ewig
habe aber keine Lösung gefunden.
Hier der Code:
Sub clear_range()
Dim i As Long
With ActiveSheet.UsedRange
For i = .Rows.Count To 3 Step -1
If .Cells(i, 8) = "DNS" Then
Range(.Cells(R1, 2), .Cells(R1, 6)).ClearContents
End If
If .Cells(i, 8) = "DNF" Then
.Cells(i, 8).EntireRow.ClearContents
End If
If .Cells(i, 8) = "DQ" Then
.Cells(i, 8).EntireRow.ClearContents
End If
Next i
End With
End Sub
Bin dankbar für jede Hilfe
Gruß Meik