For each Zelle in Selection ... ?
05.03.2007 10:46:56
Ralf
ich habe hier einen Code, der das Computerdatum umwandelt in ein
normales Datum. Klappt auch super gut, nuuuuuuur, das Excel hier immer von
T 11 bis T 20000 geht, stört mich sehr. Ich würde gerne zuerst die entsprechenden
Zellen markieren ( also irgendwie mit: for each Zelle in Selection... ?) und dann dies
Makro laufen lassen. Hat jemand von Euch eine Idee, wie ich dies einbauen kann ?
Private Sub CommandButton1_Click()
' Datumumwandeln Makro
' Makro am 14.05.2002 von Hollmann aufgezeichnet
Dim Z As Range
Range("T11:T20000").Select
For Each Z In Selection
If Len(Z) = 7 And IsNumeric(Z) Then Z = CDate(Mid(Z, 6, 2) & "." & Mid(Z, 4, 2) & "." & Mid(Z, 2, 2))
Next Z
End Sub
Bin für jeden Tipp dankbar :-)
viele Grüße
Ralf