Hi Oliver,

habe mich da etwas vertippt.

Natürlich soll in Salte "F" die Einfahrzeit und in Spalte "G" die Ausfahrzeit.
Bin im Augenblick etwas neben der Rolle.
Sorry.
Ich ersetze gerade meinen Code durch deinen und fühe die Zeile ein.

Viele grüße Sven.

Hallo Sven,

nachfolgenden Code ersetze gegen Deinen Alten. Das wäre mal zum 1. Test eine Möglichkeit.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

 Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
    If Target.Value = "" Then
        With Target.Offset(0, 3)
        .NumberFormat = "hh:mm:ss"
        .Value = ""
        End With
        Target.Offset(0, 4).Value = ""
    Else
        'Einfahrzeit in Spalte F
        With Target.Offset(0, 3)
        .NumberFormat = "hh:mm:ss"
        .Value = Time
        End With
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intAbfrage As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
    If Target.Offset(0, 3) <> "" And Target.Offset(0, 4) = "" Then
        intAbfrage = MsgBox("Soll die Abfahrzeit für dieses Fahrzeug gesetzt werden?", _
                            vbQuestion + vbYesNo, "Abfahrzeit setzen?")
        If intAbfrage = 7 Then Exit Sub
        'Ausfahrzeit in Spalte G
        With Target.Offset(0, 4)
            .NumberFormat = "hh:mm:ss"
            .Value = Time
        End With
    End If
End If
End Sub 

Ich hoffe, wir kommen der Sache langsam näher?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

einen Gruß und einen schönen Tag zu dir.
Habe deinen Code in ein Modul geschrieben.Beim ausprobieren kommt aber Fehler beim Kompilieren: Syntaxfehler

in folgender Zeile

