Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vorgegebenen Zeitraum in Zellen schreiben

Forumthread: Vorgegebenen Zeitraum in Zellen schreiben

Vorgegebenen Zeitraum in Zellen schreiben
01.04.2009 09:44:51
Bolo
Hallo liebe Community!
Ich hätt da mal wieder n Problem :(
Ich habe gerade den Auftrag bekommen in einer Tabelle wo 2 Datumswerte eingetragen wurden ein Makro zu programmieren, welches jeden einzelnen Tag des Zeitraums in eine Spalte schreibt.
Zur Verdeutlichung:
In A1 steht z.B. "01.01.2009" und in A2 "31.01.2009"
Nun soll das Makro folgendes tun:
in B3 "01.01.2009", in C3 "02.01.2009", D3 "03.01.2009" usw. bis zum 31.01.2009.
Irgendwie steh ich grad voll aufm Schlauch.... Weiss irgendwie nicht richtig wie ich anfangen soll. Also hab mir überlegt das über n Button zu realisieren, aber wie gesagt, weiss nicht genau wie ich anfangen soll....
Ich wäre über eure Hilfe sehr sehr dankbar!!
lg
Bolo
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorgegebenen Zeitraum in Zellen schreiben
01.04.2009 09:50:39
Bolo
Zusatz:
Achja, ich habe noch etwas vergessen. Unter den Tagen sollen dann 2 Werte stehen. Das heisst, das das Datum über 2 Spalten gehen muss.
Also wäre richtig:
B3-C3="01.01.2009" D3-E3="02.01.2009" F3-G3="03.01.2009" usw. ....
:)
AW: Vorgegebenen Zeitraum in Zellen schreiben
01.04.2009 10:29:36
Mike
Hey Bolo,
ist ein Makro zwingend notwendig? Denn dies geht ganz
gut ohne.
Gruss
Mike
Anzeige
AW: Vorgegebenen Zeitraum in Zellen schreiben
01.04.2009 10:57:58
Bolo
Naja, zwingend ist es nicht.... Wenn du ne Idee hast wie man das "automatisieren" kann? Denn der Zeitraum soll variabel sein. Also der wird halt jeden Monat geändert.
lg
Bolo
31 Tg.. Vorgegebenen Zeitraum in Zellen schreiben
01.04.2009 12:27:55
Mike
Hey Bolo,
ein erster Entwurf würde dann so aussehen:
Tabelle1

 ABCDEBHBIBJBK
101.02.200931.01.2009       
2         
3 01.02.2009 02.02.2009 02.03.2009 03.03.2009 
4 Wert 1Wert 2Wert 1Wert 2Wert 1Wert 2Wert 1Wert 2
5         

Formeln der Tabelle
ZelleFormel
B3=A1
D3=B3+1
BH3=BF3+1
BJ3=BH3+1


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Wahrscheinlich bräuchte es dann noch Anpassungen, da z.B. das Enddatum auch
im Nachfolgemonat sein kann (aktuell maximal 31 Tage).
Zur besseren Veranschaulichung wurden die Spalten 03.01. - 29.01. gruppiert
ausgeblendet.
Das jeweilige Datum über Wert 1 / Wert 2 hab ich mit "Zelle formatieren" - Ausrichtung - Horizontal
- über Auswahl zentrieren angepasst. Wird hier einfach nicht dargestellt.
Gruss
Mike
Anzeige
AW: 31 Tg.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 13:13:19
Bolo
Hi Mike,
also so ähnlich hatte ich mir das auch schon überlegt. Nur wurde ich im Nachinein auch informiert, dass es unter Umständen auch mehr als 31 Tage sein können. Maximal wohl 90. Die Idee ist gut, aber funktioniert nur mit maximal 31 Tagen, richtig?
lg
Bolo
127 Tg.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 13:31:26
Mike
Hey Bolo,
nö, sie funktioniert bis maximal 256 Spalten, wobei ja A aktuell nicht
benutzt wird, also 255 ... ;-) ... gibt Dir also die Möglichkeit, es bis
maximal 127 Tage auszubauen, das sollte glaube ich flexibel genug
sein ... die Uebersichtlichkeit sprechen wir jetzt nicht an .. ;-)
Gruss
Mike
Anzeige
AW: 31 Tg.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 14:05:00
Bolo
Hi Mike,
danke für deine Hilfe!
Habe es dann doch mit ein bisschen Hilfe der Kollegen über ein Makro hingekriegt.
Wens interessiert:
Option Explicit Private Sub CommandButton1_Click() Dim j As Integer, d As Date If Not CheckDates(Range("A1").Value, Range("A2").Value, Columns.Count) Then Exit Sub j = 2 For d = Range("A1").Value To Range("A2").Value Cells(3, j).Value = d Cells(3, j + 1).Value = d j = j + 2 Next End Sub Function CheckDates(ByVal v1, ByVal v2, ByVal intSpalten As Integer) As Boolean If Not IsDate(v1) Then Exit Function If Not IsDate(v2) Then Exit Function If (v1 > v2 Or v2 - v1 > intSpalten / 2) Then Exit Function CheckDates = True End Function


lg
Bolo

