Uhrzeit+Datum Komplizierte Mission

[Excel_Nooby]

Danke nochmal an Alle die mir hier Tipps geben und helfen.

Soweit klappt meine Tabelle schon ganz gut und fast wie gewünscht, habe eine Kleinigkeit geändert. 
Allerdings bekomme ich jetzt immer ein Fehler sobald ich andere Zellen markieren möchte.

Dann kommt immer "Laufzeitfehler ´13' Typen unverträglich" , wenn ich dann auf Debuggen klicke, wird bei mir folgende Codezeile gelb markiert 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target = "" Then
        Cells(Target.Row, 1) = Format(CDate(Now), "dd.mm.yyyy")
        Cells(Target.Row, 12) = Format(CDate(Now), "AT951/21")
    End If
End Sub


Weiß jemand was da der Fehler ist?

[Elex]

Moin

Versuch es mal so.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count = 1 Then
    If Target.Column = 1 And Target = "" Then
        Cells(Target.Row, 1) = Format(CDate(Now), "dd.mm.yyyy")
        Cells(Target.Row, 12) = Format(CDate(Now), "AT951/21")
    End If
  End If
End Sub

Gruß Elex

[Excel_Nooby]

Stark! Der Fehler scheint behoben zu sein!
Kann mich hier nicht oft genug bedanken bei euch Allen, ehrlich, super Community!