Hallo,
so funktioniert es:
1.) Die Tabelle wird von A1:F30 nach A2:F31 kopiert.
2.) Dann wird die letzte Zeile = "" gesetzt, also gelöscht.
3.) Nun fügt man den neuen Datensatz in die oberste Zeile A1:F1 ein:
Worksheets("Statistik").Range("A1:F30").Copy Worksheets("Statistik").Range("A2:F31")
Range("Statistik!A31:F31") = ""
Worksheets("Berechnungen").Range("E5:J5").Copy Worksheets("Statistik").Range("A1:F1")
Da dies ja ein Forum ist, in dem jeder jedem hilft, dürft Ihr das Skript , falls Ihr es gebrauchen könnt, gebrauchen, und zwar kostenlos natürlich.
Für meinen Freund Holger, der sich hier als eine Art Sittenwächter dieses Forums aufführt, aber gilt: Die Nutzungsgebühr beträgt 19,99 € ! Denn dies ist hier ja kein Forum, wo man für lau Software programmiert bekommt!
|