Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Datum heute < 3 Monate

VBA: Datum heute < 3 Monate
01.09.2018 14:36:58
Bernd
Hallo zusammen,
Bräuchte mal Hilfe.
Mein Problem: In Spalte B Tab1 sind nur Datumswerte. Ich möchte erreichen, wenn die Datei gestartet wird, dass die SpalteB in Tab1 Zelle für Zelle überprüft wird, ob das jeweilige Datum in Zelle kleiner ist als heute -3 Monate, wenn ja erhöhe in der jeweiligen Zelle das Datum um ein Jahr. Wenn nein mache in der Zelle nichts. Und das ganze in VBA.
Als Formel habe ich das so gemacht, allerdings mit Hilfsspalte "=WENN(DATEDIF(B1;A1;"m");DATUM(JAHR(B1)+1;MONAT(B1);TAG(B1));B1)"
Vielen Dank schon mal im Voraus!!!
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Datum heute < 3 Monate
01.09.2018 15:14:55
Sepp
Hallo Bernd,
Sub bernd()
  Dim varDate As Variant, varItem As Variant, lngIndex As Long

  With Sheets("Tabelle1") 'Tabellenname - Anpassen! 
    varDate = .Range("B1:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
    For lngIndex = 1 To Ubound(varDate, 1)
      If IsDate(varDate(lngIndex, 1)) Then
        If DateAdd("m", 3, varDate(lngIndex, 1)) < Date Then
          varDate(lngIndex, 1) = DateAdd("yyyy", 1, varDate(lngIndex, 1))
        End If
      End If
    Next
    .Range("B1").Resize(Ubound(varDate, 1), 1) = varDate
  End With
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA: Datum heute < 3 Monate
01.09.2018 15:26:22
Bernd
Hallo Sepp,
Vielen Danke für deine schnelle Hilfe.
Genauso sollte es funktionieren, spitzenmäßig!!!
Sonnige Grüße aus Bremen
Bernd
AW: VBA: Datum heute < 3 Monate
01.09.2018 15:40:20
Bernd
Hallo Sepp,
mir kommt noch eine Frage in den Sinn und zwar wenn ich mehrere Blätter abfrage hatte ich angenommen es geht über "Sheets(Array" aber das funktioniert nicht. Kannst du mir sagen wie ich deinen Code ändern müsste?
Danke im Voraus!!!
Gruß
Bernd
AW: VBA: Datum heute < 3 Monate
01.09.2018 15:52:12
Sepp
Hallo Bernd,
Sub bernd()
  Dim varDate As Variant, varItem As Variant, lngIndex As Long
  Dim objWS As Worksheet
  
  For Each objWS In Sheets(Array("Tabelle1", "Tabelle2"))
    With objWS
      varDate = .Range("B1:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)
      For lngIndex = 1 To Ubound(varDate, 1)
        If IsDate(varDate(lngIndex, 1)) Then
          If DateDiff("m", varDate(lngIndex, 1), Date) > 3 Then
            varDate(lngIndex, 1) = DateAdd("yyyy", 1, varDate(lngIndex, 1))
          End If
        End If
      Next
      .Range("B1").Resize(Ubound(varDate, 1), 1) = varDate
    End With
  Next
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA: Datum heute < 3 Monate
01.09.2018 15:59:10
Bernd
Hallo Sepp,
Klasse, danke für deine Bemühungen. Ich werd dich in mein Nachtgebet einschliessen, gelle ;-)
Sonnige Grüße aus Bremen
Bernd
PS. Werder führt gegen Frankfurt 1:0

340 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
Anzeige

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