Daten von einem Blatt zum nächsten kopieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Daten von einem Blatt zum nächsten kopieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Kyoshiro
Newbie
Newbie

Anmeldedatum: 28.08.2008
Beiträge: 6

Verfasst am: 28.08.2008, 12:45

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 13:08

Hallo!

Teste doch mal, ob es so passt.

Mappe6.xls

Beschreibung:

Download

Dateiname:

Mappe6.xls

Dateigröße:

32.5 KB

Heruntergeladen:

30 mal

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Kyoshiro
Newbie
Newbie

Anmeldedatum: 28.08.2008
Beiträge: 6

Verfasst am: 28.08.2008, 13:16

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 :)

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 13:35

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?

Kyoshiro
Newbie
Newbie

Anmeldedatum: 28.08.2008
Beiträge: 6

Verfasst am: 28.08.2008, 13:49

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 ^^

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 13:56

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

Kyoshiro
Newbie
Newbie

Anmeldedatum: 28.08.2008
Beiträge: 6

Verfasst am: 28.08.2008, 14:07

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 28.08.2008, 14:12

Kyoshiro hat Folgendes geschrieben:

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

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

PeterHansFranz.xls

Beschreibung:

Download

Dateiname:

PeterHansFranz.xls

Dateigröße:

32.5 KB

Heruntergeladen:

21 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 14:15

Hallo!

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

Kyoshiro
Newbie
Newbie

Anmeldedatum: 28.08.2008
Beiträge: 6

Verfasst am: 28.08.2008, 14:27

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 28.08.2008, 14:39

Kyoshiro hat Folgendes geschrieben:

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.

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. Wink

Zitat:

Wie füge ich da jetzt noch weitere Werte und Namen hinzu? Wenn ich die einfach dazuschreibe gibts einen Fehler :)

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

PeterHansFranz2.xls

Beschreibung:

Download

Dateiname:

PeterHansFranz2.xls

Dateigröße:

34.5 KB

Heruntergeladen:

15 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 14:44

Zitat:

Riss im Raum-Zeit-Kontinuum oder so.

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

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 28.08.2008, 15:02

miriki hat Folgendes geschrieben:

Neue Werte im Sinne von weitere Spalten?

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

PeterHansFranz3.xls

Beschreibung:

Download

Dateiname:

PeterHansFranz3.xls

Dateigröße:

27.5 KB

Heruntergeladen:

17 mal

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 472
Wohnort: Kiel

Verfasst am: 28.08.2008, 15:05

schatzi hat Folgendes geschrieben:

Zitat:

Riss im Raum-Zeit-Kontinuum oder so.

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

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... Wink

Gruß, Michael

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 28.08.2008, 15:21

Zitat:

Andere Probleme vielleicht, aber nicht mehr dieses...

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Spaltenhöhen mit in anderes Tabellen...	TOMMY	Microsoft Excel Hilfe	2	03.01.2009, 21:12
	ich möchte in einem Arbeitsblatt Zell...	rolf3	Microsoft Excel Hilfe	1	02.01.2009, 21:54
	Kalendarfunktion: 2 Kalendar zu einem...	losmangas	Microsoft Outlook Hilfe	0	23.12.2008, 11:34
	Blatt geschützt Autofilter inaktiv	puffi	Microsoft Excel Hilfe	1	18.12.2008, 13:29
	VBA: Kopieren von Tabellenblättern in...	rene_koeln	Microsoft Excel Hilfe	15	15.12.2008, 15:01

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de