Werte in Zellen überschreiben
Friedhelm
möchte gerne Werte im Bereich D20:F23 eingeben. Wenn in einer dieser Zellen ein Wert vorhanden ist,
so soll dieser in den Bereich A1:C23 eingetragen werden. Wenn kein Wert im Bereich D20:F23 vorhanden ist
möchte ich im Bereich A1:C23 Werte eingeben können ohne das diese mit Null-Werten überschrieben wird.
Bin mal angefangen was aber nicht funktioniert. Wenn ich eine Zelle abfrage funktioniert es muß nur noch die Bedingung wert vorhanden eingefügt werden.
Kann man überhaupt ganze Bereiche abfragen oder muß ich dieses für jede Zelle machen.
Es soll ja auch so sein das die Werte sofort übertragen werden sobald sich etwas ändert und es muß bei einem geschützten Tabellenblatt funktionieren
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[A1:C3] = [D20:F23]
Application.EnableEvents = True
End Sub
Gruß Friedhelm