|
Hallo Werner,
okay, dieser Fehler war nicht mit Formatierung gemeint. Ich dachte an die Darstellung vom Code selbst (also alles nebeneinander).
Ich persönlich tue mich in dieser Darstellung sehr schwer, diesen nachvollziehen zu können.
Also nocheinmal der verbesserte Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If Target.Column = 2 Then ' Eingabe in Spalte A
If Target.Value <> "" Then
.Cells(Target.Row, 3).Value = Date
End If
End If
Hättest du vielleicht eine Idee, wie ich diesen in das gleiche Tabellenblatt mit integrieren kann (also keine Doppelnennung von Private Sub....)?
Mfg
End With
End Sub
|