Liste mit Zeiten, zweimal am Tag eintragen

Hallo Excelianer,
bin gerade am grübeln bzw. mit dem Makrorekorder am suchen und finde keine passende Lösung.
Mein Problem liegt in einer Liste, in der über eine UserForm das Start-Datum und das End-Datum eingetragen wird, diese Daten werden in der Exceldatei übergeben und es wird in der Spalte B, Zeile 15 das Startdatum eingetragen und nach unten aufgefüllt bis zum Enddatum aus der UserForm. Das klappt einwandfrei.
NUR kommt es manchmal vor, dass an einem Tag zwei Zeiten eingetragen werden müssen (z.B. 00:00-06:00 und am gleichen Tag wieder 14:00-22:00). Wenn ich nun nachträglich eine Zeile einfüge, entstehen nun Fehler in der Exceldatei.
Gibt es eine Möglichkeit, dass nach der Übergabe der Daten aus der UserForm an die Datei eine neue UserForm die Datumsliste ab B15 wieder einliest (würde den Bereich von B bis J ab Zeile 12 nach unten bis letzter Eintrag in der Spalte B betreffen) und das ich dann in dern neuen UserForm mittels einem Kontrollkäschten hinter dem Datum einen Haken setze und dadurch die Liste unterhalb des Datums mit Haken um eine Zeile nach unten verschiebt und das Datum mit dem Haken in die freie Zelle nochmals kopiert!
Leider kann ich die Datei als Muster hier nicht hochladen, da mein Notebook "unterwegs" ist.
Ich hoffe es gibt eine Lösung ;-)
es grüßt
Wolfgang aus Franken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Wolfgang,
dann mach doch einfach eine Abfrage zuvor in deienn Code, der fragt "Moechten Sie den gesamten Tag analysieren/importieren"
Bestaetigt der User mit nein,
laesst du deinen Code 2x laufen, indem du ihn in eine
For i=1 to 2
[...]
Next i
- Schleife setzt.
Das gesamte Konstrukt wird ueber die EXCEL Hilfe zur Not auch noch einmal prima visualisiert, wie diese Schleife arbeitet.
Dann glaube ich, wird dein Code genau deine Frage zur vollsten Zufriedenheit beantworten.
Also sieht der Code aus:

Sub Dein Code ()
Dim i as integer
For i=1 to 2
Input= MsgBox("Moechten Sie den gesamten Tag analysieren/importieren?", vbYesNo)
If Input= vbYes Then
i=2
[hier dein code incl. deien Userform aber ohne 

Sub und End Sub
]

Else

[hier dein code incl. deien Userform aber ohne 

Sub und End Sub
]

End If

Next i

End Sub

Und falls es einmal noch mehr Zeitfenster werden, einfach den Zaehler von "i" erhoehen.
Viel Erfolg!!
Gruss Jana

Beliebteste Forumthreads (12 Monate)

Liste mit Zeiten, zweimal am Tag eintragen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste mit Zeiten, zweimal am Tag eintragen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread