Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum + 14 Tage

Datum + 14 Tage
22.09.2005 10:15:10
Reinhard
Hallo*
ich habe da ein Problem, welches ich auch mit dem Makrorekorder nicht in den Griff bekomme.
In Spalte Z steht ein Datum (Die Zeilen variieren dabei); Wie kann ich erreichen, dass das Datum in die Spalte C übertragen wird und 14 Tage draufgerechnet werden ?
Danke Allen schon jetzt für die Mithilfe.
Gruß - Reinhard

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum + 14 Tage
22.09.2005 10:16:46
Dr.
Hi,
C1 = Z1+14
AW: Datum + 14 Tage
22.09.2005 10:22:47
Reinhard
Hallo*,
das ging aber schnell. - Was muß ich aber nur machen, wenn ich über VBA (das hatte ich wohl vergessen zu sagen -sorry) das für jede Zeile in der das Datum in Spalte Z erscheint, erreichen möchte ? - Danke auch jetzt schon wieder für eine Rückmeldung.
Gruß - Reinhard
AW: Datum + 14 Tage
22.09.2005 10:31:11
Alexander
Ohne Garantie:

Sub DatumÜbertragen()
For Each C in ActiveSheet.Columns("C:C").Cells
If C.NumberFormat = "dd.mm.yyyy" then
ActiveSheet.Cells(C.Row,26).NumberFormat = "dd.mm.yyyy"
ActiveSheet.Cells(C.Row,26).Value = DateAdd("d",14,C.Value)
End if
Next C
End Sub

Anzeige
AW: Datum + 14 Tage
22.09.2005 10:20:30
Alexander
Hallo Reinhard.
Versuch's mal mit der Funktion DateAdd("d",14,"01.01.2005").
"d" bedeutet, dass Tage zugefügt werden, 14 wie viele und "01.01.2005" ist dein Datum.
Ich hoffe das hilft dir weiter.
Gruß, Alex.
AW: Datum + 14 Tage
22.09.2005 10:57:29
Hugo
Hallo,
ohne Schleife (=schneller), den Code vom Recorder nur etwas verfeinert:
Option Explicit

Sub plus_14()
With Columns(3)
.Value = Columns(26).Value
Range("IV1") = 14
Range("IV1").Copy
.SpecialCells(xlCellTypeConstants).PasteSpecial Operation:=xlAdd
Range("IV1").Clear
.NumberFormatLocal = "TT.MM.JJJJ"
End With
End Sub

Hugo
Anzeige
AW: Datum + 14 Tage
22.09.2005 13:06:11
Reinhard
Hallo*
Danke für Eure Rückmeldungen; ich bin schon teilweise dazu gekommen, die Hinweise zu testen. Da ich aber die Codes begreifen möchte, habe ich da eine Frage an Hugo:
In Deinem Code hast Du u.a. Range ("IV1") eingebaut. Wofür steht das ? - Ich habe einmal die Spalten durchgezählt und wüßte .Value = Columns(26).Value einzuschätzen, dass es für Spalte Z steht. Ist das so ähnlich auch bei "IV1". Danke weiterhin schon jetzt wieder für Eure/Deine Rückmeldung. Ich werde in ruhiger Minute weiter testen und dann auf jeden Fall eine Rückmeldung geben.
Gruß - Reinhard
AW: Datum + 14 Tage
22.09.2005 13:36:47
Hugo
Hallo,
"IV1" ist nur eine Dummy-Zelle, von der ich in der Regel annehme, dass sie nicht benutzt wird.
Da wird nur die Zahl 14 eingetragen, kopiert und anschließend wieder gelöscht.
Hugo
Anzeige
Danke Hugo
22.09.2005 13:44:44
Reinhard
Hallo Hugo,
Danke für die Rückmeldung und Deine Erläuterung; Ich werde mir den Code heute abend in Ruhe zuhause weiter anschauen und umsetzen. Werde dann auf jeden Fall Rückmeldung geben. In dem Sinne zunächst Dir und allen anderen noch einen schönen Tag und herzlichen Dank.
Gruß - Reinhard
AW: Datum + 14 Tage
22.09.2005 16:21:51
Reinhard
Hallo Hugo,
ich gebe zu, irgendwie ist man gespannt wie ein Flitzebogen und will eigentlich schon schnell wissen, ob der Code so läuft, wie man sich das vorgestellt hat, also habe ich doch schon jetzt in einer ruhigen Minute getestet. Er läuft und ich freue mich sehr. Es gibt nur ein aber; - Ich habe den Code in einem Arbeitsblatt mit ca. 4000 gefüllten Zeilen getestet. Nachdem ich ihn gestartet hatte, wurde das Arbeitsblatt automatisch auf 65536 Zeilen erweitert. Was müßte evtl. geändert werden, damit nur die Zeilen, die Text enthalten, auch umgeändert werden?
Danke weiterhin und
Gruß Reinhard
Anzeige
AW: Datum + 14 Tage
22.09.2005 16:37:54
Hugo
Hallo,
Option Explicit

