Target.Address.Column+2 ?
19.10.2008 13:11:00
Alex
bei diesem Code handelt es sich um einen "Bearbeiternachweis"- bei dem je nach Eintragung in Spalten 6-16 von Tabelle1 -
der username und das datum in Tabelle2 (selbe Zieladresse) geschrieben.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
Sheets("Tabelle2").Range(Target.Address).Value = Application.UserName & " - " & _
Date
Case Else
End Select
End Sub
Die Zieladresse soll nun aber um zwei Spalten nach rechts versetzt sein.
Wie muss ich das schreiben?
Wie immer vielen Dank für eure Mühen,
alex