title image


Smiley Re: Zahl in Datum umwandeln, aber "in der selben Zelle"
Hallo Girtler,



rechtsklick auf den fraglichen Tabellenblatt-Reiter - Code anzeigen und das nachfolgende Makro einfügen. Mit Schließen-Kreuz die VBA Umgebung wieder verlassen und testen.



In Spalte B ab Zeile 2 bis Zeile 150 geht dein Vorhaben.



Private Sub Worksheet_Change(ByVal Target As Range)



Dim Datum As Date



If Target.Column = 2 And Target.Row > 2 And Target.Row < 151 Then

If Len(Target.Value) = 8 Then

Datum = Left(Target.Value, 2) & "." & _

Mid(Target.Value, 3, 2) & "." & _

Right(Target.Value, 4)

Target.Value = Datum

End If

End If



End Sub



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: