Microsoft Excel

Herbers Excel/VBA-Archiv

Select Case mit Datum


Betrifft: Select Case mit Datum von: Axel
Geschrieben am: 19.07.2018 10:57:35

Hallo zusammen,

ich hänge gerade an einer Sache fest.
Ich habe eine Excel-Tabelle mit vielen Daten (Mehrzahl von Datum). Diese will ich in eine andere Excel-Tabelle kopieren in bestimmte Spalten, gestaffelt nach Quartalen.

Das ansteuern einer Zelle und kopieren ist nicht das Problem. Mein Ansatz ist grob der:

Dim Tdate as Date

.
.
.
Tdate = Qblatt.Cells(cl,k) 'Tdate ist dann also das Datum, welches überprüft wird

Select Case Tdate
Case 1/1/2014 to 3/31/2014
Zblatt.Cells(cl,4) = Qblatt.Cells(cl,k)

Case 1/4/2014 to 6/30/2014
Zblatt.Cells(cl,4) = Qblatt.Cells(cl,k)

usw.

Aber anscheinend vergleicht er das Datum nicht korrekt. Habe ich was an der Syntax falsch gemacht? Muss man in "Case" das Datum anders Schreiben?

Ach, wenn einer ne bessere Idee hat, wie ich ein Datum in 16 verschiedene Quartale einpasse, dann gerne her damit ;-).

Viele Grüße
Axel

  

Betrifft: AW: Select Case mit Datum von: Hajo_Zi
Geschrieben am: 19.07.2018 11:00:07

Hallo Axel

vielleicht
cDATE("31.03.2014")


GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: Danke von: Axel
Geschrieben am: 19.07.2018 11:28:35

Hi zusammen,

danke für alle Rückmeldungen. Ihr habt mich auf die richtige Spur gebracht.

Die korrekte Syntax ist:

Select Case Tdate
Case CDate("01.01.2014") To CDate("31.03.2014")


  

Betrifft: AW: Select Case mit Datum von: PeterK
Geschrieben am: 19.07.2018 11:05:37

Hallo

PIVOT Tabelle und das Datum gruppieren


  

Betrifft: AW: Da stimmt mehreres nicht... von: Michael (migre)
Geschrieben am: 19.07.2018 11:06:08

Axel,

...Vorschlag meinerseits:

    Dim Tdate As Date
    Tdate = Qblatt.Cells(cl, k)
    '...
    Select Case True
        Case Tdate >= CDate("01.01.2014") And Tdate <= CDate("31.03.2014")
            '...
        Case Tdate >= CDate("01.04.2014") And Tdate <= CDate("30.06.2014")
            '...
        Case Else
            '
    End Select
    '...
LG
Michael


Beiträge aus dem Excel-Forum zum Thema "Select Case mit Datum"