dieses Makro habe ich auch über das Forum erhalten.
Ich möchte jetzt die Buchstaben ändern in Variable, hatte mal ?
eingesetzt aber leider ohne Erfolg.
Sub deleteValues()
Dim rng As Range, rngDel As Range
With ActiveSheet
For Each rng In .Range("AY4:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row)
'If rng Like "LP*" Then
'If rng Like "PA*" Then
If rng Like "?*" Then
rng = CDate(DateSerial(Mid(rng, 7, 2) * 1, Mid(rng, 5, 2) * 1, Mid(rng, 3, 2) * 1))
Else
If rngDel Is Nothing Then
Set rngDel = rng
Else
Set rngDel = Union(rngDel, rng)
End If
End If
Next
.Range("AY2:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row).NumberFormat = "dd.mm.yy"
End With
If Not rngDel Is Nothing Then rngDel.ClearContents
Set rng = Nothing
Set rngDel = Nothing
End Sub
mfg walter mb