Hallo zusammen,
ich verzweifele gerade an diesem Excel-Sheet - da der Ersteller für mich leider nicht mehr greifbar ist und ich gerade mal die Grundlagen von VBA habe.
Im 1. Reiter ist eine Vorlage erstellt zum Eintragen der Daten (Stundenübersicht / Wochennachweis). Mit einem MAkro werden die Daten übertragen. Nach Änderung der KW wird der Inhalt gelöscht, dass es wieder für eine weitere KW eingetragen werden kann. Woche für Woche soll das aber archiviert werden als Nachweis.
Nun das Problem - mit einem simplen Makro kann ich das Formular markieren und im andern Reiter einfach einfügen. Da das Datum aber jeweils auf die KW bezogen automatisch geändert wird und der Bezug beim nächsten Kopiervorgang gleichbleibend ist - wird die vorherige Kopie mit "neuem" Datum geändert.
Wie kann ich zwar die Vorlage kopieren - aber nur die Werte, damit sich das beim nächsten Kopiervorgang nicht anpasst.
Sub LukaKopie()
'
' LukaKopie Makro
'
'
Rows("1:32").Select
Selection.Copy
Sheets("Luka Nachweis").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Luka Zeitnachweis").Select
Application.CutCopyMode = False
Range("A14").Select
End Sub
Bitte um Support - hier weiß ich wirklich nicht mehr weiter.
Vielen lieben Dank im Voraus und Grüße
July
ich verzweifele gerade an diesem Excel-Sheet - da der Ersteller für mich leider nicht mehr greifbar ist und ich gerade mal die Grundlagen von VBA habe.
Im 1. Reiter ist eine Vorlage erstellt zum Eintragen der Daten (Stundenübersicht / Wochennachweis). Mit einem MAkro werden die Daten übertragen. Nach Änderung der KW wird der Inhalt gelöscht, dass es wieder für eine weitere KW eingetragen werden kann. Woche für Woche soll das aber archiviert werden als Nachweis.
Nun das Problem - mit einem simplen Makro kann ich das Formular markieren und im andern Reiter einfach einfügen. Da das Datum aber jeweils auf die KW bezogen automatisch geändert wird und der Bezug beim nächsten Kopiervorgang gleichbleibend ist - wird die vorherige Kopie mit "neuem" Datum geändert.
Wie kann ich zwar die Vorlage kopieren - aber nur die Werte, damit sich das beim nächsten Kopiervorgang nicht anpasst.
Sub LukaKopie()
'
' LukaKopie Makro
'
'
Rows("1:32").Select
Selection.Copy
Sheets("Luka Nachweis").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Luka Zeitnachweis").Select
Application.CutCopyMode = False
Range("A14").Select
End Sub
Bitte um Support - hier weiß ich wirklich nicht mehr weiter.
Vielen lieben Dank im Voraus und Grüße
July