Hi,
die Datei, die Du
hier hochgeladen hast, hat einen Blattschutz mit einem Passwort, das nirgends definiert ist.
So kann
ich gar nix machen.
Zitat:Aber letztendlich funktioniert es jetzt zumindest auf dem ersten Blatt.
Zitat:Super danke so funktioniert es wie ich mir das ganze vorgestellt habe.
dann lade
diese Datei mal hoch.
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,
das Passwort hat er wohl nicht, deswegen schrieb er vermutlich:
Zitat:Ich tüftle hier schon rum und bekomme einfach nicht den Blattschutz raus um die Excel-Datei zu bearbeiten.
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
(19.12.2017, 10:13)Maximus schrieb: [ -> ]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?
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.
Hi,
(19.12.2017, 11:22)Maximus schrieb: [ -> ]Ü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!
DANKE Rabe,
jetzt klappt es!!!!
Hi Maverick,
ich habe an Deinen Formeln noch etwas gedreht:
[
attachment=15090]
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 |
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.