Doppelklick Makro mit Blattschutz

[Rabe]

Hi,

die Datei, die Du hier hochgeladen hast, hat einen Blattschutz mit einem Passwort, das nirgends definiert ist.
So kann ich gar nix machen.

Aber letztendlich funktioniert es jetzt zumindest auf dem ersten Blatt.

Super danke so funktioniert es wie ich mir das ganze vorgestellt habe.

dann lade diese Datei mal hoch.

[Maximus]

Hi Maverik,
wärst du so nett, deinen Excel-Vordruck ohne Blattschutz nochmals hochzuladen, damit auch andere den Vordruck oder Teile davon verwenden können.
Danke!

[Rabe]

Hi,

das Passwort hat er wohl nicht, deswegen schrieb er vermutlich:

Ich tüftle hier schon rum und bekomme einfach nicht den Blattschutz raus um die Excel-Datei zu bearbeiten.

[Maximus]

Hi Rabe,

ich habe dein Programm mal versucht auf mein Formular abzuändern.

Bei:
Übernahme/Datum
Übernahme/Uhreit

klappt dein Programm

Bei:
Rückgabe/Datum

Rückgabe/Uhreit



bekomme ich durch Doppelklick keinen Eintrag.



Könntest du mir bitte weiterhelfen.

Danke Maximus

[Maverik000]

Hi Maverik,
wärst du so nett, deinen Excel-Vordruck ohne Blattschutz nochmals hochzuladen, damit auch andere den Vordruck oder Teile davon verwenden können.
Danke!

Hi,

brauchst du die Datei so?

[Maximus]

Danke Maverik,
was ich gut verwenden kann, sind die Spalten mit Doppelklick!
Hab genau dein verwendetes Programm auf meine Spalten gemünzt, aber bei E und F klappt das mit dem Doppleklick nicht.
Mal schauen, ob Rabe, der sich ja auch damit beschäftigt hat, eine Lösung parat hat.

[Rabe]

Hi,

Übernahme/Datum
Übernahme/Uhreit
klappt dein Programm

Bei:
Rückgabe/Datum
Rückgabe/Uhreit
bekomme ich durch Doppelklick keinen Eintrag.

jau, das ist klar, da Du Spalte C als 1, D als 2, E als 3, F als 4 bezeichnest.
Spalte C ist aber die 3. Spalte und F die 6.
Also sollte das Makro so heißen:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    Select Case .Column
      Case 3 'Spalte "C" = 3 
        Cancel = True
        Target = Date
        Target.NumberFormat = "dd/MM/YYYY"
        
      Case 4 'Spalte "D" = 4 
        Cancel = True
        Target = Time
        Target.NumberFormat = "hh:mm"
        
      Case 5 'Spalte "E" = 5 
        Cancel = True
        Target = Date
        Target.NumberFormat = "dd/MM/YYYY"
        
      Case 6 'Spalte "F" = 6 
        Cancel = True
        Target = Time
        Target.NumberFormat = "hh:mm"
    End Select
  End With
End Sub

Die grünen Texte sind nur Kommentare!

[Maximus]

DANKE Rabe,
jetzt klappt es!!!!

[Rabe]

Hi Maverick,

ich habe an Deinen Formeln noch etwas gedreht:

  Fahrtenbuch.xlsm (Größe: 19,83 KB / Downloads: 6)

Und da Du eine intelligente Tabelle hast, muß die Liste in der Länge nicht vorgehalten werden.

Arbeitsblatt mit dem Namen 'Januar 2018'

A

B

C

D

E

F

G

H

I

J

K

L

1

Übernahme / Datum

Übernahme / Uhrzeit

Rückgabe / Datum

Rückgabe / Uhrzeit

Fahrer

Art der Nutzung

Ziel

PKW-Kennzeichen

Handy / Navi

Privat PKW in TG 1

KW

Fahrzeit

2

19.12.2017

12:12

20.12.2017

16:12

51

28:00

Zelle	Formel
K2	=KALENDERWOCHE([@[Übernahme / Datum]];21)
L2	=REST(([@[Rückgabe / Datum]]+[@[Rückgabe / Uhrzeit]])-([@[Übernahme / Datum]]+[@[Übernahme / Uhrzeit]]);1)+[@[Rückgabe / Datum]]-[@[Übernahme / Datum]]

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

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

[Maximus]

Hallo,
zwei Fragen hätte ich noch zu dem Vordruck:

1. Warum kann ich händisch in Spalte C und E nicht das Datum eintragen?
    Bekomme immer eine Fehlermeldung. Das VBA-Programm, wodurch mit Doppelklick ein automatischer Eintrag vorgenommen wird, funfktioniert einwandfrei!

2. Könnte mir jemand sagen, wie die Formel in G sein müßte, wenn Übernahme und Rückgabe an unterschiedlichen Tagen ist?
    Die jetzige Formel =F2-D2 funktioniert nur wenn das gleiche Datum vorliegt.

Danke und Gruss

PS: Die Formel bei Maveriek in L ist für mich zu kompliziert um nachzuvollziehen.