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