Clever-Excel-Forum

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

Hallo Phoeni,

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

Hi

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

mfg Tom

Forum Fehler ?

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

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

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.

Ebenso hier keine Reaktion mehr.

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

bei mir gehts ohne Fehlermeldung

[attachment=49348]

Danke hierfür


jetzt funktioniert es
Gruß Phoeni