AW: Zelleninhalt löschen VBA
09.11.2016 14:08:04
Daniel
Hi
ich würde das IF-Then immer mehrzeilig machen, wenn nach dem Then mehr als ein Befehl folgt, das ist einfach übersichtlicher.
For Each zell In rng
If wsV.Range("B27").Value = zell.Value Then
zell.Offset(0, 18) = "a"
zell.Offset(0, 19) = ""
end if
Next
wenn Einzeilig geht auch, dann aber so:
For Each zell In rng
If wsV.Range("B27").Value = zell.Value Then zell.Offset(0, 18).Resize(, 2) = Array("a", "")
Next
btw, was meinst du genau mit "funktioniert nicht richtig"
das solltest du besser beschreiben, es gibt sehr viele verschiedene Arten, auf die etwas nicht richtig funktionieren kann.
dann wäre da noch die Frage, welche Zelle du kontret bearbeiten willst:
die Zellenn die um 18 bzw 19 Zellen von zell nach rechts versetzt liegen, oder die Zellen in Spalte R und S in der jeweiligen Zeile?
Gruß Daniel