28.12.2017, 12:58
Hallo,
ich habe eine Tabelle (siehe Anhang).
Ich möchte gerne in den Zellen B3:I14 durch Doppelklick das aktuelle Datum erzeugen können.
Ich habe dafür hier im Forum auch ein VBA Programm gefunden, bei dem aber immer jede einzelne Zelle angesprochen wird.
Besteht die Möglichkeit auch gleich den ganzen Bereich (Zellen B3:I14) anzusprechen?
Ich vermute mal, dass wenn z.b. 3x Datum nebeneinander aufgeführt sind, diese unter Summe zählen zu können, auch wenn es sich nicht um eine Zahl handelt.
Aber das werde ich dann testen.
Wäre super, wenn jemand eine Lösung weiß.
Gruss Markus
das ist der Code, den ich gefunden habe.
ich habe eine Tabelle (siehe Anhang).
Ich möchte gerne in den Zellen B3:I14 durch Doppelklick das aktuelle Datum erzeugen können.
Ich habe dafür hier im Forum auch ein VBA Programm gefunden, bei dem aber immer jede einzelne Zelle angesprochen wird.
Besteht die Möglichkeit auch gleich den ganzen Bereich (Zellen B3:I14) anzusprechen?
Ich vermute mal, dass wenn z.b. 3x Datum nebeneinander aufgeführt sind, diese unter Summe zählen zu können, auch wenn es sich nicht um eine Zahl handelt.
Aber das werde ich dann testen.
Wäre super, wenn jemand eine Lösung weiß.
Gruss Markus
das ist der Code, den ich gefunden habe.
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
Select Case .Column
Case 6 'Spalte "F" = 6
Cancel = True
Target = Date
Target.NumberFormat = "dd/MM/YYYY"
Case 10 'Spalte "J" = 10
Cancel = True
Target = Time
Target.NumberFormat = "hh:mm"
Case 7 'Spalte "G" = 7
Cancel = True
Target = Date
Target.NumberFormat = "dd/MM/YYYY"
Case 11 'Spalte "K" = 11
Cancel = True
Target = Time
Target.NumberFormat = "hh:mm"
End Select
End With
End Sub