Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
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
Inhaltsverzeichnis

Tabellenblatt bennen

Tabellenblatt bennen
Stefanglander
Hallo Forum,
ich im Archiv folgendes gefunden:
Sheets("Tabelle4").Name = "KW "& dinkw(Range("B2")
in ein Modul:
Function DINKW(Datum)
' Kalenderwoche nach DIN
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Das Modul habe ich angelegt.
Das Datum habe ich im Blatt 4 in Zelle B2 stehen.
Weiterhin möchte ich gerne den Text der In Zelle A1 steht und die Kalenderwoche als Tabellenblattname haben.
Das Tabellenblat soll dann Text aus Zelle A1 KW XX heißen.
Ist sowas machbar ?
Für Hilfe wäre ich dankbar.
Gruß Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt bennen
05.10.2009 22:56:45
Daniel
Hi
Sheets("Tabelle4").Name = Range("A1") & " " & "KW "& dinkw(Range("B2").value)
Gruß, Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige