Eingaben rückgägnig machen

[Blacklady]

Hallo,

esetze Dein bisheriges durch dieses Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
 Select Case Target.Address
   Case "$E$34", "$E$35", "$E$34:$E$35"
     Rows(35).Hidden = Range("E35").Value = Range("E34").Value
 End Select
End Sub

Gruß Uwe

Danke Kuwer. Habe den Makro ersetzt. Mal sehen ob es jetzt funktioniert wie gewünscht.

[Kuwer]

Hallo,

da in E34 und E35 Formeln stehen, wird das Change-Makro nie ausgeführt, sprich die Zeile 35 nie ein-/ausgeblendet werden.
Da Du nichts gegen eine Tastenkombination hast, folgender Vorschlag:
Momentan steht in der Zelle G3 die Funktion =HEUTE(). Auf diese Zelle beziehen sich ja auch die Zellen E34 und E35. In Zukunft wird das aktuelle Datum manuell eingetragen, und zwar per Tastenkombination Strg+. (Punkt) und anschließend Enter oder Doppelklick in die Zelle G3. Nur dann werden die Zeile 35 entsprechend ein-/ausgeblendet und alle bisherigen gespeicherten Rückgängigschritte gelöscht.

Lösche das momentane Change-Makro und füge folgende Makros ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address = "$G$3" Then
   Target.Value = Date
   Cancel = True
 End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$G$3" Then
   Rows(35).Hidden = Range("E35").Value = Range("E34").Value
 End If
End Sub

Gruß Uwe