Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum automatisch raufzählen und eintragen

Forumthread: Datum automatisch raufzählen und eintragen

Datum automatisch raufzählen und eintragen
22.08.2005 10:10:49
Stefan
Guten Morgen,
eine Frage: wie kann ich bei 2 Daten (Startdatum & Enddatum) automatisch mit VBA vom Startdatum weg in einem Sheet horizontal jeweils so lange 7 Tage dazuzählen und einfügen, bis das Endedatum erreicht ist?
z.B.
Startdatum (A1) 1.1.2005
Endedatum (A2) 10.5.2005
B1: 1.1.2005
B2: 8.1.2005
B3:15.1.2005
.
.
BX: 10.5.2005
Danke für Eure Hilfe!
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch raufzählen und eintragen
22.08.2005 10:21:17
Erich
Hallo Stefan, so gehts:

Sub dateums()
Dim zz&, dd As Date
For dd = [A1] To [A2] Step 7
zz = zz + 1
Cells(zz, 2) = dd
Next dd
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Datum automatisch raufzählen und eintragen
22.08.2005 10:28:49
Erich
Hallo Stefan,
du hast in Bx das Endedatum stehen - auch wenn es in der Datumsfolge [A1] + 7*x gar nicht vorkommt. Wenn das so sein soll, dann:

Sub Datumse()
Dim zz&, dd As Date
For dd = [A1] To [A2] Step 7
zz = zz + 1
Cells(zz, 2) = dd
Next dd
If dd - 7 < [A2] Then
dd = [A2]
zz = zz + 1
Cells(zz, 2) = dd
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Datum automatisch raufzählen und eintragen
22.08.2005 10:33:58
Stefan
Hallo Erich,
vielen Dank für die rasche Hilfe! Das mit dem Enddatum wollte ich gerade schreiben ;)
Der Code funktioniert auch - nur habe ih die Zellen leider falsch angegeben, ich brauche die Einträge nämlich horizontal, also z.B. A3, B3, C3...
Danke!
AW: Datum automatisch raufzählen und eintragen
22.08.2005 10:47:00
Erich
Hallo Stefan,
geht so:

Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
Cells(3, ss) = dd
Next dd
'                    evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
Cells(3, ss) = dd
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Perfekt!! Super Hilfe, Danke! (k.T.)
22.08.2005 10:50:24
Stefan
AW: Datum automatisch raufzählen und eintragen
22.08.2005 10:51:31
Erich
Hallo Stefan,
noch eine Version, die keinen Fehler produziert, wenn die 256 Spalten nicht ausreichen. Es kommt keine Fehlermeldung - man siehts ja leicht am Ergebnis.

Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
Next dd
'                    evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Datum automatisch raufzählen und eintragen
30.08.2005 11:19:52
Stephan
Hallo!
Beistehender Code funktioniert einwandfrei, nur wenn er in automatisch erstellten sheets im Rahmen einer Schleife öfter hintereinander durchlaufen wird um in den neuen Sheets jeweils die Datenreihe zwischen 2 Datumsangaben zu ermitteln, werden ab dem 2. sheet keine Datenreihen mehr angezeigt und beim 3. sheet kommt eine Fehlermeldung.
Habt ihr eine Ahnung warum?
Danke!
Anzeige
AW: Datum automatisch raufzählen und eintragen
30.08.2005 11:20:34
Stephan
Hallo!
Beistehender Code funktioniert einwandfrei, nur wenn er in automatisch erstellten sheets im Rahmen einer Schleife öfter hintereinander durchlaufen wird um in den neuen Sheets jeweils die Datenreihe zwischen 2 Datumsangaben zu ermitteln, werden ab dem 2. sheet keine Datenreihen mehr angezeigt und beim 3. sheet kommt eine Fehlermeldung.

Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
Next dd
'                    evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
End If
End Sub

Habt ihr eine Ahnung warum?
Danke!
Anzeige
AW: Datum automatisch raufzählen und eintragen
30.08.2005 11:21:19
Stephan
Hallo!
Beistehender Code funktioniert einwandfrei, nur wenn er in automatisch erstellten sheets im Rahmen einer Schleife öfter hintereinander durchlaufen wird um in den neuen Sheets jeweils die Datenreihe zwischen 2 Datumsangaben zu ermitteln, werden ab dem 2. sheet keine Datenreihen mehr angezeigt und beim 3. sheet kommt eine Fehlermeldung.

Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
Next dd
'                    evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
End If
End Sub

