Bestimmte Tage auflisten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Christian
musste doch noch mal in Deine Formel schauen. Das passt nicht fuer meine Beduerfnisse ;-)))
Obwohl es doch richtig ist!!!!!!!
Hatte mich schlecht ausgedrueckt. T'schuldigung.Haette es so beschreiben sollen:
Jeden ersten und dritten Freitag ist unser Vereinsheim auf und am Sonntag nach dem dritten Freitag haben wir Vereinssitzung. da passt der VBA Code und Deine Formel im August nicht. Formel ist aber nicht umsonst geschrieben!!!!!
Tabelle1

	C
22	06.08.2010
23	20.08.2010
24	15.08.2010

verwendete Formeln
Zelle	Formel
C22	=WERT(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1))-1-WOCHENTAG(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1) -WENN(REST(ZEILE();3)>0;5;7);3)+7*WENN(REST(ZEILE();3)=0;3;WENN(REST(ZEILE();3)=2;3;REST(ZEILE(); 3)))
C23	=WERT(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1))-1-WOCHENTAG(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1) -WENN(REST(ZEILE();3)>0;5;7);3)+7*WENN(REST(ZEILE();3)=0;3;WENN(REST(ZEILE();3)=2;3;REST(ZEILE(); 3)))
C24	=WERT(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1))-1-WOCHENTAG(DATUM($H$1;GANZZAHL((ZEILE()-1)/3+1);1) -WENN(REST(ZEILE();3)>0;5;7);3)+7*WENN(REST(ZEILE();3)=0;3;WENN(REST(ZEILE();3)=2;3;REST(ZEILE(); 3)))

Tabellendarstellung in Foren

gruss hary

Hallo Christian,
du hast rech, aber wie Harry schon sagte, braucht er es so.
Der grund dafür ist einfach erklärt. Immer wenn der 1. eines Monats auf Sa oder So fällt,
dann ist der 3. Sonntag vor dem 3. Freitag. Der folgende Code berücksichtigt das.

Sub DatumSpezial()
  Dim intIndex As Integer, intYear As Integer, intDay As Long, intMonth As Integer
  Dim vntDate() As Variant

  intYear = Application.InputBox("Bitte das gewünschte Jahr eingeben", "Datumsfolge", Year(Date), Type:=1)

  Redim vntDate(1 To 1)

  If intYear < 1 Or intYear > 3999 Then Exit Sub
  For intMonth = 1 To 12
    For intDay = 1 To 22
      If Weekday(DateSerial(intYear, intMonth, intDay), 2) = 5 Then
        Redim Preserve vntDate(1 To UBound(vntDate) + IIf(UBound(vntDate) = 1, 2, 3))
        vntDate(UBound(vntDate) - 2) = Clng(DateSerial(intYear, intMonth, intDay))
        vntDate(UBound(vntDate) - 1) = Clng(DateSerial(intYear, intMonth, intDay + 14))
        vntDate(UBound(vntDate)) = Clng(DateSerial(intYear, intMonth, intDay + IIf(intDay > 5, 9, 16)))
        Exit For
      End If
    Next
  Next

  Range("A2").Resize(UBound(vntDate), 1) = Application.Transpose(vntDate)
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

	A	B
1
2	01.01.2010	<-- 1.Freitag
3	15.01.2010	<--2.Freitag
4	17.01.2010	<--3.Sonntag
5	05.02.2010	<-- 1.Freitag
6	19.02.2010	<--2.Freitag
7	21.02.2010	<--3.Sonntag
8	usw.

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Tage auflisten

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread