Option
Explicit
Private
Sub
Workbook_Open()
Dim
rZelle
As
Range, WSh
As
Worksheet
Set
WSh = ThisWorkbook.Sheets(
"Tabelle1"
)
For
Each
rZelle
In
WSh.Range(
"M11:M22"
)
With
rZelle
If
.Value > 0
Then
.Offset(0, 1).Value = .Value
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 :-)