Datum und Uhrzeit - Makro

[Streber]

Guten tag Herr UWE,

leider habe ich soeben bemerkt, dass es doch noch nicht so klappt wie ich mir es vorgestellt habe. Ich habe versucht den VBA Code zu untersuchen, komme aber leider nicht voran.
Ich habe bemerkt dass er die Zeilen nur auf der Kolonne A einfügt. Es sollten aber Zeilen von a bis Z eingefügt werden.
Könnte man das noch zusätzlich hinzufügen?
Also für jede Zeile die auf der Kolonne A hinzugefügt wird (wegen der fehlenden Daten Datum und Uhrzeit) sollte auch gleichzeitig eine Zeile in den anderen Kolonnen hinzugefügt werden (A-Z).

Ansonsten verschieben sich die Zeilen und die Daten und die daten die am 12.12.2016 um 12:30 angezeigt werden verschieben sich und landen dann auf 12.12.2016 15:15.
Das ist nur ein beispiel.

MFG
Streber

[Kuwer]

Hallo Streber,

poste bitte (D)eine Beispieldatei.

Gruß Uwe

[Streber]

Anbei Foto mit Beispiel.
Wie man sehen kann sollte bei 04.12.2016 21:45 überall der Wert null stehen
Das gleiche bei 04.12.2016 22:00 Uhr.
Die Werte müssen überall 0 sein bis zum Datum 05.12.2016 10:15 wo bereits Daten vorhanden sind.

Es werden zwar die fehlenden Datume und Uhrzeiten eingetragen, die Werte bleiben aber stehen wo sie sind und gehen nicht mit.
Das bedeutet, dass die Werte vom 05.12.2016 10:15 auf das Datum 04.12.2016 21.45 landen oder bleiben weil sie nicht mit verschoben werden.

LG Streber

[Kuwer]

Hallo Streber,

teste mal damit:

Sub ZeitenAuffuellenGanzerMonat()

 Dim dat5 As Date

 Dim lngV As Long, lngZ As Long

 

 Application.ScreenUpdating = False

 dat5 = Cells(5, 1).Value

 

 lngV = 5

 lngZ = 15

 Do While Month(dat5) = Month(dat5 + lngZ / 1440)

   lngV = lngV + 1

   If IsDate(Cells(lngV, 1).Value) Then

     If dat5 + lngZ / 1440 < Cells(lngV, 1).Value Then

       Rows(lngV).Insert

     End If

   End If

   Cells(lngV, 1).NumberFormat = "dd/mm/yyyy hh:mm"

   Cells(lngV, 1).Value = dat5 + lngZ / 1440

   lngZ = lngZ + 15

 Loop

 

 lngZ = 15

 Do While Month(dat5) = Month(dat5 - lngZ / 1440)

   Rows(5).Insert

   Cells(5, 1).NumberFormat = "dd/mm/yyyy hh:mm"

   Cells(5, 1).Value = dat5 - lngZ / 1440

   lngZ = lngZ + 15

 Loop

 Application.ScreenUpdating = True

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß Uwe

[Streber]

Danke, jetzt klappt es. :)))