title image


Smiley Re: Datumsausgabe in bestimmte Zelle nach einem Eintrag in einen Zellebreich
Hi!



Versuch's mal so:



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("C16:C27")) Is Nothing Then Me.[C34] = Date

If Not Intersect(Target, Range("F16:F27")) Is Nothing Then Me.[F34] = Date

If Not Intersect(Target, Range("I16:I27")) Is Nothing Then Me.[I34] = Date

If Not Intersect(Target, Range("L16:L27")) Is Nothing Then Me.[L34] = Date

If Not Intersect(Target, Range("O16:O27")) Is Nothing Then Me.[O34] = Date

End Sub

Grüße

 

LXus

 

Win7 x64

Office 2013 x64



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: