DropDown mit F2 STRG-ENTER funktioniert nicht
03.02.2018 20:25:19
Jens
Wer kann mir auf die Sprünge helfen bei folgendem Problem:
Habe einen Bereich D3:D15 (Format: 00:00 bzw. [hh]mm), in dem ich Zeiten per Pulldown-Menü eintrage. Die Zeitwerte (01:00 bis 13:00) stehen in einer Gültigkeitsliste (B3:B15).
Wenn man mehrere Zellen markiert (z. B. D3:D6), einen Vorgabewert auswählt, F2 drückt und dann STRG-ENTER, wird der ausgewählte Wert in alle markierten Zellen eingetragen.
Nun habe ich aber einen Code (im Blatt) für den Bereich D3:D15 erstellt, der dafür sorgt, dass beim Drücken der ENTF-Taste (also wenn man Werte löscht) aus visuellen Gründen immer eine Null bzw. aufgrund der Formatierung ein 00:00 eingetragen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D15")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
If Target.Value = 0 Or Target.Value = "" Then
Target.Value = 0
End If
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
PROBLEM: Was sorgt dafür, dass beim Eintragen von Vorgabewerten und Drücken F2 STRG-ENTER nun >immer Vielen Dank schon mal für Eure Tipps und Gedanken!
Gruß,
Jens
PS: Die Datei https://www.herber.de/bbs/user/119515.xlsm
Anzeige