title image


Smiley Oh, da muss ich nachbessern
Hallo!



neue version:



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error GoTo Ende

If Not Application.Intersect(Target, Range("a:a")) Is Nothing Then

Application.EnableEvents = False

t = CStr(Target)

If Len(t) = 5 Or Len(t) = 7 Then z = 1

Tag = Left(t, 2 - z)

Monat = Mid(t, 3 - z, 2)

Jahr = Mid(t, 5 - z)

Target = CDate(Tag & "." & Monat & "." & Jahr)

End If

Ende:

Application.EnableEvents = True

End Sub



Hoffentlich stimmt es jetzt!



Gruß

manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: