Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellen kopieren und benennen

Tabellen kopieren und benennen
03.08.2003 11:52:34
Armando
hallo
ich benötige ein makro das mir arbeit erleichtert
in einer arbeitsmappe habe ich eine tabelle mit dem namen
"Tabelle1" diese möchte ich kopieren und zwar so oft wie der
monat dessen datum in zelle D2 steht tage hatt
und die blätter im datumsformat Z.B "Mo.01;Di.02; usw.benennen
Das makro für den blattnamen habe ich bereits
'** BLATTNAME AUS ZELLE ALS DATUM

Sub Name_geben()
Dim I As Integer
On Error Resume Next
For I = 1 To Worksheets.Count
Worksheets(I).Name = Format(Worksheets(I).Range("D2"), "ddd.dd")
Next I
End Sub

das problem die blätter so zu kopieren das daß datum in D2
fortlaufend angezeigt wird kann ich leider nicht lösen
bitte um hilfe danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen kopieren und benennen
04.08.2003 13:17:31
xXx
Hallo,
hier die Lösung

Sub kopieren()
Dim D1 As Date, D2 As Date, T As Long
Application.ScreenUpdating = False
D1 = Sheets(1).Range("d2")
D2 = DateSerial(Year(D1), Month(D1) + 1, 1) - 1
For T = D1 To D2
Sheets(1).Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Range("d2") = Format(T, "dd.mm.yyyy")
ActiveSheet.Name = Format(T, "ddd.dd")
Next T
Application.ScreenUpdating = True
End Sub

Gruß aus'm Pott
Udo

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige