nachfolgender Code bewirkt folgendes:
steht etwas in Spalte A; dann schreibe "UserNr." und "Datum" in Spalte M (gleiche Zeile).
(So sollte es eigentlich sein)
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 1
Sheets("Tabelle1").Range(Target.Address).Offset(0, 12).Value = _
Application.UserName & " - " & Date
Case Else
End Select
Application.EnableEvents = True
End Sub
Aber: die "UserNr." und "Datum" wird nicht nur in Spalte M geschrieben,
sondern noch in 12 weitere Spalten (bis Spalte Y).
Es soll aber nur die Spalte M beschrieben werden.
Wer weiß woran das liegt?
Danke im voraus,
gruss
alex