Ich ersuche hier wieder mal um Hilfe, ich habe ein Makro, mit dem ich in A5 ein Datum ohne _ Punkt und Strich einbeben kann. Nun habe ich es versucht mit "
Private Sub Worksheet_Change(ByVal Target As Range)" das ganze bei Änderung des Datums in A1 _
automatisch ablaufen zu lassen, jedoch ohne Erfolg. Das Makro geht wenn ich es mit einem Button durchlaufen lasse, jedoch nicht automatisch. Ich habe es ins Tabellenblatt wo das ganze ablaufen soll, kopiert.
Warum geht das nicht ?
chris
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strDatum As String
strDatum = Format(ActiveSheet. _
Range("A5").Value, "00000000")
With ActiveSheet.Range("A5")
.Value = DateSerial(Right(strDatum, 4), _
Mid(strDatum, 3, 2), Left(strDatum, 2))
.NumberFormat = "dd.mm.yyyy"
End With
End Sub