Guten Morgen Nico,
die Fehlerbeschreibung "geht nicht" ist nicht zielführend.
Aufgrund Deines letzten Postes hier der einfachste Code zum Übertragen von Werten:
Wenn in $M einer Zeile ein Wert >0 steht, wird er nach $N übertragen. Das geschieht immer für alle Monate.
Du hattest ja beschrieben, dass nur ein Monat zu einem gegebenen Zeitpunkt einen Wert hat.
Die Aussage "leer" ist genau genommen auch nicht richtig, denn wenn da eine Formel drin steht, ist die Zelle nie leer sondern höchtens 0.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Option Explicit
Sub WerteUebertragen()
Dim rZelle As Range
For Each rZelle In Range( "M11:M22" )
With rZelle
If .Value > 0 Then
.Offset(0, 1).Value = .Value
End If
End With
Next rZelle
End Sub
|
Diese Sub muss jetzt durch irgendetwas getriggert werden. Entweder durch einen Button, beim Öffnen der Mappe, beim Aktivieren des Blattes usw.
Dazu habe ich keine Aussage gefunden.
viele Grüße aus Hessen nach Niedersachsen
Karl-Heinz
|