ich habe folgenden text in Zelle A2 stehen.
Monatliches Reporting Juni 2004
Stand 06.07.04
Der Monat das Jahr und das aktuelle Datum soll automatisch ermittelt werden .
Es darf nicht als formel eingetragen werden.
Wer kann mir helfen
Gruß
Wolfgang
Private Sub Workbook_Open()
Sheets(1).[A2] = "Monatliches Reporting " & Format(Month(Date), "mmmm") & Chr(10) & "Stand " & Date
End Sub
Private Sub Workbook_Open()
Sheets(1).[A2] = "Monatliches Reporting " & Format(MonthName(Month(Date)), "mmmm") & Chr(10) & "Stand " & Date
End Sub
Private Sub Workbook_Open()
Sheets(1).[A2] = "Monatliches Reporting " & Format(MonthName(Month(Date) - 1), "mmmm") & Chr(10) & "Stand " & Date
End Sub