Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum zusammensetzen & vergleichen

Datum zusammensetzen & vergleichen
20.03.2009 22:24:32
Frank
Hallo Forum
Ich komme grad irgendwie nicht weiter und hoffe, dass ihr mir mal kurz helfen könnt.
In Spalte E (z.B. E2) habe ich Daten stehen im Format TT.MM.JJ (z.B. 01.01.99)
Nun will ich über VBA diese Datum anders zusammensetzen:
Tag aus der Zelle, Monat aus der Zelle und das aktuelle Jahr (01.01.09)
Damit will ich einen 6-Monats-Turnus vergleichen.
Wenn das zusammengesetzte Datum - 6 Monate kleiner als das aktuelle Datum is, dann soll dieses Datum aus der Zelle in einer MsgBox ausgegeben werden.
Also:

Sub Datum()
Dim Datum as Date
Datum = ...hier das zusammengesetzte Datum...
If Datum


Danke Euch für das Kopfzerbrechen :o)
Frank

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

Betreff
Datum
Anwender
Anzeige
AW: Datum zusammensetzen & vergleichen
20.03.2009 22:28:18
Daniel
Hi
Datum = DateSerial(Year(Date), Month(Range("E2").value), Day(Range("E2").value)
Gruß, Daniel
AW: Datum zusammensetzen & vergleichen
20.03.2009 22:41:42
Frank
Hallo Daniel
Danke für die Hilfe.
Anbei mal den Code:

Private Sub UserForm_Initialize()
Dim Datum As Date
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = Range("A65536").End(xlUp).Row
For LoI = 2 To LoLetzte
If IsDate(Cells(LoI, 5)) And Cells(LoI, 6) = "x" Then
Datum = DateSerial(Year(Date), Month(Cells(LoI, 5).Value), Day(Cells(LoI, 5).Value))
If Datum ? Then
ListBox1.AddItem Cells(LoI, 1)
End If
End If
Next
End Sub


Nun hätte ich noch ein Problem. Wie kann ich nun vergleichen, ob
das zusammengesetzte Datum zwischen 26 und 28 Wochen zurückliegt, damit diese Zeilen dann in die Listbox übernommen werden?
Ich schaff das grad nicht.
Danke noch mal :o)
Frank

Anzeige
AW: Datum zusammensetzen & vergleichen
20.03.2009 22:51:33
Ramses
Hallo
"... Ich schaff das grad nicht .. "
Nachdenken ist die erste Anwenderpflicht
If Datum (Date - 28*7) Then
-... wäre z.B. eine Variante
Grus Rainer
AW: Datum zusammensetzen & vergleichen
20.03.2009 23:34:09
Frank
Hallo Rainer
Du hast natürlich recht, aber irgendwie funktioniert das nicht?
Es werden einfach keine Daten in die Listbox eingetragen.
Anbei mal eine Beispiel-Datei.
https://www.herber.de/bbs/user/60532.xls
Wäre nett, wenn sich das noch mal jemand anschauen könnte. Ich hab nur begrenzte Kenntnisse in VBA und finde einfach den Fehler nicht :o(
Danke.
Frank
Anzeige
AW: Datum zusammensetzen & vergleichen
21.03.2009 00:24:57
Ramses
Hallo
Was soll sich da denn füllen ?
Du fragst nach Daten die zwischen 26 und 28 Wochen alt sind.
Das jüngste Beispieldatum ist über 7 Monate alt, also ausserhalb deiner Spezifikation, und steht nicht zur 1/2 jährlichen prüfung (ohne "x") an.
Selbst wenn alles korrekt wäre,... würde nichts anders angezeigt
Ausserdem musst du das Datum anders abfragen,... so funktioniert es wenn die Daten in der Tabelle stimmen !!
Private Sub UserForm_Initialize()
    Dim Datum As Date
    Dim LoI As Long
    Dim LoLetzte As Long
    LoLetzte = Range("A65536").End(xlUp).Row
    For LoI = 2 To LoLetzte
        If IsDate(Cells(LoI, 5)) And Cells(LoI, 6) = "x" Then
            If Cells(LoI, 5) < (Date - 26 * 7) And Cells(LoI, 5) > (Date - 28 * 7) Then
                ListBox1.AddItem Cells(LoI, 1)
                ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(LoI, 5) + 26 * 7
            End If
        End If
    Next LoI
End Sub

https://www.herber.de/bbs/user/60533.xls
Gruss Rainer
Anzeige
AW: Datum zusammensetzen & vergleichen
21.03.2009 02:03:27
Frank
Hi Rainer
Vielen Dank für die Hilfe. So funktioniert es jetzt :o)
Es wurde komischerweise vorher überhaupt nichts angezeigt. Selbst wenn die Daten im Zeitraum gelegen haben.
Aber egal. Jetzt funkt es ja und ich bin glücklich :o)
Nochmals vielen Dank.
Frank

