Untenstehendes Makro wird nicht ausgeführt (entspricht wahrscheinlich der Excelfunktion von Werte einfügen., wo eine Mehrfachmarkierung nicht zulässig ist?). Wie sollte der Code lauten, daß er funktioniert?
NR = Target.Row
With ActiveSheet
With .Union(.Cells(NR, 2), .Cells(NR, 3), .Cells(NR, 4), .Cells(NR, 44), .Cells(NR, 113), .Cells(NR, 241))
.Calculate
.Value = .Value
If .Value = 0 Then .Value = ""
End With
End with
Danke im Voraus
Gruß Lorenz