Office: Mehrere Werte suchen und ganze Zeilen ausgeben

Helfe beim Thema Mehrere Werte suchen und ganze Zeilen ausgeben in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, bin leider VBA Anfängerin und habe ein wahrscheinlich kleines Problem. Ich habe in Tabellenblatt Ausschleusen ab A2 mehrere Suchwerte... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Pucki, 21. November 2012.

Seite 1 von 2
  1. PUCKI
    Pucki

    Mehrere Werte suchen und ganze Zeilen ausgeben


    Hallo zusammen,

    bin leider VBA Anfängerin und habe ein wahrscheinlich kleines Problem.
    Ich habe in Tabellenblatt Ausschleusen ab A2 mehrere Suchwerte (variable Anzahl) untereinander stehen. Diese möchte ich gerne im Tabellenblatt Daten_Spät suchen (es können mehrere Ergebnisse vorhanden sein) und mir dann die ganze Zeile (oder mehrere) in Tabellenblatt Ausfälle ausgeben lassen.
    Mein Problem ist nun, dass ich den erste Suchwert finde und ihn mir auch ausgeben lassen kann aber wie mache ich mit den anderen Suchwerten weiter?
    Hier mal der angefangene Code der leider nur für einen Suchwert funktioniert:

    Sub FindenUndKopieren()
    Dim rng As Range
    Dim Suchwert As Long
    Dim sFirstAdress As String

    Sheets("Ausschleusen").Select

    Sheets("Ausschleusen").Select
    Suchwert = Range("A2").Value

    Set rng = Worksheets("Daten_Spät").Range("E:E").Find(Suchwert)

    If rng Is Nothing Then
    MsgBox "Wert " & Suchwert & " nicht gefunden!"
    Else

    sFirstAdress = rng.Address
    Do
    rng.EntireRow.Copy
    Worksheets("Ausfälle").Cells(Rows.Count, "A").End(xlUp) _
    .Offset(1, 0).PasteSpecial Paste:=xlPasteAll
    Set rng = Worksheets("Daten_Spät").Range("E:E").FindNext(rng)

    Loop While Not rng Is Nothing And rng.Address sFirstAdress

    End If

    End Sub

    Ich hoffe, dass ich mein Problem einigermaßen verständlich erklärt habe und das mir irgendjemand helfen kann. Habe auch hier schon in den Beiträgen gesucht jedoch bin ich zu keinem Ergebnis gekommen.

    Vielen Dank schon einmal!

    :)
     
    Pucki, 21. November 2012
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    warum nicht Autofilter?


    Mehrere Werte suchen und ganze Zeilen ausgeben grusz1.gif
     
    Hajo_Zi, 22. November 2012
    #2
  3. PUCKI
    Pucki
    Hallo Hajo,

    vielen Dank für die schnelle Antwort ich bin für jeden Lösungsweg offen.
    Aber angenommen ich habe 10 Suchwerte die in Zeile 2 bis 11 stehen wie geben ich die in den Autofilter? Mit VBA?

    Grüße
     
    Pucki, 22. November 2012
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Mehrere Werte suchen und ganze Zeilen ausgeben

    Du hast 10 Werte in einer Spalte?
    Wähle alle Auswählen im Dialog ab und wähle Deine 10 Werte.
     
    Hajo_Zi, 22. November 2012
    #4
  5. CHRIS-KAISER
    chris-kaiser
    Hallo Pucki,

    das wäre ganz einfach zu lösen...
    Wenn Du eine Demodatei mit dem gleichen Aufbau deines Orginales einstellst.(mit nicht sensiblen Dummydaten)

    Ich möchte nicht eine schon bestehende Arbeitsmappe neu erfinden.
     
    chris-kaiser, 22. November 2012
    #5
  6. PUCKI
    Pucki
    Ungefähr 10 Werte mal mehr mal weniger in Zeile 2 - 11 also untereinander. Und diese Werte müssen in einem anderen Tabellenblatt gefunden werden wo ca. 1000 Werte(Zeile) enthalten sind. Wenn ich also manuell das Häckchen setzen muss ist das ja nicht so komfortabel.
    Oder verstehe ich dich falsch?
     
    Pucki, 22. November 2012
    #6
  7. Hajo_Zi
    Hajo_Zi Erfahrener User
    benutze den Makrorecorder.
    With Worksheets("Tabelle2")
    ActiveSheet.Range("$A$1:$A$18").AutoFilter Field:=1, Criteria1:=Array( _
    .Range("A1"), .Range("A2"), .Range("A3"), .Range("A4"), .Range("A5"), .Range("A6")), Operator:= _
    xlFilterValues
    End With
     
    Hajo_Zi, 22. November 2012
    #7
  8. PUCKI
    Pucki

    Mehrere Werte suchen und ganze Zeilen ausgeben

    Hallo chris-kaiser,

    hab mal versucht eine Demo hochzuladen.
    Ich hoffe sie hilft.
     
    Pucki, 22. November 2012
    #8
  9. CHRIS-KAISER
    chris-kaiser
    Hi,

    Ich habe die Variante mit dem Spezialfilter genommen, passt es so?
    der Code kann von jedem Blatt ausgeführt werden.

    Code:
     
    chris-kaiser, 22. November 2012
    #9
  10. PUCKI
    Pucki
    Ich bin einfach nur begeistert :-)
    Funktioniert super gut!
    Vielen vielen Dank an euch beide mein Tag ist gerettet.
     
    Pucki, 22. November 2012
    #10
  11. WYATT
    Wyatt
    Hallo,

    genau dieses Makro brauche ich auch doch leider funktioniert es nicht. Leider kopiert es alle Fy Nummern und nicht nur diejenigen, die im Sheet ("Nummern") stehen.
    Hoffentlich zeigt mir jemand den Fehler ich kann ihn nicht finden!


    MfG

    Wyatt
     
    Wyatt, 26. Juli 2013
    #11
  12. MüCKE
    mücke
    Moin Wyatt,

    ... mit .rar Dateien kann hier wohl kaum einer was anfangen, .zip könnte da schon hilfreicher sein. *wink.gif*
     
    mücke, 28. Juli 2013
    #12
  13. OFFICEUSER
    OfficeUser Neuer User

    Mehrere Werte suchen und ganze Zeilen ausgeben

    Hallo Wyatt,

    so gehst du vor:

    Über deiner Tabelle erstellst du einen Kriterienbereich, in den die Fy-Nummern, nach denen gefiltert werden soll, eingetragen werden. Dann in der Leiste "Daten" auf "Erweitert" und die entsprechenden Bereiche in den Dialog eintragen.

    Abrufe

     ABCDEFG
    1ZieldateZielzeitFy-nummerTypeTeile NummerTeile CKMenge
    2  0009307108    
    3  0009307101    
    4  0009302643    
    5  0009301148    
    6  0009307058    
    7  0009307025    
    8       
    9       
    10       
    11ZieldateZielzeitFy-nummerTypeTeile NummerTeile CKMenge
    1520130724723000009307025LG-HND589 0267852570 029871
    1620130724723000009307025LG-HZL2941852570 029871
    4420130724924000009307058PTND568 024789852570 029871
    4520130724924000009307058LG-VND589 0267852570 029871
    575201307241040000009301148LG-HND589 0267852570 029871
    576201307241040000009301148LG-HND570 02987852570 029871
    577201307241040000009301148LG-HND589 0267852570 029871
    578201307241040000009301148LG-HND589 0267852570 029871
    579201307241040000009301148LG-HND589 0267852570 029871
    587201307241057000009307101PTND568 024789852570 029871
    588201307241057000009307101PTND589 0267852570 029871
    589201307241057000009307101PTND589 0267852570 029871
    590201307241057000009307101PTND568 024789852570 029871
    591201307241100000009302643LG-HND589 0267852570 029871
    592201307241100000009302643LG-HND589 0267852570 029871
    593201307241100000009302643LG-VND589 0267852570 029871
    594201307241100000009302643LG-VND589 0267852570 029871
    595201307241100000009302643LG-VND589 0267852570 029871
    596201307241100000009302643LG-VND589 0267852570 029871
    597201307241100000009302643LG-VND589 0267852570 029871
    598201307241100000009302643LG-VND589 0267852570 029871
    599201307241100000009302643LG-VZL2941852570 029872
    600201307241100000009302643LG-VND570 02987852570 029871
    634201307241120000009307108PTND589 0267852570 029871
    635201307241120000009307108PTND568 024789852570 029871
    636201307241120000009307108LG-HND589 0267852570 029871
    637201307241120000009307108LG-HND589 0267852570 029871
    Excel Tabellen im Web darstellen >>
     
    OfficeUser, 28. Juli 2013
    #13
  14. WYATT
    Wyatt
    Hallo Hasso,

    kaum macht man es richtig schon funktioniert es!

    Danke

    Wyatt
     
    Wyatt, 29. Juli 2013
    #14
  15. LEXI_82
    Lexi_82
    Hallo ich habe ein ganz ähnliches Problem nur leider helfen mir die beiden hier diskutierten Codes nicht so richtig weiter.

    Ich möchte ein Sheet nach einer Reihe von Begriffen durchsuchen und dann aber nur einzelne Zellen aus den Zeilen kopieren - danach die Liste mit weiteren Daten vervollständigen und erst dann weiter suchen.

    Ich habe das ganze mal etwas genauer im Ablaufplan beschrieben und meinen verzweifelten Versuch mit geschickt ... hoffentlich hat wer von euch eine Idee.

    Sorry, auf Grund der Größe musste ich es in zwei ZIP-Files packen ... einmal das Programm und einmal die Daten (Hintergrundinfo)

    Danke schon mal
     
    Lexi_82, 4. April 2020
    #15
