Nach Datum Suchen Zeilen kopieren

Hallöchen alle zusammen,
ich habe das Problem, dass ich gerne von einem bestehenden Tabellenblatt (Tabelle Zusammenfassung) bestimmte Zeilen auf eine andere Tabelle (Tabellenblatt Ergebnis) kopieren möchte.
Auf Tabelle (Zusammenfassung) steht ein Datum in Spalte E, nach dem zunächst im SUchkriterium 1 gesucht werden soll. Das Datum kommt mehrfach auch in dieser Spalte vor, so dass ich am Ende mehrere Datensätze zum betroffenen Datum kopiert haben will. EIn zweites Suchkriterium in Spalte F soll hierbei auch berücksichtigt werden, wenn dieses zutrifft (zb, die Werte Ja oder Nein).
DIe gefundenen Zeilen, die Kriterium 1 und 2 entsprechen, sollen dann in die Tabelle(Ergebnis) ab der Zelle G5 kopiert werden.
Ich habe hier verschiedene Lösungen gesehen, die mit Autofilter arbeiten. Allerdings benötige ich das ganze in VBA.
Hat einer von Euch vielleicht eine passende Lösung für mich? Vielen Dank für Eure Hilfe.
Grüße
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo

Option Explicit Sub Kopie() Dim LoLetzte1 As Long Dim LoLetzte2 As Long Dim LoI As Long With Worksheets("Ergebnis") LoLetzte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 End With With Worksheets("Zusammenfassung") LoLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 For LoI = 6 To LoLetzte1 If .Cells(LoI, 5) = CDate("02.01.2021") And UCase(.Cells(LoI, 6)) = "JA" Then .Range("D" & LoI & ":J" & LoI).Copy Worksheets("Ergebnis").Range("G" & LoLetzte2) LoLetzte2 = LoLetzte2 + 1 End If Next LoI End With End Sub

Sub Unit() Const dteS1 As Date = "01.01.2021" Const strS2 As String = "Ja" Dim Z As Long, rngValues As Range With Worksheets("Zusammenfassung") For Z = 6 To .Cells(Rows.Count, "E").End(xlUp).Row If .Cells(Z, "E") = dteS1 And UCase(.Cells(Z, "F")) = UCase(strS2) Then If rngValues Is Nothing Then Set rngValues = .Cells(Z, "D").Resize(1, 7) Else Set rngValues = Union(rngValues, .Cells(Z, "D").Resize(1, 7)) End If End If Next End With If Not rngValues Is Nothing Then With Worksheets("Ergebnis") .Cells(4, "G").CurrentRegion.Offset(1).ClearContents rngValues.Copy .Cells(5, "G").PasteSpecial xlPasteValues Application.CutCopyMode = False Set rngValues = Nothing .Activate End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Nach Datum Suchen Zeilen kopieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Datum Suchen Zeilen kopieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread