title image


Smiley If Target.Column = 1 Then Target.Offset(0, 1) = Now
Hey Stefan,



kopiere folgenden VBA-Code in das VBA-Modulblatt des Tabellenblattes :





Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then Target.Offset(0, 1) = Now

End Sub





Und die Spalte B mit TT.MM.JJ hh:mm:ss formatieren

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: