Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche und Kopiere einen Bereich

Forumthread: Suche und Kopiere einen Bereich

Suche und Kopiere einen Bereich
27.07.2024 09:34:16
Chris
Liebes VBAler,

ich möchte folgendes per VBA lösen:

Vorhanden sind drei Sheets.

In Sheet-1 stehen in einem variablen Range Datumsangaben untereinander ab Zeile 2. In Zeile 1 steht jeweils eine eine lfd. Nummer.
Excel soll in diesem Sheet sämtliche Datumsangaben mit dem jeweils aktuellem Datum (=heutiges Datum) vergleichen.

Wenn gefunden, dann soll der in der jeweiligen Zeile 1 stehenden String als weiteren Suchbegriff genutzt werden, bspw. der String "8."

Dieser Suchbegriff soll dann im Sheet-2, Spalte A gesucht werden.

Wenn gefunden, sollen die entsprechende Reihe der Spalte B,C,D kopiert und im Sheet-3 eingefügt werden.

Sämtliche Suchergebnisse im Sheet-3d sollen untereinander hineinkopiert werden.

Ich habe eine Beispiel-Mappe erstellt. Bestimmt ist es so einfacher. Meine VBA-Kenntnisse reichen dafür nicht aus.

Freue mich über Rückmeldung.

Vielen Dank.
Chris

https://www.herber.de/bbs/user/171294.xlsx
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche und Kopiere einen Bereich
27.07.2024 11:00:16
Eifeljoi 5
Hallo

Suchen tust du immer nur das heutige Datum sehe ich das richtig?
Dann das verglichen werden mit dem zweiten Register auch richtig?
Falls beides stimmt bezweifele ich das dein Wunschergebnis stimmt.
Außerdem warum muss es VBA sein??
Es würde genauso PQ tun.
AW: Suche und Kopiere einen Bereich
27.07.2024 11:09:45
Chris
Hallo,

das aktuelle Datum soll mit den Inhalten des ersten Blattes verglichen werden!
Wenn dort irgendwo das heutige Datum gefunden wird, soll der jeweilige Inhalt in Reihe 1, in der auch das aktuelle Datum gefunden wurde, als neuer Suchbegriff gelten.

Bsp. heutiges Datum, Sa 27.07.24, wird gefunden in Sheet 1, in den Spalten A, B und C. Nicht jedoch in Spalte D.
Da in A, B, C gefunden, gelten als neue Suchbegriffe die Inhalte aus Reihe 1 in Sheet1 , d. h. 1., 2., 3.
Diese drei Strings sollen dann im Sheet-2 gesucht werden und mit den dort rechts stehenden Inhalten in Sheet 3 untereinander kopiert werden.

Bitte VBA.

Vielen Grü0e
Chris
Anzeige
AW: Suche und Kopiere einen Bereich
27.07.2024 11:22:17
ralf_b
Alte Ergebnisse im Blatt 3 werden hier nicht gelöscht vor dem Ausfüllen, das kannst du noch einbinden falls benötigt. 




Sub listNames()



    Dim searchWs As Worksheet, searchWs2 As Worksheet, resultWs As Worksheet

    Dim searchrng As Range, rngfund As Range

    Dim arrfind, result

    Dim lrow&, i&, cnt&

    Dim searchval$



    searchval = Format(Date, "dd.mm.yy")

    Set searchWs = Worksheets("1-SucheDATUMhier")

    Set searchWs2 = Worksheets("2-Suche&KOPIEREhierHERAUS")

    Set resultWs = Worksheets("3-ERGEBNIS")

    



    Set searchrng = searchWs.UsedRange

    ReDim arrfind(1 To searchrng.Columns.Count)

     

    For i = 1 To searchrng.Columns.Count

        Set rngfund = searchrng.Columns(i).Find(What:=searchval, LookIn:=xlValues, lookat:=xlPart)

        If Not rngfund Is Nothing Then

            cnt = cnt + 1

            arrfind(cnt) = searchrng.Columns(i).Cells(1)

        End If

    Next

    ReDim Preserve arrfind(1 To cnt)

   

    If Not TypeName(arrfind) = "Empty" Then

       Application.ScreenUpdating = False

       lrow = resultWs.Cells(Rows.Count, 1).End(xlUp).Row

       cnt = 0

       

       For i = LBound(arrfind) To UBound(arrfind)

            result = Application.WorksheetFunction.Match(arrfind(i), searchWs2.UsedRange.Columns(1), 0)

            If IsNumeric(result) Then

                resultWs.Cells(lrow + cnt, 1).NumberFormat = "@"

                resultWs.Cells(lrow + cnt, 1).Resize(1, 4).Value = searchWs2.Cells(result, 1).Resize(1, 4).Value

                cnt = cnt + 1

            End If

       Next

       With resultWs.UsedRange

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

       End With

       Application.ScreenUpdating = True

    End If

    MsgBox "fertig"



End Sub
Anzeige
AW: Suche und Kopiere einen Bereich
27.07.2024 16:29:30
Chris
Hallo Ralf,

danke für das Makro - läuft super. Ich verstehe davon nur rudimentäre Dinge. Den Rest kann ich selbst anpassen.

Tolle Arbeit!

Gruß
Chris
AW: Suche und Kopiere einen Bereich
27.07.2024 17:11:53
schauan
Hallöchen,

warum steht (stand) die Frage denn dann noch auf offen?
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige