Hallo,
ich wollte fragen, ob ihr mir bei einem Problem helfen könnt.
Ich habs mit Excel-Formeln versucht, aber das ist ein riesen Aufwand, da muss ich 177x3 Formeln einzeln per Hand anpassen.
Muster-Datei habe ich angehängt:
https://www.herber.de/bbs/user/97979.xlsm
Im Sheet Karten werden etwa 177 Karten verwaltet, die an Mitarbeiter ausgegeben werden.
Der Name des Mitarbeiters (Spalten B,E,H,…), das Datum der Ausgabe (Spalten A,D,G,…) und das Datum der Bearbeitung bzw. Rückgabe (Spalten C, F, I,…) werden von mir entsprechend eingetragen. Karten können zurückgegeben oder auch von demselben Mitarbeiter nur als abgearbeitet eingetragen und dann wieder bearbeitet werden.
Die "1", die da noch eingetragen ist, hat für die Abfrage keine Bewantnis und kann ignoriert werden.
Im Sheet Auswertung sollen jetzt für jede Karte die jeweils letzten Einträge aus dem Sheet Karten jeder Karte übernommen werden.
Kurze Erklärung anhand der Karte Nr. 1:
Im Sheet Auswertung soll dann in B4 der letzte Name aus Sheet Karten Spalte B eingetragen werden (in dem Fall wäre es aus B8 „Peter Meier“), in C4 soll das letzte ausgegebene Datum aus Sheet Karten Spalte A eingetragen werden (in dem Fall wäre es aus A9 „01.04.2015“), in D4 soll das letzte bearbeitete Datum aus Sheet Karten Spalte A eingetragen werden (in dem Fall wäre es aus C9 „15.04.2015“), in diesem Fall ist die Karte dann nicht ausgegeben und in E4 würde „Nein“ stehen.
Und jetzt das Ganze bis Karte 177.
Habt ihr da eine Lösung für mich mit VBA?
Spalte E wäre eine Auswertung, wenn letzter Wert z.B. vom Sheet Karten Spalte A und C in derselben Zeile sind, dann würde da „Nein“ stehen, ansonsten steht dann „Ja“.
Wäre super, wenn ihr mir helfen könnt, ein bißchen kenn ich mich mit VBA aus, z.B. die Abfrage nach der letzten Zeile und dessen Wert krieg ich hin, nur bei Schleifen-Anweisungen da hab ich meine Probleme.
Ich hoffe, ich habs verständlich erklärt, wenn nicht, dann fragt einfach nach.
Vielen Dank schon mal vorab.