(15.04.2018, 14:56)Kuwer schrieb: [ -> ]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.
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