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.
'Dieses hier ins Tabellenklassenmodul der betroffenen Tabelle
Private Sub Worksheet_Activate()
'Übernimmt die Werte >0 von $M nach $N
Dim rZelle As Range
For Each rZelle In Range("M11:M22")
With rZelle
If .Value > 0 And .Value <> .Offset(0, 1).Value Then 'Nur Wert>0 in Spalte $M
.Offset(0, 1).Value = .Value 'nach Spalte $N übertragen
End If
End With
Next rZelle
End Sub
VG KH
|