Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datumsvergleich

Datumsvergleich
15.12.2005 19:06:43
Peter
Hallo,
ich habe folgendes Problem:
In der Spalte „A“ der „Tabelle1“ stehen Datumswerte.
Ist eine Datumsangabe aus der drüberliegenden Zeile aus Spalte „A“ vom
Vortag, soll diese in die Spalte “A“ der “Tabelle2“ kopiert werden.
Als Ergebnis sollen keine aufeinanderfolgenden Tage in der gleichen Tabelle stehen.
Wer kann helfen die Sache über VBA zu lösen?
Danke im voraus Peter
z.B.
Tabelle1 - Tabelle2
12.01.05 - 13.01.05
27.01.05 - 28.01.05
29.01.05 -
02.02.05 -

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsvergleich
16.12.2005 11:08:38
Dani
Hallo,
ich habe dir mal einen Ansatz gebastelt:

Sub Test()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A länge ermitteln
If DateDiff("d", Cells(i - 1, 1), Cells(i, 1)) = 1 Then
Tabelle1.Cells(i, 1).Copy
MsgBox Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Tabelle2.Cells(Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial
End If
Next
End Sub

Ich hoffe es hilft weiter.
Gruss
Dani

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige