Zellen kopieren, am Ende einfügen
11.08.2005 09:38:42
Robert
ich benötige eure Hilfe bei einem kleinen Excel Makro...
folgende Ausgangssituation:
Zelle 1 | heute() | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Zusammenfassung
Zelle 3 | 10.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Zelle 4 | 11.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Zelle 5 | 12.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Ich setze die Werte 1 bis x jeden Tag, am Ende des Tages sollen diese Werte dann als eine Art Statistik aufgelistet werden, sortiert nach Datum, siehe oben. Am nächsten Tag beginnt das Spiel wieder von vorn.
Hab mir den Code schon soweit zusammengebaut, das er mir zwar die Werte kopiert, aber halt immer den zuletzt kopieren Datensatz ganz oben
Zelle 3 | 12.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Zelle 4 | 11.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
Zelle 5 | 10.08.05 | Wert 1 | Wert 2 | Wert 3 | ... | Summe
hier mal mein zusammengewürfelter Quellcode:
Private Sub CommandButton6_Click()
Range("B3:H3").Select
Selection.Copy
Range("B5:H5").Select
Selection.Insert
Selection.Interior.ColorIndex = xlNone
Range("C3:G3").Select
Selection.ClearContents
End Sub
Nun seit ihr drann :-))
Vielen Dank schon mal.
Gruss
Robert