title image


Smiley Re: aktuelles Datum einfügen
Hi,







Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

For Each c In Target

    If c.Address(0, 0) = "A1" Then

        If IsEmpty(c) Then

           [B1] = ""

        Else

           [B1] = Date

        End If

    End If

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: