leere Zelle mit Wert darüber füllen

[Klaus]

... au man - sorry ich bin wohl etwas durch den Wind.
Natürlich Spalte C und ab C7.

Sorry nochmal für meine Unachtsamkeit.

[Werner.M]

Hallo,

so:

Code:

Public Sub aaa()
Dim loZeile As Long, i As Long

Application.ScreenUpdating = False

'Blattname anpassen
With Worksheets("Tabelle1")
    loZeile = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = 7 To loZeile
        .Cells(i, "C").TextToColumns Destination:=.Cells(i, "C"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
    Next i
    .Range(.Cells(7, "C"), .Cells(loZeile, "C")).NumberFormat = "ddd - dd/mm/yy"
End With

End Sub

Gruß Werner

[Klaus]

grrrrrr.... ja es funktioniert super - nur hat auch hier wieder jemand Quatsch in die Zellen eingetragen.
Es gibt Zellen mit Leerzeichen, ganz leere Zellen und Zellen in denen einfach nur Text drin steht...

Wäre es möglich, die nicht zu identifizierenden zu überspringen?

---

ha... ein blindes Huhn und so...
ich hab den Code um 

Code:

On Error Resume Next

 erweitert 

Vielen Dank dir nochmal

Liebe Grüße
Klaus