Doppelklick

[Maximus]

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.

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

[Rabe]

Hi Markus,

ich verstehe nicht, was Du erreichen willst.

Für die Frage 2:
Schaue Dir mal ANZAHL() an.

[Klaus-Dieter]

Hallo,

den gesamten Bereich mit dem gleichen Datum, oder wie ... ?

[Maximus]

Hallo Rabe,
ich habe im Januar an unterschiedlichen Tagen Dienstsport.
Zwischen 1 und 5 Mal.
Immer wenn ich Dienstsport hatte, möchte ich durch Doppelklick automatisch das Datum erzeugen.
So das z.b. 3 Daten im Januar stehen.
Diese möchte ich dann unter Summe automatisch zusammengezählt haben.
Und unter Geasmt-Summe soll dann die Anzahl der gesamten Sporttermine im Jahr stehen.
So soll das mal aussehen, wenn es fertig ist.

Gruss Markus

[Rabe]

Hi Markus,

dann hier das Makro für die Spalten B bis I:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 With Target
   Select Case .Column
     Case 2 'Spalte B 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 3 'Spalte C 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 4 'Spalte D 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 5 'Spalte E 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 6 'Spalte F 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 7 'Spalte G 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 8 'Spalte H 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
     Case 9 'Spalte I 
       Cancel = True
       Target = Date
       Target.NumberFormat = "dd/MM/YYYY"
   End Select
 End With
End Sub

Arbeitsblatt mit dem Namen 'Sport'
	A	B	C	D	E	F	G	H	I	J
1	Sport
2	2018	Datum	Datum	Datum	Datum	Datum	Datum	Datum	Datum	Summe
3	Januar	28.12.2017	28.12.2017	28.12.2017	28.12.2017	28.12.2017	28.12.2017	28.12.2017	28.12.2017	8
4	Februar									0
5	März			28.12.2017					28.12.2017	2
6	April				28.12.2017					1
7	Mai									0
8	Juni		28.12.2017	28.12.2017	28.12.2017	28.12.2017	28.12.2017			5
9	Juli									0
10	August					28.12.2017			28.12.2017	2
11	September									0
12	Oktober									0
13	November									0
14	Dezember									0
15	GESAMT									18

Zelle	Formel
J3	=ANZAHL(B3:I3)
J15	=SUMME(J3:J14)

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Steffl]

Hallo,

vielleicht so?

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
   Select Case .Column
     Case 6 'Spalte "F" = 6
       Cancel = True
       Cells(3, Target.Column).Resize(12) = Date
       Cells(3, Target.Column).Resize(12).NumberFormat = "dd/MM/YYYY"
      
     Case 10 'Spalte "J" = 10
       Cancel = True
       Cells(3, Target.Column).Resize(12) = Time
       Cells(3, Target.Column).Resize(12).NumberFormat = "hh:mm"
      
     Case 7 'Spalte "G" = 7
       Cancel = True
       Cells(3, Target.Column).Resize(12) = Date
       Cells(3, Target.Column).Resize(12).NumberFormat = "dd/MM/YYYY"
      
     Case 11 'Spalte "K" = 11
       Cancel = True
       Cells(3, Target.Column).Resize(12) = Time
       Cells(3, Target.Column).Resize(12).NumberFormat = "hh:mm"
   End Select
End With
End Sub

[Maximus]

Hi Steffl,
habe deinen Code reinkopiert.
Funktioniert bei mir leider nicht.



Hallo Rabe,

absolut super gut gelöst.
Klappt alles perfekt!
Danke
Gruss Markus

[Klaus-Dieter]

Hallo Markus,

versuche es mal so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Set isect = Application.Intersect(Target, Range("B3:I14"))
    If Not isect Is Nothing Then
        With Target
            .Value = Date
            .NumberFormat = "dd/MM/YYYY"
        End With
    End If
End Sub

[Maximus]

Hallo Klaus-Dieter,
kurz und bündig!

funktioniert einwandfrei!

Danke