137 Forumthreads zu ähnlichen Themen

Datum sortieren (Jahr, Monat, Tag)
InaB

Hallo Forum,
ich habe ein Problem, das ich so nicht bewältigen kann.
Ich möchte per VBA ab Spalte C4 abwärts Datumsangaben sortieren und zwar nach Jahr, Monat, Tag.
Kann mir jemand dabei helfen?
Danke, Ina
12.08.2008 13:16:04
Thread-ID: 1001175
6 Beiträge
Anzeige
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Monat und Jahr aus Datum extrahieren
ItsMyLife

Hallo,
für ein Diagramm will ich die Anzahl von Datensätzen die nach dem Datumsfeld in einen Monat fallen ermitteln.
Wie kann ich den Monat und das Jahr aus einem Datumsfeld extrahieren.
Ich meine nicht die Anzeige (Format Zellen), sondern den tatsächlichen Feldinhalt?
19.05.2009 14:21:13
Thread-ID: 1076146
3 Beiträge
Anzeige
Tabellennamen aus Zellen+Konstanten zusammensetzen
Jörg

In der Formel
=SVERWEIS($C4;$A4&"_"&$B4!$A$6:$N$237;SPALTE()-1;FALSCH)
möchte ich den Tabellennamen (als Teil der Matrixdefinition, auf die verwiesen wird) variabel aus den Zellen A4, einem Unterstrich und der Zelle B4 zusammensetzen.
Leider kommt in dieser Form eine Fehlerm...
06.11.2009 11:55:47
Thread-ID: 1114949
4 Beiträge
Monat und Jahr in 2 Spalten
Dagmar

Hallo alle miteinander,
in einer Excel-Liste habe ich in einer Spalte den Monat( z. B. 08), in der nächsten das Jahr (z. b. 2009). Ist es möglich daraus wieder ein funktionierendes Datum zu machen? Als Tag darf immer der 1. gewählt werden. Mit Spalten zusammenführen (&) hat es nicht gek...
03.12.2009 17:06:26
Thread-ID: 1121640
4 Beiträge
Aus Monats und Jahreszahlen ein Datum erzeugen.
Josef_T

Guten Abend zusammen.
Habe in C1 eine zweistellige Monatszahl und in D1 eine vierstellige Jahreszahl.
zB. so: in C1 steht 08 (August)und in D1steht 2010. Der Monat und das
Jahr wird händig eingetragen. Nun möchte ich, dass in B1 aus den Daten ein Datum erstellt wird,
dass immer...
18.12.2009 21:37:54
Thread-ID: 1124989
4 Beiträge
Zählen aus Datumsbereich | Herbers Excel-Forum
Claudia
Hallo an alle Experten,
ich habe für ein Hotel eine Tabelle mit Ankunfts- und Abreisedaten. Daraus möchte ich auszählen, wieviele Gäste am jeweiligen Tag im Haus sind. Mit ZÄHLENWENN bin ich bisher nicht weitergekommen.
Danke im Voraus für jegliche Hilfe!
03.02.2010 04:37:20
Thread-ID: 1135294
5 Beiträge
Alter in Jahren, Monaten, Tagen
Sonja

Hallo,
bitte könnte mir jemand ausrechnen wie alt ich heute in Jahren, Monaten und Tagen bin. Geburtsdatum: 6.5.1976. Wie löst man dieses Problem in Excel? Vielen Dank für eure Hilfe.
Herzlichen Gruß
Sonja
03.05.2010 15:02:56
Thread-ID: 1155123
6 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

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
5
1
6
2
2
3
3
3
4
5
3
1
8
13
2
5
8
4
5
1
3
2
5
9
7