Ich habe folgenden Code (Nicht selber geschrieben):
Public Sub aaa()
Dim rngBereich As Range
Dim rngZelle As Range
Dim LoLetzte As Long
With Worksheets("Übersicht letzter Besuch")
LoLetzte = .Cells(.Rows.Count, 10).End(xlUp).Row
Set rngBereich = .Range(.Cells(2, 10), .Cells(LoLetzte, 10))
For Each rngZelle In rngBereich
If rngZelle.Value "" Then
If rngZelle.Offset(, 3).Value = "" Then
rngZelle.Offset(, 3).Value = CDate(rngZelle.Value)
ElseIf IsDate(rngZelle.Offset(, 3).Value) Then
If CDate(rngZelle.Value) > CDate(rngZelle.Offset(, 3).Value) Then
rngZelle.Offset(, 3).Value = rngZelle.Value
End If
End If
End If
Next rngZelle
End With
End Sub
Jetzt möchte ich noch das Datumsformat in dieser Zeile definieren.Range("M2:M1000").NumberFormat = "(bsp. 21.12.2016)"
Was für ein Format ist das und wo und wie füge ich dies im Code ein?
MFG Ralph