AW: Tabellenblatt über Kalenderwoche finden
24.04.2006 20:30:13
StefanH
Hallo Raik S.
Nachdem ich damit erst einmal nichts anfangen konnte, habe ich folgendes gebastelt:
Das Makro, welches ich in mein Menü eingebunden habe
Sub kw_finden()
'sucht Blatt der aktiven Kalenderwoche und öffnet dies
Sheets(Format(Date, "ww")).Activate
Range("A1").Select
End Sub
und aus deiner Antwort eine Funktion
Function ww()
Dim stringvariable As String
Dim WB As Workbook
stringvariable = DatePart("ww", Date, vbMonday, vbFirstFourDays)
WB.Worksheets(stringvariable).Cells(1, 1).Value = test
End Function
und ich staunte als VBA Laie nicht schlecht, es funktioniert super. Wäre ich ja nie darauf gekommen. Ein TOLLES Forum.
Vielen Dank
Stefan