Hi Nico,
der Wert in N ändert sich nur, wenn in M ein Wert <>0 steht. Da ist es doch egal, ob das nun der gleiche oder eben ein anderer als in M ist.
Aber gut, unten eine Erweiterung.
Und, nix für ungut, aber Du solltest jetzt die verschiedenen Varianten oder zumindest die letzte Variante mal nachvollziehen und versuchen, leichte einfache Änderungen selbst hinzukriegen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Private Sub Worksheet_Activate()
Dim rZelle As Range
For Each rZelle In Range( "M11:M22" )
With rZelle
If .Value > 0 And .Value <> .Offset(0, 1).Value Then
.Offset(0, 1).Value = .Value
End If
End With
Next rZelle
End Sub
VG KH
|
|