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

Datumswert per vba ändern

Forumthread: Datumswert per vba ändern

Datumswert per vba ändern
08.04.2016 17:28:13
Peter
Hallo Zusammen,
ich bitte um eure Hilfe.
Wie kann ich aus einem Datum z.B. 01.02.2015 oder 18.02.2015 immer ein festes Datum 15.02.2016 erstellen?
Danke für Eure Hilfe im voraus,
Peter

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
If IsDate(Range("C3")) Then ...
08.04.2016 17:39:29
Matthias
Hallo
Bsp. für C3. einfach anpassen-
If IsDate(Range("C3")) Then Range("C3") = DateSerial(2016, 2, 15)
Gruß Matthias

AW: If IsDate(Range("C3")) Then ...
08.04.2016 17:48:31
Peter
Hallo Matthias,
danke für deine Antwort.
Bei mir sieht es so aus. Ich lese ein Datumswert aus cells (7,4) aus. Der ist z.Bsp. 01.02.2015.
Datumstart = Cells(7, 4)
Nun soll die Variable Datumstart in 15.02.2015 verändert werden.
Wie müsste der Code dazu aussehen?
LG, Peter

Anzeige
warum liest Du es dann erst ein? ...
08.04.2016 17:59:08
Matthias
Hallo
Dann nimm doch gleich eine Konstante und keine Variable
Sorry, ich verstehe den Sinn nicht.
Gruß Matthias

AW: warum liest Du es dann erst ein? ...
08.04.2016 18:16:05
Peter
Hallo Matthias,
das Datum wird in der Zelle (7,4) eingegeben. Es wird später beim Ablauf des Codes mit anderen Datumswerten in anderen Tabellen verglichen und dort fangen die Datumswerte immer mit dem 15-ten Tag an, was ich vergessen habe und schon hatte ich unsinnige Ergebnisse. Diesen "kleinen" Fehler wollte ich für die Zukunft korrigieren.
Mit deiner Hilfe habe ich das Problem nun so gelöst:
TagStart = Day(Cells(7, 4))
MonatStart = Month(Cells(7, 4))
JahrStart = Year(Cells(7, 4))
Datumstart = DateSerial(JahrStart, MonatStart, 15)
Nochmal, vielen Dank und ein schönes Wochenende,
Peter

Anzeige
=DATUM(JAHR(B7);MONAT(B7);15) owT
08.04.2016 17:39:55
Michael

"VBA" überlesen-sorry, war Quatsch
08.04.2016 17:45:11
Michael
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum