Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum kontrolliern

Datum kontrolliern
17.02.2005 12:50:59
Andi
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum kontrolliern
Uduuh
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

AW: Datum kontrolliern
17.02.2005 15:47:59
Andi
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
AW: Datum kontrolliern
u_
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
Anzeige
AW: Datum kontrolliern
17.02.2005 16:15:48
Andi
super es läuft (die Daten wurden via SAP ins Excel transveriert)
Vielen Dank
Gruss Andi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige