Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum kontrolliern

Forumthread: 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

Anzeige

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

Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige