|
Hallo allerseits,
Ich benötige für folgendes Problem Hilfe:
Ich habe mehrere Excel Mappen, für jeden Kunden eine separate. Nach Abschluss des Auftrages kopiere ich, mit dem am Ende beigefügten Makros den Sheet in die Jahresmappe (Abrechnung Gesamt 2012, 2013, 2014 usw). In dem zu kopierenden Sheet steht in der Spalte C5-C500 das Datum der einzelnen Positionen. Das bedeutet, der letzte Eintrag kann in Zelle C6, C15 oder sonst wo stehen. Dieser, der letzte Datumseintrag ist für mich der Entscheidende. Ist er z.B. vom 31.12. 2013 dann in Gesamt 2013, ist er vom 27.04. 2012 dann in Gesamt2012 usw. Kann man das Makro so ergänzen das es automatisch in die richtige Mappe kopiert wird?
Sub Active_Sheet_Copy()
Dim WKB As Workbook
Dim wks As Worksheet
Const Pfad = "C:\Users\Desktop\Abrechnungen\Abrechnung Gesamt.xlsm"
Set wks = ActiveSheet
Set WKB = Workbooks.Open("C:\Users\Desktop\Abrechnungen\Abrechnung Gesamt.xlsm")
wks.Copy After:=WKB.Worksheets(Sheets.Count)
'Formeln durch Werte ersetzen:
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Option Button 2")).Select
Selection.Delete
WKB.Close SaveChanges:=True
End Sub
|