Hallo in die Runde,
ich würde gerne die Stunden des Vormonats in den aktuellen Monat übertragen.
Mit folgendem Befehl werden neue Blätter erstellt:
'Neues Blatt erstellen
v_Datum = TB_Monat
Set wsNew = Worksheets.Add
With wsNew
.Name = Format(v_Datum, "MMMM,YYYY")
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
Worksheets(Worksheets.Count).Active
Mit folgendem Code habe ich den Übertrag probiert: (Funktioniert leider nicht)
Dim wsKopieren As Worksheet
Dim wsEinfügen As Worksheet
Set wsKopieren = Worksheets(ActiveSheet.Previous.Activate)
Set wsEinfügen = Worksheets(Worksheets.Count)
wsKopieren.Range("F42").Copy
wsEinfügen.Range("F5").PasteSpecial Paste:=xlPasteValues
Hat jemand eine Idee wie ich das Lösen kann?
Danke im Voraus!
LG Oliver