Makro schreib Problem Excel

[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

[snoooc]

Sorry, hab da was grundliegendes vergessen zu sagen. Sams- und Sonntage sollen nicht mit aufgeschrieben werden, das heißt, dass der darauf folgende Montag dann wieder aufgeführt werden muss, Feiertage müssen nicht unbedingt berücksichtigt werden.


snoooc

[[EID]-Mr.GiZMO]

Sub Dates()
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer

' hier definieren
Startzeile = 1
Startspalte = 1
AnzahlTage = 27


For i = 0 To AnzahlTage
    heute = Date + i
    Cells(Startzeile, Startspalte) = heute
Next i
End Sub

Grüße.

€ Oha... neuer Post dazwischen... nicht gesehen.
Ich guck mal, ob ich das schaffe.

[[EID]-Mr.GiZMO]

So, hier habe ich es korriegiert mit Filterung der Samstage und Sonntage:

Sub Dates()
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        Cells(Startzeile + Counter, Startspalte) = heute
        Counter = Counter + 1
    End If
Next i
End Sub

Grüße!

[snoooc]

Moin,
DANKE, war schon am verzweifel, wie du oben siehst. Jetzt aber noch mal was anderes, kann man dieses Makro 1 zu 1 in Word Portieren, um dort, auch in einer Tabelle, das selbe durch zu führen?


snoooc

[sp]

Müsste eigenlich genen, Word kann ja Excel Tabelen einbetten.
Und auch Macros ausführen(2007).

[[EID]-Mr.GiZMO]

Nativ für Word würde das so aussehen:

Sub Dates()
Dim TabellenNummer As Integer
Dim Startzeile As Integer
Dim Startspalte As Integer
Dim AnzahlTage As Integer
Dim Counter As Integer

' hier definieren
TabellenNummer = 1
Startzeile = 1
Startspalte = 1
AnzahlTage = 27
Counter = 0

For i = 0 To AnzahlTage
    heute = Date + i
    If DatePart("w", heute) <> vbSaturday And DatePart("w", heute) <> vbSunday Then
        ActiveDocument.Tables(TabellenNummer).Cell(Startzeile + Counter, Startspalte).Range.Text = heute
        If i <> AnzahlTage Then
            ActiveDocument.Tables(TabellenNummer).Rows.Add
        End If
        Counter = Counter + 1
    End If
Next i

End Sub

Beachten: Word braucht immer eine Tabellennummer, um eine Tabelle zu lokalisieren, daher musst du im define-Bereich die Nummer der Tabell angeben.
Einfach vom Dokumentenanfang abzählen.

Grüße.


PS: Das kostet mind. 10 Danke und 5 positive Bewertungen

[snoooc]

Danke, werde das für Word morgen ausprobieren. Dass Das so verhältnismäßig einfach zu schreiben ist !?! Da bin ich doch zuviel auf C++ getrimmt und da ich auch keine andere Sprache kann...
Noch eine frage, bezieht sich der zweite Code auf eine Excel Tabelle in Word oder auf eine "Word-Tabelle"?


Thx for all your answers,


snoooc



Edit: 10 Danke für [EID]-Mr.GiZMO!!!

[[EID]-Mr.GiZMO]

Danke!
Der Zweite Codeschnipsel bezieht sich auf eine Tabelle in Word (native Word-Tabelle, nicht Excel-import pder -Verknüpfung).

Im Excel-Makro hab ich noch Zeile 15 korrigiert:

Cells(Startzeile + Counter, Startzeile) = heute
wurde zu
Cells(Startzeile + Counter, Startspalte) = heute

Grüße.