in der angehängten Datei habe ich eine reale Situation vereinfacht "nachgebaut":
Ein "Administrator" verteilt Geld an 3 Personen P1 bis P3.
Dieses Geld schreibt er im Blatt "Verteilung" ein.
Was ich erreichen möchte:
sobald er eine Operation erfasst, soll sie, möglichst chronologisch (ich habe im Blatt "Verteilung" die Datums durcheinandergebracht) in das Blatt der betreffenden Person kopiert werden, so wie ich es manuell getan habe.
Mit freundlichen Grüßen
hier die Beispieldatei zurück. Würde mich freuen wenn die Lösung so perfekt ist ....
Es gibt eine Prüfung gegen versehentliche Doppeleingaben! Geprüft wird aber NUR die letzte Eingabe!
Hallo Gast,
vielen Dank, es funktioniert perfekt.
Meine Herausforderung ist jetzt, den Code so weit zu verstehen, dass ich ihn an meine reale Situation anpassen kann, in der die Daten in anderen Zeilen und Spalten eingegeben und kopiert werden. Ich bedaure, mein Beispiel nicht dementsprechend aufgebaut zu haben.
Ich werde mich mal an die Arbeit machen.
Einen schönen Abend
Alooha
der Code ist sehr simpel, aber du musst dazu die Funktion von "Blatt.Cells(lz1, 1)" verstehen. Ich erklaere es dir!
Bei Cells gilt Cells(z, s), dabei ist z=Zeile und s=Spalte als Zahlenangabe! Die Spalte kann auch als Buchstabe angegeben werden Cells(100, "AB").
Das entspricht der Zelle: Range("AB100"). Die Variable ist die LastZell in Spalte A, durch End(xlUp) von unten gesucht. Ich hoffe es hilft dir den Code zu versehen und ihn selbst anzupassen.
Im Zweifelsfall mit einem Test Makro s. unten prüfen wo der Cursor stehen bleibt. So versteht man's am schnellsten.
mfg Gast 123
Code:
Sub test()
Dim z As Long, sp As Variant
z = 10 'Zeile 10
sp = 3 'Spalte 3 = C oder "C" angeben
Cells(z, sp).Select
End Sub
09.12.2019, 13:23 (Dieser Beitrag wurde zuletzt bearbeitet: 09.12.2019, 13:24 von Alooha.)
Hallo,
dass du den Code als sehr simpel bezeichnest, beweist dass du ein Experte in VBA bist!
Es ist nämlich nicht nur die Sache mit Cells die ich nicht verstehe.
Ich verstehe u.a. auch nicht, was Target darstellt, da ich nicht erkenne, mit welchem Bereich das verknüpft ist.
Ich stelle fest, dass ich mich, als ich die Beispieldatei erstellt habe, etwas zu weit von der realen Situation entfernt habe (andere Bereiche). Falls ich die selben Bereiche benutzt hätte bräuchte ich den Code jetzt nicht anzupassen, aber ich hatte gehofft, ihn besser zu verstehen, in dem Sinn dass Bereiche definiert wären, die ich nur zu ändern bräuchte.
Außerdem sollte die Beispieldatei eine erste Etappe von zwei (hatte ich leider nicht erwähnt) darstellen, wobei die zweite im Kopieren der Ausgaben der einzelnen Personen in ein gemeinsames Blatt besteht.
Ich habe jetzt die reale Datei genommen, und sie anonymisiert.
Da ich einige Kleinigkeiten geändert habe im Vergleich zur Originaldatei, habe ich die Datei an die Verantwortliche geschickt zwecks Begutachtung. Ich warte auf ihre Antwort und lade sie dann, falls du gewillt bist, weiterzumachen, hier hoch.
es freut mich, dass du dir Sorgen darum machst!
Ich habe sie erst am Donnerstag gesehen und tanze auch mal wieder auf mehreren Hochzeiten.
Ausserdem habe ich weiter an der Datei gearbeitet.
Ich werde sie bald posten und danke dir schon jetzt für das das du zum Projekt beitragen wirst.
MfG
Alooha