Habt ihr eine Ahnung warum?
Danke!
Anzeige
AW: Datum automatisch raufzählen und eintragen
30.08.2005 11:22:57
Stephan
Hallo!
Beistehender Code funktioniert einwandfrei, nur wenn er in automatisch erstellten sheets im Rahmen einer Schleife öfter hintereinander durchlaufen wird um in den neuen Sheets jeweils die Datenreihe zwischen 2 Datumsangaben zu ermitteln, werden ab dem 2. sheet keine Datenreihen mehr angezeigt und beim 3. sheet kommt eine Fehlermeldung.

Sub Datumse()
Dim ss&, dd As Date
For dd = [A1] To [A2] Step 7
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
Next dd
'                    evtl. Endedatum extra
If dd - 7 < [A2] Then
dd = [A2]
ss = ss + 1
If ss > 256 Then Exit Sub
Cells(3, ss) = dd
End If
End Sub

Habt ihr eine Ahnung warum?
Danke!
Anzeige

Forumthreads zu verwandten Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Datum automatisch einstellen
Timmy

Liebe Excler,
wie kann ich in meinem Worksheet das Datum automatisch einstellen lassen, sodass es sich von selbst aktualisiert sobald ich das Sheet oeffne, oder beginne zu erarbeiten?
Vielen Dank und liebe Gruesse
Timmy
16.02.2009 16:05:00
Thread-ID: 1051200
3 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Anzeige
Datumsänderung bei Tabelleneintrag
Domme

Hallo alle zusammen,
ich hänge schon ziemlich lange an diesem Thema und hoffe das mir jemand helfen kann.
Ich habe eine Tabelle die mit Zahlen bestückt ist, in einer Spalte neben den Zahlen stehen Daten, von bsw. gestern, letzter Woche, vorletzter Woche etc., jetzt hätte ich gerne, das...
27.03.2009 17:27:20
Thread-ID: 1064692
8 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Datum aktualisieren bei Änderung im Tabellenblatt
Bernd

Hallo,ich habe mal wieder ein Frage.
In meinem Tabellenblatt soll in der Zelle C3 das Datum nur dann aktuallisiert werden, wenn in dem Tabellenblatt irgendetwas geändert wird. Kann mir da jemand helfen?Vielen Dank im vorausBernd
26.04.2002 17:49:52
Thread-ID: 116731
3 Beiträge
Excel 2003: Tabelle automatisch aktualisieren
Melanie

Hallo liebe Community,
anbei findet Ihr mein Excel-File. Ich habe auch das Problem darin beschrieben. Falls mir jemand helfen kann, bitte schaut es euch mal an. Ich glaube man braucht dazu VBA-Programmierung.
ich danke euch
vlg
https://www.herber.de/bbs/user/76106.xls
11.08.2011 02:35:44
Thread-ID: 1225605
2 Beiträge
Datum bei Änderung
Werner

Hallo Forum,
ich habe mir von Hajo nachfolgende Datei runtergeladen, da es genau die Problemlösung für mich darstellt.
http://hajo-excel.de/chCounter3/getfile.php?id=41
Nur schaffe ich es in einem Bereich nicht den Code soweit abzuändern, dass es die gesetzten Bedingungen erfüllt.<...
11.09.2011 15:06:16
Thread-ID: 1229374
10 Beiträge
Automatisches Datum bei Eingabe auf andere Tabelle
Lukas

Hallo,
ich bin noch ein kleines Greenhorn in sachen VBA und hänge mich deswegen ständig an irgendetwas auf T_T.
Naja aufjedenfall wollte ich für meinen Chef eine kleine Tabelle programmieren in der er den zahlungseingang seiner Mieter überprüfen kann, nun möchte er allerdings noch zusät...
04.11.2011 23:31:55
Thread-ID: 1236666
5 Beiträge
Anzeige
Automatische Kopierfunktion bei Zellinhaltänderung
mariche@web.de

Hallo an alle,
ich habe hier ein Problem bei dem ich Eure Hilfe bräuchte.
Ich habe eine Excel-Datei mit zwei Arbeitsblättern.
1. ALL
2. LAENDER
In der Tabelle "ALL" werden im Bereich A1:A21 über eine Schnittstelle zu einem anderen Programm Daten eingelesen.
Jetzt hätt...
10.08.2012 09:34:31
Thread-ID: 1274504
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige