Hi,
da hast Du wohl etwas nicht richtig gemacht, aber nun gut, mit nachfoglendem Code wird die Übernahme mit Aktivierung des Blattes ausgelöst.
Ist vielleicht besser, als bei Öffnen der Mappe.
Und das kommt nicht in ein normales Modul, sondern ins entsprechende Klassenmodul der betreffenden Tabelle..
'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 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
|