Office: Daten von einem Blatt zum nächsten kopieren

Hallo,

ich benötige Hilfe bei einem Excel Dokument :) Es besteht aus mehreren Blättern.
Die Hauptseite umfasst eine Tabelle mit Daten, die Personen zugeordnet werden (ungefähr so)


Es gibt für jede Person ein eigenes Blatt. Wenn ich nun auf der Hauptseite die Werte eintrage bzw. ändere, möchte ich, dass die eingetragenen Werte automatisch auf dem entsprechenden Blatt eingetragen werden und dabei einen Datumstempel bekommen. So kann ich dann nachvollziehen, wie sich die Werte für eine Person über einen Zeitraum verändert haben. Soll ungefähr so aussehen:


Wenn ich nun also Morgen bei Peter was umschreibe (Hauptseite), dann soll er in einer neuen Zeile beginnen die Daten zu kopieren. Also direkt unter den alten und das Datum wieder rechts eintragen. Das ganze soll dann also wie ein Backup funktionieren.
So:


Nur, wie mache ich das? ^^ Kann mir da jemand helfen? :) Wäre super!

LG

Kyoshiro

 

Hallo!

Teste doch mal, ob es so passt.

 

Hey,

DANKE für die schnelle Antwort. Das ist auf jeden Fall schon mal ein großer Schritt in die richtige Richtung.
Zwei Sachen sind allerdings noch nicht so wie ich das gerne hätte :)
1. Wenn man mehrmals auf den Button klickt erstellt er immer wieder eine neue Zeile bei gleichem Datum. Ich hätte aber gerne immer nur einmal Daten pro Datum. Wenn sich da was ändert, soll er einfach die alten überschreiben.

2. Wenn man auf den Button neben Hans&Franz klickt kopiert er die Daten von Peter ^^ Ich schau mir den Code mal an

Ist es generell möglich ohne Button das ganze zu gestalten, also automatisch? Bzw. wenn nur einer, der dann direkt alles kopiert?

Danke, danke :)

 

Hallo!

1. Das müsstest du dann mit einer If-Abfrage abfangen.
2. Ja, stimmt. Da müsstest du jeweils die Zeilennummer anpassen:
Ziel.Offset(1, 0) = Cells(4, 2)
Ziel.Offset(1, 1) = Cells(4, 3)
Ziel.Offset(1, 2) = Cells(4, 4)

Bei nur einem Button stellt sich die Frage: Woher weiß der Button, ob er Peter, Hans oder Franz kopieren soll?

 

Ich habe mich schon an einer If-Abfrage versucht... Ein bisschen VB kann ich dann doch, aber hab mehr oder weniger "alles" vergessen. Da ist es super an deinem Code zu arbeiten :)
Wie mache ich den befehl, dass er eben genau das Datum abfragen soll?
Ich verstehe den "offset" kram noch nicht so ganz...
Also wenn du mir da einmal den If befehl sagst, dann sollte ich alleine weiterkommen :) Möchte ja auch gerne selbst etwas lernen und tun.

Ein einziger Button müsste wenn einfach alles kopieren. Das würde ich dann aber auch selbst hinbekommen ^^

 

Hallo!

"Ziel" ist die letzte beschriebene Zelle des jeweiligen Blatts in Spalte A, also ist Ziel.Offset(0, 3) die Zelle, die drei Spalten weiter rechts liegt, also die Datumszelle.
Daher müsste die If-Abfrage lauten:

If Date > Ziel.Offset(0, 3) Then

 

Code:

If Date > Ziel.Offset(0, 3) Then
Set Ziel = .Cells(Rows.Count, 1).End(xlUp)
Ziel.Offset(1, 0) = Cells(4, 2)
Ziel.Offset(1, 1) = Cells(4, 3)
Ziel.Offset(1, 2) = Cells(4, 4)
Ziel.Offset(1, 3) = Date

Das hab ich jetzt geschrieben... das heißt doch, wenn das heutige Datum größer ist als das Datum, das da schon steht, dann mache....
Wenn da aber schon der 28.08.2008 steht sollte er das doch NICHT machen, oder?
Leider macht er es irgendwie genau umgekehrt... wenn ich das ">" umdrehe, dann macht er den "Else" Befehl...

Hmm ich bin irgendwie verwirrt ^^

[edit]
Ich hab grad überprüft... was "Date" macht ist ja klar und "Ziel.Offset(0, 3)" liefert auch das richtige Datum (aber als "Zahl"). Trotzdem ist die Abfrage der Meinung, dass das heutige Datum größer ist als das heutige Datum oO

 

So:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim y1, x1 As Long
    Dim s As String
    Dim d As Date
    Dim y2 As Long

    y1 = Target.Row
    x1 = Target.Column

    If (x1 >= 2) And (x1 <4>= 4) Then

        s = Trim$(ActiveSheet.Cells(y1, 1).Value)
        d = Now()

        y2 = Worksheets(s).Cells(65536, 4).End(xlUp).Row + 1

        ActiveSheet.Range(ActiveSheet.Cells(y1, 2), ActiveSheet.Cells(y1, 4)).Copy
        Worksheets(s).Cells(y2, 1).PasteSpecial Paste:=xlPasteValues
        Worksheets(s).Cells(y2, 4).Value = d

    End If

End Sub

Gruß, Michael

 

Hallo!

@kyoshiro:
Vertausche mal die ersten beiden Zeilen!
So ist "Ziel" zum Zeitpunkt der If-Abfrage ja noch gar nicht definiert!

 

Ok, ich glaube wir arbeiten lieber mit Mirikis Version weiter... Da gibt es dann auch keinen Button.
Dankeschön an deine Hilfe Schatzi :)

@Michael
Kannst du das ändern, so dass es pro Tag nur einen Eintrag zulässt und nicht jede Änderung an einem Tag mit einer Uhrzeit versieht? Wenn sich da Daten ändern kann er die gerne überschreiben, wenn sie vom selben Tag sind.
Wie füge ich da jetzt noch weitere Werte und Namen hinzu? Wenn ich die einfach dazuschreibe gibts einen Fehler :)
Auch an dich: Dankeschön :D

 

Das ist kein Problem. Ich hab's mal so geändert, daß nur noch das Datum ohne Uhrzeit verwendet wird. Dann wird überprüft, ob das ein neuer Eintrag (neues Datum) wird, ob der letzte bestehende überschrieben werden soll (gleiches Datum) oder ob was merkwürdiges passiert ist, Riss im Raum-Zeit-Kontinuum oder so. ;-)

Neue Namen sind kein Problem, einfach Name in die Liste und das entsprechende Blatt erstellen. Dabei würde ich die Zeilen 1..4 aus einem bestehenden Blatt kopieren, damit es einen definierten Anfang gibt.

Neue Werte im Sinne von weitere Spalten? Etwas hakeliger, weil dazu ein paar Sachen im Source geändert werden müßten. Geht aber...

Gruß, Michael

 

Genau, dann kommen die Borg und assimilieren die Datei!!

 

Wenn ich nichts übersehen habe, müßte es so gehen wie im Anhang.

Der ganze Kram ist jetzt weitestgehend parametrisiert, Du mußt dann nur noch die const-Deklarationen am Anfang des Source anpassen.

Gruß, Michael

 

Wenn die Borg kämen, hätten Peter, Hans und Franz aber auch keine Probleme mehr mit irgendwelchen protokollierenden Einträgen. Andere Probleme vielleicht, aber nicht mehr dieses... ;-)

Gruß, Michael

 

Alles eine Frage der Prioritätensetzung...
Auch als Drohne hast du Termine!