Tabellen kopieren und benennen
03.08.2003 11:52:34
Armando
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