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

Vervielfälltigung von Datenblättern

Forumthread: Vervielfälltigung von Datenblättern

Vervielfälltigung von Datenblättern
11.11.2004 18:19:39
Datenblättern
Hallo,
ich möchte dieses angehängte Arbeitsblatt, so oft vervielfälltigen, das ich für jede Woche ein Besucherdatenblatt habe. Da ich aber in jedem Datenblatt die Kalenderwoche und die Tage ändern muss, suche ich eine schnelle Lösung des Problems.
Wer kann mir helfen?
Gruß
Rainer
https://www.herber.de/bbs/user/13327.xls
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vervielfälltigung von Datenblättern
11.11.2004 18:36:58
Datenblättern
kannst du nicht mehr nur aus der RECHERCHE
AW: Vervielfälltigung von Datenblättern
Datenblättern


Hallo
starte dies mal aus  tabelle1 heraus.
vieleicht ist es das... 
     
Public Sub t()
Dim i As Integer
Application.ScreenUpdating = 
False
For i = 2 To 53
      Worksheets("tabelle1").Copy after:=Sheets(Worksheets.Count)
            
With Sheets(i)
                  .Name = i + 1 & ".Kalenderwoche"
                  .[c3] = i + 1
                  .[e3] = Sheets("tabelle1").[e3] + (i - 1) * 7
                  .[h3] = Sheets("tabelle1").[h3] + (i - 1) * 7
                  Range("b6:i7").ClearContents
            
End With
Next
Application.ScreenUpdating = 
True
End Sub
ransi
 


Anzeige

Forumthreads zu verwandten Themen