Datum kontrolliern

Bild

Betrifft: Datum kontrolliern
von: Andi
Geschrieben am: 17.02.2005 12:50:59
Hoi zäme
Vielleicht kann mir jemand helfen.
Ich habe eine vortlaufenden Datum kollone in der Spalte A.
Leider ist die Datumkollone nicht vollständig, dazwischen fehlen Datume.
Nun müsste bei den fehlenden Datume eine leere Zeile eingefühgt werden mit dem fehlenden Datum.
Damit ich die ganze Liste auf einmal updaten kann möchte ich es in ein Makro verpacken.
Vielen Dank für die Hilfe
Andi

Bild

Betrifft: AW: Datum kontrolliern
von: Uduuh
Geschrieben am: 17.02.2005 13:03:29
Hallo,
in ein Modul:

Sub Datum_rein()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 2 Step -1
  If Cells(i, 1) - Cells(i - 1, 1) <> 1 Then
    Cells(i, 1).EntireRow.Insert shift:=xlDown
    Cells(i, 1) = Cells(i + 1, 1) - 1
    i = i + 1
  End If
Next i
End Sub

Gruß aus'm Pott
Udo

Bild

Betrifft: AW: Datum kontrolliern
von: Andi
Geschrieben am: 17.02.2005 15:47:59
Hallo Uduuh
Danke für die schnelle Antwort!
Aber leider funktioniert es nicht.
bleibt auf der IF Linie stehen. (run-time error '13')
Danke für die Hilfe
Andi
Bild

Betrifft: AW: Datum kontrolliern
von: u_
Geschrieben am: 17.02.2005 16:05:00
Hallo,
sind deine Datümer vielleicht Texte?
versuchs mal so:
If DateValue(Cells(i, 1)) - DateValue(Cells(i - 1, 1)) <> 1 Then
Cells(i, 1).EntireRow.Insert shift:=xlDown
Cells(i, 1) = DateValue(Cells(i + 1, 1)) - 1
Bild

Betrifft: AW: Datum kontrolliern
von: Andi
Geschrieben am: 17.02.2005 16:15:48
super es läuft (die Daten wurden via SAP ins Excel transveriert)
Vielen Dank
Gruss Andi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "#NV bei sverweis ausblenden"