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"