Hi Nico,
diesen Code in das Klassenmodul "DieseArbeitsmappe" im VB-Editor, dann sollte das gehen.
Und das getroffene Blatt in den Code eintragen, denn wenn es mehrere Blätter sind, wird ja das gerade aktive Blatt bearbeitet.
Option Explicit
Private Sub Workbook_Open()
'Übernimmt die Werte >0 von $M nach $N
Dim rZelle As Range, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("Tabelle1") 'Tabelle anpassen
For Each rZelle In WSh.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
Und vielen Dank für das Angebot, aber es ist ja eine Kleinigkeit hier mit dem Code :-)
viele Grüße aus Südhessen
KH
|