Seite 1 von 2
Thema:

Mehrere Werte suchen und ganze Zeilen ausgeben

Die Seite wird geladen...

  1. Mehrere Werte suchen und ganze Zeilen ausgeben - Similar Threads - Werte Zeilen ausgeben

  2. Letzten Wert(Text!) einer Zeile ausgeben

    in Microsoft Excel Hilfe
    Letzten Wert(Text!) einer Zeile ausgeben: Hi, ich habe schon etliche Formeln zu dem Thema gefunden, aber leider funktioniert bei mir keine der bisherigen, wie sie soll und ich verstehe nicht, warum. Ich will eigentlich "nur" aus einem...

  3. Wert in Matrix suchen, Zeile ausgeben

    in Microsoft Excel Hilfe
    Wert in Matrix suchen, Zeile ausgeben: Hallo liebe Community, ich habe folgendes Problem. Für die Buchhaltung muss ich mittels Excel eine Importdatei bauen für unser ERP System. Soweit so gut, bei gewissen Zeilen möchte ich...

  4. 1Zeile() ausgeben wenn der Wert > 3 "ist.

    in Microsoft Excel Hilfe
    1Zeile() ausgeben wenn der Wert > 3 "ist.: Hallo ich suche nach einer Möglichkeit das mir die Zeile Ausgegeben wird, in welcher der erste Wert größer 3 ist. In K25 steht 4 ich würde gern als Ergebnis Zeile minus erster Eingabe Zeile...

  5. Nächst grösseren Wert in Tabelle nach Spalte suchen und Zeile ausgeben

    in Microsoft Excel Hilfe
    Nächst grösseren Wert in Tabelle nach Spalte suchen und Zeile ausgeben: Hallo... Ich möchte in meiner Tabelle auf dem Blatt "Projekt" in Zelle M8 den Querschnitt automatisch auswerten lassen. Aktuell steht folgende Formel darin:...

  6. Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben

    in Microsoft Excel Hilfe
    Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben: Hallo erstmal... "kurz" zu meiner Ausgangslage... ich habe in einem Exel Anwesenheits-Dokument ... für jedes Monat gibt es eine Registerkarte. in jeder Monatsregisterkarte ist eine Liste an Namen...

  7. Wert in Zeile suchen und gesamte Spalte ausgeben

    in Microsoft Excel Hilfe
    Wert in Zeile suchen und gesamte Spalte ausgeben: Hallo zusammen, ich möchte in einer bestimmten Zeile nach einem Wert suchen und die gesamte Spalte dann an anderer Stelle ausgeben. Ich benötige also aus einer ständig neu sortierten Tabelle...

  8. Inhalt einer Zelle mit Tabelle abgleichen, Wert aus gleicher Zeile ausgeben

    in Microsoft Excel Hilfe
    Inhalt einer Zelle mit Tabelle abgleichen, Wert aus gleicher Zeile ausgeben: Hallo, liebe Excel-Profis! Ich bin gerade etwas am verzweifeln. Folgendes Problem: Ich habe eine umfangreiche Tabelle, in der sich Angaben befinden (A2:A4), die ich mit historischen und modernen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Akzeptieren Weitere Informationen...
    Information ausblenden