Datum und Wochentage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Merengy!
Probier mal!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub DatumEintragen()
Dim myDate As Date
Dim iMonth As Variant
Dim iRow As Integer, n As Integer, x As Integer, y As Integer
Dim vArrSunday() As Variant
Dim vArrThursday() As Variant

iMonth = InputBox("Bitte gewünschtes Monat ""(1-12)"" eingeben!", "MONAT", Month(Date))
If iMonth = "" Then Exit Sub
If Not IsNumeric(iMonth) Then Exit Sub

myDate = DateSerial(Year(Date), iMonth, 1)

For n = 1 To Day(DateSerial(Year(Date), iMonth + 1, -1))

  If Weekday(DateSerial(Year(Date), iMonth, n), vbMonday) = 7 Then
    Redim Preserve vArrSunday(x + 11)
    vArrSunday(x) = "Sonntag den " & Format(DateSerial(Year(Date), iMonth, n), "dd. mmmm")
    x = x + 12
  ElseIf Weekday(DateSerial(Year(Date), iMonth, n), vbMonday) = 4 Then
    Redim Preserve vArrThursday(y + 11)
    vArrThursday(y) = "Donnerstag den " & Format(DateSerial(Year(Date), iMonth, n), "dd. mmmm")
    y = y + 12
  End If

Next

Range(Cells(1, 1), Cells(UBound(vArrSunday) + 1, 1)) = Application.Transpose(vArrSunday)
Range(Cells(UBound(vArrSunday) + 2, 1), Cells(UBound(vArrThursday) + UBound(vArrSunday) + 1, 1)) _
  = Application.Transpose(vArrThursday)
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Also das Ganze soll eine gedruckte Programmvorschau sein, für den ganzen laufenden bzw. den nächsten Monat. Jeden Sonntag und jeden Donnerstag sind von einem Personenkreis, deren Namen in einer Excel-Tabelle stehen, kurze Referate zu halten. Sonntags sind es 6 verschiedene Themen die sich ständig ändern und von Hand eingegeben müssen, Donnerstags sind es 11 die feststehen und wiederum in einer weiteren Exceltabelle mit 12 Datenblättern mit jeweils 11 Themeneinträgen stehen, die dann einmal im Jahr festgelegt werden. Bis jetzt wurde das alles absolut "zu Fuß" in Word gemacht. Da derjenige, der das bisher gemacht hat, es nicht mehr machen kann wurde mir die Sache anvertraut. Ich möchte das aber so nicht machen denn ich bin der Meinung, das man das vereinfachen kann da es sich um Tabellen handelt und dafür ist doch sicher XL angesagt.
Das Endprodukt ist in Sonntags und Donnerstags unterteilt. Zuerst Sonntags:
Sonntag den 04.September
Spalte 1 Spalte 2
Thema1 Name x
Thema2 Name x
3
4
5
6
Für Sonntag eine Eingabemöglichkeit für das Thema und ein Listenfeld für die Namen.
Für Donnerstag sollte dann das Thema aus der XL-Tabelle bzw. dem Monat entsprechenen Arbeitsblatt genommen werden, angezeigt werden und dann wiederum über ein Listenfeld der Name hinzugefügt werden.
Ich hoffe sehr dass Du nun mein Anligen verstanden hast - aber ich möchte Dich auch nicht zu sehr beanspruchen - bitte nur wenn es nicht zu viele Umstände mach. Vielen herzlichen Dank!

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum und Wochentage

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread