Clever-Excel-Forum

Seiten: 1 2 3 4 5 6

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)

[attachment=15124]

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

Hi,

(20.12.2017, 10:39)chris-ka schrieb: [ -> ]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	=(K224-J224)/24

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

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

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

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 ...

Hi Markus,

(20.12.2017, 10:50)Maximus schrieb: [ -> ]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.

Hallo Ralf,

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

Zitat: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

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

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

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

Seiten: 1 2 3 4 5 6

chris-ka

Maximus

Rabe

chris-ka

Rabe

Rabe

chris-ka

Maximus

Maximus

Kuwer