[snoooc]

Moin,
eigentlich wollte ich hier nicht nachfragen, in der Hoffnung über Google alles zu finden oder es selbst hin zu bekommen.
Mein Auftrag ist es ein Makro zu schreiben (Excel), welches es ermöglicht auf druck das Aktuelle Datum und 26 Tage hinterher (Also insgesammt 27 Tage) in eine Zeile zu Schreiben (z.B.: A1 bis A27).

Hab da zwar schon Quell Text zu entworfen, bekomme aber keine Kalender abfrage hin:

Sub Makro1()
'
' Makro1 Makro
' Makro am 04.03.2009 von it.servicedesk aufgezeichnet
'
'
Datum = Date
vbCalGerg = Datum
Kalender = vbCalGerg
Dim oBlatt As Worksheet
Set oBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Tabellennamen gg. anpassen
'Cell = ("A1")
Select Case Kalender
Case 1: Cell =("A2")to("A30").Datum = Datum + 1 'Ausgabe der hoch gerechneten Werte
Case 2: 'Ausgabe der hoch gerechneten Werte
Case 3: 'Ausgabe der hoch gerechneten Werte
Case 4: 'Ausgabe der hoch gerechneten Werte
Case 5: 'Ausgabe der hoch gerechneten Werte
Case 6: While (Datum = vbSaturday)
If (vbSaturday) Then
Datum = Datum + 2
End If
vbCalGerg = Datum
Case 1. SetFocus.
Wend

Case 7: While (Datum = vbSunday)
If (vbSaturday) Then
Datum = Datum + 1
End If
vbCalGerg = Datum
Wend
End Select
'While (Datum = vbSaturday)
'If (vbSaturday) Then
'Datum = Datum + 2
'End If
'vbCalGerg = Datum
'Wend


End Sub
'Tag = Left(Datum, 2)
'Monat = Mid(Datum, 4, 2)
'Jahr = Mid(Datum, 7)


Hier mal das bis jetzige. Kann mir einer von euch erklären wie ich das machen kann!?


Danke im Voraus,

snoooc