Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

größer als 15.11. des aktuellen Jahres

größer als 15.11. des aktuellen Jahres
Andy
Hallo,
wie muss ich meine Formel abändern um einen Datumsvergleich machen zu können?
In A1 steht ein bestimmtes Datum. In B3 soll 'Ja' oder 'Nein' erscheinen, je nachdem ob das Datum in Zelle A1 größer, also später als der 15.11. des aktuellen Jahres ist.
If Range("a1").value ="> als 15.11. des aktuellen Jahres" then Range("b3").value ="JA" Else Range("b3").value ="Nein" End if Gruß Andy

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

Betreff
Benutzer
Anzeige
AW: größer als 15.11. des aktuellen Jahres
12.08.2012 20:31:37
Matthias
Hallo
ohne VBA
Tabelle1

 AB
115.11.2013 
2  
3 Ja

Formeln der Tabelle
ZelleFormel
B3=WENN(A1>DATUM(JAHR(HEUTE()); 11;15); "Ja";"Nein")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias
Anzeige
hier eine VBA-Variante
12.08.2012 21:05:48
Matthias
Hallo
bezieht sich hier aufs aktive Tabellenblatt,
Dim Mydate$
Mydate = "15.11." & Year(Date)
If IsDate(Range("A1")) Then
If Range("A1")  CDate(Mydate) Then
If Range("A1") > CDate(Mydate) Then
Range("B3") = "Ja"
Else
Range("B3") = "Nein"
End If
Else
Range("B3") = "Gleich"
End If
Else
MsgBox "kein Datum in A1"
End If
Gruß Matthias
Nach dem 15.11. des aktuellen Jahres
12.08.2012 23:40:17
Erich
Hi,
wie wäre es damit?
 AB
120.12.2011Nein
214.11.2012Nein
315.11.2012Nein
416.11.2012Ja
520.12.2012Ja

Formeln der Tabelle
ZelleFormel
B1=WENN(JAHR(A1+46)>JAHR(HEUTE()); "Ja";"Nein")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Und in VBA: 

Sub Nach1511()
Cells(3, 2) = IIf(Year(Cells(1, 1) + 46) > Year(Date), "Ja", "Nein")
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
Danke!
12.08.2012 23:40:53
Andy
Danke für die Lösung!
Danke!
12.08.2012 23:41:27
Andy
Danke für die Lösung!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige