Datum und Uhrzeit - Makro

[Streber]

Hallo an alle,

ich habe ein Problem. Bitte um eure hilfe um es zu lösen.
Habe folgende Excel Tabelle:

03.08.2016 07:15
03.08.2016 07.30
03.08.2016 07.45
03.08.2016 08.00
04.08.2016 16.45

Die Daten sollten alle 15 min. dargestellt werden.
Ich beziehe mich immer nur auf dem momentan angegebenen Monat. In diesem Fall August. 31. TAGE
Die vollstaendige Tabelle sollte also aus 2.976 Zellen bestehen (4x24h =96 - 96x31=2.976)

Meine oben beschrieben Tabelle muss mittels einem Makro vervolstaendigt werden.
Von 01.08.2016 00:00 bis 31.08.2016 23:45

Bitte um eure Hilfe
Mit freundlichen Grüßen
Streber

[lupo1]

Wer sagt, dass das ein Makro muss?

A1: Ausgangsdatumzeit, als solche eingegeben (und damit automatisch formatiert)
A2: =A1+1/96 runterziehen bis Ziel erreicht

[GMG-CC]

Es muss wirklich kein Makro sein ...
Hier noch eine Alternative:

• In A1 steht der 1.8.2016 00:00
  
• Die gesamte Spalte markieren
  
• Dann im Menü Start, Gruppe Bearbeiten den Füllbereich wählen und dort die Reihe
  
• Als Typ Linear wählen, bei In Inkrement 0:15 eingeben und bei Endwert 31.8.2016 23:45
  
• OK und die Spalte ist korrekt ausgefüllt.
  

Das ist vielleicht ein bisschen weniger stressig als genau darauf zu 8., wann der Endwert erreicht ist. :05:

[Streber]

Hallo,

vielen danke für eure Antwort, aber villeicht habe ich mich nicht richtig ausgedrückt.
Ich habe schon eine bestehende Tabelle.
Jedem Datum und Uhrzeit entspricht ein Wert.
Diese Werte dürfen nicht bearbeitet werden und müssen bestehhen bleiben.
Also muss ich die fehleneden Zeiten suchen und eine leere Zeile genau dort einfügen.
Es ist wichtig dass die Werte dem zugehörigrn Datum und Uhrzeit beibehaltet bleiben.

Siehe anbei 2 fotos als Beispiel.
Siehe Dati mancanti - ist italienisch und bedeutet - fehlende Daten.
Diese Zeile muss gelöscht werden oder bearbeiten werden. Auf Zeile 6 muss folgendes stehen 03.08.2016 10:30

Natürlich fehlen noch viel mehr daten.
Ober der Zeile 5 müssen viele Zeilen eingefügt werden bis man nicht zum enddatum kommt 01.08.2016 00:00. genauso untenrum. Bis 31.08.2016 23:45


Bild1: Startdatei



So musses nachher aussehen. Alle fehlenden Datume und Uhrzeiten des aktuellen Monates sollen automatisch eingefügt werden. Ohnen die bestehende Tabelle zu bearbeiten.



Bild2: Enddatei

[lupo1]

Wenn es einmalig ist, kannst Du die Tabelle von GMG oder mir mit einem SVERWEIS auf die lückenhafte Tabelle bezogen füllen. Wenn erledigt, überschreibst Du die Formeln mit Werten.

Vorher Sicherheitskopie machen!

[GMG-CC]

Ach ja,
und wenn es eine Dauer-Aufgabe ist: -> http://www.excel-ist-sexy.de/bilder-statt-datei/

(Ich weiß, ich trabe Lupo immer hinterher ... )

[Kuwer]

Hallo Streber,

vielleicht auch so:

Sub ZeitenAuffuellen()
 Dim dat5 As Date
 Dim lngV As Long, lngZ As Long
 
 dat5 = Cells(5, 1).Value
 lngV = 5
 For lngZ = 15 To 1425 - (Hour(dat5) * 60 + Minute(dat5)) Step 15
   lngT = lngT + 1
   lngV = lngV + 1
   Cells(lngV, 1).NumberFormat = "dd/mm/yyyy hh:mm"
   Cells(lngV, 1).Value = dat5 + lngZ / 1440
 Next lngZ
 For lngZ = 15 To Hour(dat5) * 60 + Minute(dat5) Step 15
   Rows(5).Insert
   Cells(5, 1).NumberFormat = "dd/mm/yyyy hh:mm"
   Cells(5, 1).Value = dat5 - lngZ / 1440
 Next lngZ
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]

Hallo Kuwer,

deine Vba Makro hat super geklappt! Wirklich unglaublich! Vielen Dank.
Hätte da aber noch ne kleine bitte.
Die Zeiten wurden alle ausgefüllt.
Einzige Problem die Tage und Uhrzeiten vor dem 03.08.2016 wurden nicht eingefügt.
Würde auch die Uhrzeiten und Tage vorher bis zum 01.08.2016 benötigen :)

LG Streber

[Kuwer]

Hallo Streber,

so wird der ganze Monat vervollständigt:

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

Gruß Uwe

[Streber]

Vielen Dank, Sie haben mir richtig viel weitergeholfen!
LG Streber