Datum mit Doppelklick in mehreren Zellen
28.06.2021 12:58:19
Marco
ich habe jetzt mehrere Beiträge zu dem Thema "per Doppelklick das aktuelle Datum einfügen" durch. Allerdings beziehen sich hier die Antworten und Codes immer nur auf bestimmte Spalten oder Bereiche. Ich habe in meiner Excel-Tabelle jedoch mehrere Zellen in verschiedenen Spalten, die ich mit dem Code befüllen möchte. Das wären die Zellen "G7", "D28", "D35", "G41", "D43", "D45", "L5:M5", "L9"
Ich habe es mit And Formeln, Or Formeln und auch einem Array versucht, aber irgendie will es mir nicht gelingen...Kann mir da jemand weiterhelfen?
Hier mal ein Beispiel meiner unzähligen Versuche...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myListe, myBereich
If InStr(Target.Address, ":") Then Exit Sub
If Target "" Then Exit Sub
myListe = Array("G7", "D28", "D35", "G41", "D43", "D45", "L5:M5", "L9")
For Each myBereich In myListe
If Not Intersect(Target, Range(myBereich)) Is Nothing Then Target = Date
Next myBereich
End Sub