Anzeige
AW: 31 Tg.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 14:18:51
robert
hi, hast du es auch ausprobiert-wie ist das ergebnis?
gruß
robert
AW: 31 Tg.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 14:40:21
Bolo
hi robert,
ausprobiert habe ich es (das Makro?) und es funktioniert genau nach meinen Erwartungen.
Er schreibt jetzt jeden Tag des Zeitraums in 2 Spalten. Genau so wie ich es wollte :)
lg
Bolo
AW: Sorry....
01.04.2009 14:52:48
robert
hi,
das datum 2 mal hat mich irritiert-OK
gruß
robert
Anzeige
Tab.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 16:18:58
Mike
Hey Bolo,
das Makro in der Tabelle hinterlegt? Heisst diese speziell,
dass es bei mir nicht funktioniert?
Danke und Gruss, Mike
okay.. Vorgegebenen Zeitraum in Zellen schrei
01.04.2009 16:26:42
Mike
okay, man müsste das Enddatum am richtigen Ort haben,
sorry! Hat sich erledigt.
Gruss
Mike
;
Anzeige
Anzeige

Infobox / Tutorial

Vorgegebenen Zeitraum in Excel Zellen schreiben


Schritt-für-Schritt-Anleitung

Um einen vorgegebenen Zeitraum in Excel Zellen zu schreiben, kannst Du entweder ein Makro verwenden oder die Funktionalitäten von Excel nutzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung, wie Du das Makro von Bolo umsetzen kannst:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.
  2. Trage in Zelle A1 das Startdatum (z.B. 01.01.2009) und in Zelle A2 das Enddatum (z.B. 31.01.2009) ein.
  3. Füge einen Button ein:
    • Gehe zu "Entwicklertools" und wähle "Einfügen".
    • Wähle "Button (Formsteuerelement)" aus und ziehe ihn auf dein Arbeitsblatt.
  4. Füge den Code für das Makro ein:

    • Klicke mit der rechten Maustaste auf den Button und wähle "Makro zuweisen".
    • Klicke auf "Neu" und füge den folgenden VBA-Code ein:
    Option Explicit
    Private Sub CommandButton1_Click()
        Dim j As Integer, d As Date
        If Not CheckDates(Range("A1").Value, Range("A2").Value, Columns.Count) Then Exit Sub
        j = 2
        For d = Range("A1").Value To Range("A2").Value
            Cells(3, j).Value = d
            Cells(3, j + 1).Value = d
            j = j + 2
        Next
    End Sub
    
    Function CheckDates(ByVal v1, ByVal v2, ByVal intSpalten As Integer) As Boolean
        If Not IsDate(v1) Then Exit Function
        If Not IsDate(v2) Then Exit Function
        If (v1 > v2 Or v2 - v1 > intSpalten / 2) Then Exit Function
        CheckDates = True
    End Function
  5. Schließe den VBA-Editor und teste das Makro, indem Du auf den Button klickst. Die Daten sollten in den Zellen ab B3 eingetragen werden.

Häufige Fehler und Lösungen

  • Fehler: "Typen unverträglich"

    • Lösung: Stelle sicher, dass die Zellen A1 und A2 tatsächlich Datumswerte enthalten. Du kannst dies überprüfen, indem Du die Zellen formatierst.
  • Fehler: "Das Datum kann nicht größer sein"

    • Lösung: Überprüfe, ob das Enddatum in A2 tatsächlich nach dem Startdatum in A1 liegt.
  • Fehler: Daten erscheinen nicht korrekt

    • Lösung: Achte darauf, dass Du die richtige Zellreferenz in den Makro-Code eingibst und dass die Spalten nicht ausgeblendet sind.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, kannst Du auch eine Excel-Formel nutzen, um den Zeitraum anzugeben:

  1. In B3 kannst Du die folgende Formel einsetzen:
    =A1
  2. In D3 (nächste Zelle) gibst Du folgende Formel ein:
    =B3+1
  3. Ziehe die Formel in D3 nach rechts, um die fortlaufenden Daten zu generieren.

Für einen variablen Zeitraum kannst Du die oben genannte Methode anpassen, indem Du die Formeln entsprechend anpasst.


Praktische Beispiele

Hier sind einige Beispiele, wie Du den Zeitraum in Excel darstellen kannst:

  • Beispiel für einen Zeitraum von 1. bis 31. Januar 2009:

    • A1: 01.01.2009
    • A2: 31.01.2009
    • Ergebnisse:
    • B3: 01.01.2009, C3: 01.01.2009
    • D3: 02.01.2009, E3: 02.01.2009
    • ...
  • Beispiel für einen Zeitraum von 1. bis 30. April 2009:

    • A1: 01.04.2009
    • A2: 30.04.2009
    • Ergebnisse:
    • B3: 01.04.2009, C3: 01.04.2009
    • D3: 02.04.2009, E3: 02.04.2009
    • ...

Diese Beispiele zeigen, wie Du den Excel Zeitraum angeben kannst und wie die Daten in den Zellen aufgeteilt werden.


Tipps für Profis

  • Benutze benannte Bereiche, um die Zellen A1 und A2 leichter zu referenzieren.
  • Experimentiere mit bedingter Formatierung, um die Daten visuell hervorzuheben.
  • Optimiere Dein Makro, indem Du zusätzliche Sicherheitsprüfungen einfügst, um ungültige Daten zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich den Zeitraum in Zellen einfach anpassen? Du kannst die Werte in A1 und A2 ändern und das Makro erneut ausführen, um den neuen Zeitraum zu generieren.

2. Funktioniert das auch in älteren Excel-Versionen? Ja, sowohl die Verwendung von Formeln als auch das Makro sind in den meisten Excel-Versionen ab Excel 2007 verfügbar.

3. Wie kann ich die Darstellung ändern? Du kannst die Zellen formatieren, um das Datum in einem anderen Format anzuzeigen. Klicke dazu mit der rechten Maustaste auf die Zelle und wähle "Zellen formatieren".

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige