Doppelklick Makro mit Blattschutz

[chris-ka]

Hi,

sollen bestehende Werte einfach so überschrieben werden können?
Warum nicht Datum & Uhrzeit zugleich einfügen oder gibt es einen Grund dies zu trennen?

hier mal mit check ob die Zelle schon einen Inhalt hat.

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    Select Case .Column
      Case 3, 5 
        Cancel = True
        Target = IIf(check(Target.Value), Target.Value, Date)
        Target.NumberFormat = "dd/MM/YYYY"
        
      Case 4, 6 
        Cancel = True
         Target = IIf(check(Target.Value), Target.Value, Time)
        Target.NumberFormat = "hh:mm"
    End Select
  End With
End Sub

Function check(valrng) As Boolean
If valrng <> "" Then
    If MsgBox("Soll der Wert der Zelle überschrieben werden", vbYesNo) = vbYes Then check = False
End If
End Function

p.s anbei eine Variante mit einem Timepicker (sollte eigentlich auf allen 32 Bit Office Versionen funktionieren)


  Casino-Spielzeit_V2.xlsm (Größe: 36,1 KB / Downloads: 4)

[Maximus]

Hi Ralf,
das mit der intelligenten Tabelle werde ich mir auf jedem Fall noch mal anschauen.
Da ich die Formel aber noch in einen anderen Vordruck übertrage, wo noch keine intelligente Tabelle ist, benötige ich wieder eine "normale" Formel.


Deine neue Formel:
=(([@[Ende/Datum]]+[@[Ende/Uhrzeit]])*24-([@[Beginn/Datum]]+[@[Beginn/Uhrzeit]])*24)/24



Deine alte Formel:
=REST((E2+F2)-(C2+D2);1)+(E2-C2)

Wenn ich die Ergänzung in deine alte Formel übertragen möchte, lasse ich dann folgendes weg:
;1)+(E2-C2)

Sieht die dann so aus:
=REST((E2+F2)*24-(C2+D2))*24/24


Gruss Markus

[Rabe]

Hi,

Warum nicht Datum & Uhrzeit zugleich einfügen

in eine einzige Zelle z.B. so

Code:

'
     Case 10 'Spalte "J" = 10
       Cancel = True
       Target = IIf(check(Target.Value), Target.Value, Now)
           Target.NumberFormat = "dd/MM/YYYY hh:mm"

Arbeitsblatt mit dem Namen 'Tabelle1'
	J	K	L
2	20.12.2017 10:51	20.12.2017 10:54	00:02

Zelle	Formel
L2	=(K2*24-J2*24)/24

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

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

[chris-ka]

Hallo Ralf,

das ist mir schon klar :)
Es war nur eine Fragestellung an den TS warum beides getrennt verwaltet werden sollte.
Da es ja ohnehin um "JETZT" geht erspart man sich 100% der Klicks wenn beides in einer Spalte eingetragen wird.

lg
Chris

[Rabe]

Hi Chris,

mir ist schon klar, daß Du meinen Beitrag nicht brauchst, aber der TS vielleicht schon.

Ich würde sagen, er spart sich nur 50%, aber immerhin ...

[Rabe]

Hi Markus,

Sieht die dann so aus:

Code:

=REST((E2+F2)*24-(C2+D2))*24/24

nein, so:

Code:

=REST((E2+F2)*24-(C2+D2)*24)/24

also beide Zahlbereiche einzeln mit 24 multiplizieren, um auf Dezimalzeit zu kommen, dann voneinander subtrahieren und das Ergebnis durch 24 teilen, um für die Anzeige auf echte Stunden:Minuten zu kommen.

[chris-ka]

Hallo Ralf,

^^ 100% weniger Klicks , 50% Ersparnis
oder doch umgekehrt :)

nein, so:
Code:

Code:

=REST((E2+F2)*24-(C2+D2)*24)/24

Ich würde es so verwenden (wenn beides noch getrennt eingetragen ist)
die Formel in G2 wäre dann
=E2+F2-C2-D2

und in H2
=(E2+F2-C2-D2)*24

das mit dem Rest kann nicht passen da der Divisor fehlt
und da ja das Datum miteinbezogen ist kann Rest komplett wegfallen, oder übersehe ich da etwas?

lg
Chris

[Maximus]

Code:

=REST((E2+F2)*24-(C2+D2)*24)/24

ich versuche auch gerade mit der oben genannten Formel ein Ergebnis hinzubekommen, aber Excel schluckt die Formel nicht

[Maximus]

Hi Chris,

habe mal deine Formel:

=E2+F2-C2-D2


und als Benutzerdifiniert:


[hh]:mm


verwendet.


Das sieht auf dem ersten Blick super aus!
DANKE

Ich teste noch mal ein bissel

[Kuwer]

Hallo,

wozu braucht man das 24-Gedöns überhaupt?

Tabelle1

	A	B	C	D	E	F	G	H	I
1	Spieler	Casino	Beginn/Datum	Beginn/Uhrzeit	Ende/Datum	Ende/Uhrzeit	Dauer	Dauer dezimal	Spalte1
2			20.12.2017	23:00	23.12.2017	02:30	51:30	51,50	51:30
3			17.12.2017	22:00	18.12.2017	01:00	03:00	3,00	03:00
4			18.12.2017	22:00	19.12.2017	02:00	04:00	4,00	04:00

Formeln der Tabelle

Zelle Formel G2 =([@[Ende/Datum]]+[@[Ende/Uhrzeit]])-([@[Beginn/Datum]]+[@[Beginn/Uhrzeit]]) H2 =(([@[Ende/Datum]]+[@[Ende/Uhrzeit]])-([@[Beginn/Datum]]+[@[Beginn/Uhrzeit]]))*24 I2 =REST((E2+F2)-(C2+D2);14)

Gruß Uwe