If Not Intersect(Target, Range("C:C)) Is Nothing Then

was ist zu tun ??

mfG Sven.

Hallo Sven,

das darf nicht

Range("C:C)) 

sondern muss

Range("C:C") 

heißen. Da ist Dir wohl ein schreibfehler unterlaufen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

habe es abgeändert, aber jetzt kommt :

Fehler beim Kompilieren:
Erwartet Listentrennzeichen oder )

Was ist das für eine Fehlermeldung ??

Mal nebenbei bemerkt habe ich deinen Code kopiert ;-)

mfG Sven

Hallo Sven,

jetzt wird am Ende der Intersect-Methoode die Klammer fehlen. Ich dachte mir, Du verstehst was ich meinte. In Deiner Codezeile fehlte hinter dem 2. C die Anführungszeichen. Nun fehlt hinter dem Anführungszeichen die Klammer. Zumindest vermute ich das mal, ohne Dienen Code jetzt zu sehen.

Ganz nebenbei bemerkt, der Code aus meiner Antwort 22 funktioniert. Wenn das bei Dir nicht funktioniert, wird Deine Datei anders sein als meine Beispieldatei. Lade also Deine Datei mal hoch, wenn es immer noch nicht funktioniert oder meinst Du ich erstelle mir jetzt auf gut Glück eine Datei, die so aussieht wie Deine?

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver

Sorry ich wollte nicht nerven.Ich habe zu Anfang gesagt das ich ein absoluter Neuling auf dem Gebiet VBA bin und nicht so ein alter Hase wie du. Deshalb stelle ich mich so doof an und stelle so viele Fragen.

Habe jetzt alles geändert und warte vergeblich auf die Zeiten.

Der Code sieht jetzt wie folgt aus:

Option Explicit

Private Sub Worksheet_Cange(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Value = "" Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = ""
End With
Target.Offset(0, 4).Value = ""
Else
'Einfahrzeit in Spalte F
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intAbfrage As Integer
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target.Offset(0, 3) <> "" And Target.Offset(0, 4) = "" Then
intAbfrage = MsgBox("Soll die Abfahrzeit für dieses Fahrzeug gesetzt werden ?", _
vbQuestion + vbYesNo, "Abfahrzeit setzen?")
If intAbfrage = 7 Then Exit Sub
'Ausfahrzeit in Spalte G
With Target.Offset(0, 4)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub


Meine Tabelle sieht wie folgt aus:

Spalte A ; Spalte B ; Spalte C ; Spalte D ; Spalte E ; Spalte F ; Spalte G
Datum Firma KFZ Zeichen Lieferung Ort Einfahrt Ausfahrt


Ich bitte nochmals um Entschuldigung für mein Unwissen aber es scheint bei mir nicht zu funzen.
Bitte hilf mir denn es erleichtert meine Arbeit ungemein.
Der vorherige Code hat doch auch funktioniert , nur das mit dem Doppelklick auf die entsprechende Zelle in Spalte C zum eintragen der ausfahrzeit war noch nicht so wie ich dachte.

für deine Mühen danke ich dir noch vielmals.
mfG Sven

Hallo Sven

wo ist Deine Datei? Wie ich bereits geschrieben habe



MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

ich bin etwas verwirrt, denn ich habe aufgezeigt wie meine Tabelle aussieht.

Meine Tabelle sieht wie folgt aus:

Spalte A ; Spalte B ; Spalte C ; Spalte D ; Spalte E ; Spalte F ; Spalte G
Datum Firma KFZ Zeichen Lieferung Ort Einfahrt Ausfahrt

oder was möchtest du noch wissen??

mfG Sven

Hi,

Knutschi schrieb in #23:


Doch hoffentlich nicht in ein StandardModul. Dort gehört er nicht hin. Er gehört in das Project der bettroffenen Tabelle. Ich verweise dazu mal wieder auf die Site von coros. Dort dann unter Anleitungen die Nummer2.

Bye
malSchauen

Hallo Sven,

ich habe Dir gerschrieben, dass der VBA-Code in meiner Beispieldatei funktioniert. In Deiner Datei funktioniert er nicht. Ergo: Der Fehler liegt irgendwo im Zusammenspiel Deine Datei und der VBA-Code.
Was bringt es mir da, wenn ich den Aufbau Deiner Datei kenne? Nichts, da man zur Fehlersuche Deine Datei benötigt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo malSchaun

vielen Dank für deinen Hinweis. Habe den Code in Tabelle 1 eingetragen und in ein Modul.
Jetzt weiß ich absolut nicht mehr weiter da ich nun keine Zeit mehr erhalte.
Komischer weise funzt er bei Oliver gut aber bei mir reagiert er warscheinlich garnicht.
Entweder bin ich zu unfähig dazu den Code anzuwenden oder er geht bei mir wirklich nich.
Ich bin totaler Anfänger in Sachen VBA.
Habe es aber so gemacht wie auf der Hompage

mfG Sven

Hallo Sven,

der Code gehört nur in das VBA-Projekt des Tabellenblatts. Das Modul kannst Du löschen.
Wie lange sollen wir denn jetzt noch mit langen Stangen im Nebel stochern? Lade bitte Deine Datei hoch, da man Dir ansonsten nicht helfen kann. So streng geheim wird die Datei ja nicht sein.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi,

Gut, nun habe ich wohl nur für Verwirrung gesorgt. Das wollt ich nicht.
Gehe doch bitte einfach mal auf den Vorschlag von coros ein, und lade Deine Beispieldatei einmal ins Netz.

Dazu:
-http://www.file-upload.net/ aufrufen
-auf Durchsuchen klicken
-Deine Exceldatei suchen, OK
-auf Datei Hochladen klicken
-DownloadLink kopieren und hier Posten

Damit kann man sich dann Deine Datei herunterladen und so nach dem Fehler schauen.

Bye
malSchauen

Hi mal Schauen

Ich habe den Code in ein Modul und in Tabelle 1 geschrieben.
Vieleicht liegt es an meiner Unfähigkeit das ich die ganze Sache nicht zum Laufen bekomme. Bei Oliver funzt der code und bei mir nicht.

mfG Sven

Hallo Sven,

sag mal ließt Du Dir die Antworten auch durch? Was habe ich in AW33 geschrieben, wo der VBA-Code hin gehört und wo er gelöscht werden kann?

Sorry, aber da Du die Datei partu nicht zur Verfügung stellen willst, hört dann für mich die Hilfe hier auf, da ich besseres zu tun habe als ständig zu rätseln, was bei Deiner Datei falsch sein könnte.

Entweder Du lädst die Datei hoch, wie von mir nun bereits mehrfach gewünscht und von @malSchauen in AW34 beschrieben oder für mich ist hier Schluß.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Sorry Leute,

Ich wusste nicht wie das mit dem Hochladen geht.

habe es nun geschafft. Bitte meine Datei.

http://www.file-upload.net/download-1913467/Probierliste.xls.html

Ich möchte mich noch einmal in aller Form entschuldigen für mein Unwissen.

mfg Sven

Hi Oliver

Du bist einfach ein Schatz und eine Korifähe.
Genau so habe ich mir die ganze Sache gedacht.
Ich bedaure die ganzen Schwirigkeiten die ich bereitet habe.
Jetzt funzt es wunderbar. Nochmals vielen Dank an alle Beteiligten.
Vor allem Oliver der mit Rat und Tat zur Seite stand als auch malschaun der mir die Sache mit dem hochladen bei gebracht hat.

vielen vielen Dank euch allen

mfG Sven

Hallo Sven,

gerne geschehen. Danke auch für die Rückmeldung. Bei Deinem nächsten Problem solltest Du allerdings etwa schneller Deine Datei hochladen, denn dann hätten wir uns die letzten 12 Beiträge sparen können.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}