VBA Fehler

[Phoeni]

Hallo Leute, hoffe Ihr könnt mir helfen.
Wieso bekomme ich in der Zeile- Gelb markiert, siehe Anhang einen Fehler?


Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("C28:C80")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
        Else:
        Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
    End If
End Sub

Danke Gruß Phoeni

[Glausius]

Hallo Phoeni,

an das Else gehört kein Doppelpunkt - mit Doppelpunkt ist es eine Sprungmarke!

[Crazy Tom]

Hi

hast du vielleicht einen Blattschutz drin?
ansonsten Beispieldatei laden, weil so kommt bei mir kein Fehler

mfg Tom

[snb]

Forum Fehler ?

Is diese Frage von dir noch offen ?
Warum reagierst du dort nicht ?

https://www.clever-excel-forum.de/Thread...#pid277813

[Phoeni]

Ja, das Thema ist noch offen, war nur leider Krank.

Ob Else mit oder ohne : Fehler bleibt.
Und ja ich habe ein Blattschutz, jedoch habe ich den schon rausgenommen, der Fehler bleibt jedoch.

[Kuwer]

Ebenso hier keine Reaktion mehr.

https://www.clever-excel-forum.de/Thread...rweiterung

Code:

Target.Offset(0, 1).Value = Now

[Crazy Tom]

bei mir gehts ohne Fehlermeldung

   

[Phoeni]

Danke hierfür

Code:

Target.Offset(0, 1).Value = Now

jetzt funktioniert es
Gruß Phoeni