Reihen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: Version 8.0
  • Reihen von Martin vom 04.07.2002 - 15:30:13
nach unten

Betrifft: Reihen
von: Martin
Geschrieben am: 04.07.2002 - 15:30:13

Hallo,
Habe ein neues Problem!
Ich möchte mir mit Hilfe eines Makros auf meinem Arbeitsplatz eine Reihe erzeugen.
Diese Reihe soll mit einem Datum+Uhrzeit(04.07.2002 01:00), welches ich eingeben kann, beginnen und mit einem von mir festgelegten Datum+Uhrzeit(05.07.2002 12:00) enden.
Dabei würde ich auch gerne die Schritte (z.B. stündlich) selbst definieren.
Vielen Dank für die Bemühungen.
mfg Martin
nach oben   nach unten

Re: Reihen
von: PeterW
Geschrieben am: 04.07.2002 - 16:53:19

Hallo Martin,

versuch mal folgenden Code


Sub Reihe()
Dim Start As Date, Ende As Date
Dim intervall As Double
Dim As Long
i = 1

Start = InputBox("Bitte Anfangsdatum und Zeit")
Ende = InputBox("und Enddatum und Zeit")
intervall = InputBox("und noch das Intervall in Minuten")
intervall = intervall / 1440

Cells(i, 5) = Start

Do Until Cells(i, 5) > Ende
    i = i + 1
    Cells(i, 5) = Cells(i - 1, 5) + intervall
Loop
Cells(i, 5) = ""


End Sub

Gruß
Peter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Reihen"