Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblatt über Kalenderwoche finden

Tabellenblatt über Kalenderwoche finden
24.04.2006 14:20:44
StefanH
Hallo,
nachdem ich Monatstabellenblätter in Makros mit
"Sheets(Format(Date,"MMMM")).Activate "
aktivieren kann, möchte ich dies in einer anderen Mappe mit nach Kalenderwochen benannten Blättern auch tun. Wie muss ich die Funktion anpassen, ich habe keine Ahnung.
Gruß
Stefan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt über Kalenderwoche finden
24.04.2006 16:52:11
Raik
Dim stringvariable as string
Dim WB as Workbook
stringvariable = DatePart("ww", Date, vbMonday, vbFirstFourDays)
WB.Worksheets(stringvariable).cells(1,1).value = test
Ich muss leider gerade losfahren, deswegen kurz ausgefallen.
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige