Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A3")) Is Nothing Then
     Dim OldValue As Variant
     Application.EnableEvents = False
     Application.Undo
     OldValue = Target.Value
     Application.Undo
     Application.EnableEvents = True
     If OldValue <> Target.Value Then
        'OldValue to new Cell
     End If
  End If
 End Sub
...zur Antwort

Benutze das Handy um Film zu schauen und nimm eine kleine Powerbank mit

...zur Antwort

Es wird ein selbstklebender Magnet mitgeliefert. Ich habe 4 Displates bestellt. Wir haben auch eher raue Wände. Bei mir halten immer noch 3, nur einer fiel immer runter, wahrscheinlich an der falschen Stelle befestigt. Habe dann zwei Löcher reingebohrt.

...zur Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.