Sub plus_14()
Dim lRow As Long
lRow = Cells.SpecialCells(xlCellTypeLastCell).Row
With Range("C1:C" & lRow)
.Value = Range("Z1:Z" & lRow).Value
Range("IV1") = 14
Range("IV1").Copy
.SpecialCells(xlCellTypeConstants).PasteSpecial Operation:=xlAdd
Range("IV1").Clear
.NumberFormatLocal = "TT.MM.JJJJ"
End With
End Sub

Hugo
Danke Hugo
23.09.2005 08:06:31
Reinhard
Hallo Hugo,
läuft prima; habe es gestern in Ruhe zuhause getestet. Herzlichen Dank !
Gurß - Reinhard

330 Forumthreads zu ähnlichen Themen

Datumsberechnung mit Fiscal Monaten
andi

Hallo, würde mich freuen, wenn mir jemand bei meinem Problem helfen kann: ich habe ein Anfangs- (20.09.2008) und ein Enddatum (12.12.2008) und möchte die Differenz berechnen. Dazu muss ich jeden Monat einzeln dargestellt haben - der angebrochene September und der angebrochene Dezember ergeben d...
25.09.2008 10:48:56
Thread-ID: 1012259
2 Beiträge
Anzeige
Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 Beiträge
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Anzeige
Datum mit Zahl addieren ohne Sams-/Sonntag
Alwar

Guten tag liebe Community
zu meinem Problem, ich habe ein Anfangsdatum und die Information wieviele Schichten ich brauche um etwas bestimmtes zu produzieren. Das Problem ich will das Excel automatisch auf das Anfangsdatum drauf rechnet d.h.
z.B.
A1 =Anfangsdatum..B1 =Schicht..........
01.04.2009 09:18:21
Thread-ID: 1065818
18 Beiträge
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
Autofilter setzen 365 Tage ab Heute
Urmila

Hallo alle zusammen,
ich habe soeben ein Skript erstellt, was nicht wirklich funktioniert.
Dim d d = Date + 365 Selection.AutoFilter Field:=8, Criteria1:=d, Operator:=xlAnd Mein Ziel ist, alle Zellen anzuzeigen, die größer sind als 1 Jahr zum gegenwärtigen Datum (sprich Tag der Ausführ...
18.12.2009 14:09:20
Thread-ID: 1124915
4 Beiträge
Mittelwert nach Monaten berechnen
edie

Hallo zusammen,
wiederholt stehen in der Spalte A die Monate Januar bis Juli im Format (MMM) nach unten
in der Tabelle variabel. In der Spalte B und C die jeweiligen Werte, siehe Beispieldatei.
https://www.herber.de/bbs/user/67091.xls
Nun hätte ich gerne, wenn’s geht, die Monat...
08.01.2010 19:12:17
Thread-ID: 1128373
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
8
6
17
4
2
3
6
9
3
21
1
9
1
1
4
1
4
3
2
2
6
4