Ich habe ein Workbook um meine Stundenerfassung zu bewerkstelligen.
Darin habe ich mehrere Einträge für Tage bzw tätigkeit sowie auch eine Angabe der aktuellen KW und des Datums von bis.
Ich möchtet nun aus dieser ersten Tabelle, vie Button (schon vorhanden) eine neue Tabelle erstellen(schon vorhanden) die KW in der Vorlage um 1 erhöhen(schon vorhanden) und die neue Sheet erstellen mit dem Namen der aktuellen KW(schon vorhanden). Danach soll der Bereich A1:N25 in die neuer Sheet kopiert werden. Wie kann ich das in mein Makro einpflegen?
Sub Fertig Click()
Dim Vorlage As Worksheet
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "J2"
For Each Zelle In ActiveSheet.Range (Bereich).Cells
Set Tabelle = Sheets.Add (After:=Sheets (Sheets.Count))
Tabelle.Name Range ("J2 ".Value = Range ("J2").Value +1
Next Zelle
End Sub