mehrere Zellen ansprechen
03.07.2020 08:24:53
Wolfgang
ich versuche mich an dem nachfolgenden Code und würde gerne erreichen, dass bei Zutreffen eines Textes in Spalte H die Zellen in Spalte G und Spalte L:R eine Null erhalten. Der Codeteil, bezogen nur auf Spalte G funktioniert soweit. Ich bekomme nur die Ausweitung auf L:R nicht hin. Für eine Hilfestellung, Rückantwort wäre ich da sehr dankbar.
Herzlichen Dank schon jetzt und viele Grüße - Wolfgang
Sub test()
Dim i As Integer
With Sheets("Vormerkungen")
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Range("H" & i) Like "storniert" Then .Range("G" & i & "L:R" & i) = "0"
Next i
End With
End Sub