title image


Smiley geht nicht per Format, sondern nur mit VBA
Hallo!



Füge im VBA-Editor in das Codefenster der gewünschten Tabelle zum Ausprobieren mal folgenden Code ein:



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)

Tag = Left(t, 2)

Monat = Mid(t, 3, 2)

Jahr = Mid(t, 5)

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

End If

Ende:

Application.EnableEvents = True

End Sub



Immer, wenn Du nun in Spalte sowas wie 120602 oder 12062005 eingibst, wird daraus ein Datum mitsamt den Punkten gemacht.



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: