letzten 4 beschriebenen Zeilen kopieren

Forumthread: letzten 4 beschriebenen Zeilen kopieren

27.01.2020 10:27:15

Dennis

Mahlzeit Leute,
Ich brauch mal wieder Hilfe.
Ich möchte gerne aus einem Datenpool, in dem Zeilen mit Daten aus anderen Userformen eingefügt werden, mir nur die letzten 4 Zeilen auswählen und nach oben kopieren in den Bereich (Zeile 2-5).
Ich muss immer eine Übersicht über die letzten 24h aufstellen, was das ganze natürlich stark vereinfachen würde.
Falls das so nicht geht, das Datum steht in Spalte "B" und die Zeit in "C". Der Datenpool beginnt ab Zeile 30 und is open end.
Vielleicht kann mir da jemand unter die Arme Greifen... Häng schon das ganze WE dran, die letzten Zeilen zu ermitteln -.-

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wäre auch mit Formeln möglich ...

27.01.2020 10:43:01

neopa
AW: wäre auch mit Formeln möglich ...

27.01.2020 11:57:34

Dennis
erstell eine Kopie...

27.01.2020 12:07:36

Torsten
AW: erstell eine Kopie...

27.01.2020 12:37:07

Dennis
AW: erstell eine Kopie...

27.01.2020 12:55:05

Torsten
AW: erstell eine Kopie...

27.01.2020 13:08:53

Dennis
Bitte bitte,

27.01.2020 13:44:38

Torsten

AW: wäre auch mit Formeln möglich ...

27.01.2020 10:43:01

neopa

Hallo Dennis,
... da ich davon ausgehe, dass die Datumswerte in Spalte B immer "jünger" werden
in B2: =KGRÖSSTE(B$30:B$99999;ZEILE(B1))
und in C2: =INDEX(C:C;AGGREGAT(14;6;ZEILE(C$30:C$999999)/(C$30:C$999999&gt0);ZEILE(C1)))
und Formeln drei Zeilen nach unten kopieren.
Wenn die Datumswerte nicht wie angenommen gelistet sind, dann in B2 Formel analog zu C2.
Gruß Werner
.. , - ...

AW: wäre auch mit Formeln möglich ...

27.01.2020 11:57:34

Dennis

Hi Werner,
Ja das Datum wird natürlich immer "jünger". Die letzte Eingabe ist meist nicht älter wie 2 Stunden.
Die älte halt 24-48h wegen Wochenende. Daher würde ich halt die VBA MEthode bevorzugen.
letztezeile = ThisWorkbook.Sheets(Anlage1).Cells(Rows.Count, 1).End(xlUp).Row
so ermittel ich ja auch in anderen Dateien bereits mehrfach die letzte Zeile... und gehe dann bis dato immer eine Zeile runter um dort weiteren Daten einzufügen.
Jetzt müsste ich aber so die 2 Zellen darüber mit kopieren und per select oben einfügen.
Deine Formel habe ich ausprobiert... leider ohne erfolg.
Ich würde ja ne Testdatei hochladen, leider sind da sensible und vertrauliche Daten drauf =/

erstell eine Kopie...

27.01.2020 12:07:36

Torsten

...nur mit Beispieldaten

AW: erstell eine Kopie...

27.01.2020 12:55:05

Torsten

Hallo Dennis,
hier mal ein Beispiel fuer "Anlage1".
Bin davon ausgegangen, dass die komplette Zeile kopiert werden soll? Das Makro musst du in ein Modul kopieren und deiner Schaltflaeche zuweisen. Aber ich denke, dass weisst du.


Sub letzte_vier()
Dim letzte As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Anlage1")
letzte = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws
.Range(.Cells(letzte - 3, 1), .Cells(letzte, 115)).Copy
.Cells(2, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End With
End Sub

Gruss Torsten

AW: erstell eine Kopie...

27.01.2020 13:08:53

Dennis

Torsten.... Ich verneige mich vor dir!
Tausend Dank!!! Genau so wollte ich das... könnt dich knutschen!

Bitte bitte,

27.01.2020 13:44:38

Torsten

Beliebteste Forumthreads (12 Monate)

letzten 4 beschriebenen Zeilen kopieren

Forumthread: letzten 4 beschriebenen Zeilen kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread