Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro zum Duplizieren von Tabellenblättern

Makro zum Duplizieren von Tabellenblättern
20.01.2005 14:35:34
Tabellenblättern
moin zusammen,
in anhängender datei möchte ich über den button "neuer bericht" (=makro) im tabellenblatt daten immer einen neuen bericht für die folgewoche erstellen. dabei soll immer der status der jeweiligen vorwoche kopiert werden. leider bekomme ich es aber nur hin, dass immer nur der status vom 20.01.2005 kopiert wird. wer kann mir helfen?
danke + gruß
volker
https://www.herber.de/bbs/user/16468.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Duplizieren von Tabellenblättern
Tabellenblättern
Hallo,
so:

Sub Bericht_neu()
Dim Datum As Date
Dim wksLast As Worksheet
Set wksLast = Worksheets(Worksheets.Count)
Datum = wksLast.Range("H1")
wksLast.Copy after:=wksLast
With ActiveSheet
.Name = Format(Datum + 7, "DD.MM.YYYY")
.Range("H1") = Datum + 7
.Range("B2").FormulaR1C1 = "='" & wksLast.Name & "'!R[1]C"
.Range("B3").Select
End With
End Sub

Gruß

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige