Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige