Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle gefundenen Ergebnisse markieren/kopieren

Forumthread: Alle gefundenen Ergebnisse markieren/kopieren

Alle gefundenen Ergebnisse markieren/kopieren
17.02.2016 08:54:38
Juli
Hallo zusammen,
in der Excel Suche gibt es die Funktion "Alle suchen", um alle Suchergebnisse anzeigen zu lassen.
Gibt es eine Möglichkeit die Suchergebnisse zu markieren oder noch besser gleich in ein neues Tabellenblatt zu kopieren?
Danke schon mal für eure Hilfe

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle gefundenen Ergebnisse markieren/kopieren
17.02.2016 12:51:59
Juli
Hallo Bernd,
vielen Dank erstmal für deine schnelle Antwort. Die Suche funktioniert.
Gibt es noch eine Möglichkeit, wie die komplette Zeile des Suchergebnisses in ein neues Tabellenblatt kopieren kann?

Anzeige
AW: Alle gefundenen Ergebnisse markieren/kopieren
18.02.2016 07:26:26
Bernd
Hallo,
habe da auch etwas anderes gefunden, eventuell kannst Du für Dich es anpassen.
Hier mal die Datei welche ich auch hier mal bekommen habe:
https://www.herber.de/bbs/user/103664.xlsm
Zu beachten:
am Übersichtsblatt ist die erste Zeile geschützt, hat aber kein Passwort.
Wenn Du nun im Modul1 nach diesen teilen suchst:
Cells(i + 3, 2) = Sheets(i).Cells(2, 2).Value
Cells(i + 3, 3) = Sheets(i).Cells(2, 3).Value
Cells(i + 3, 4) = Sheets(i).Cells(2, 4).Value
Cells(i + 3, 7) = Sheets(i).Cells(2, 7).Value
Cells(i + 3, 20) = Sheets(i).Cells(2, 20).Value
kannst Du dementsprechend einzelne Zellen der Blätter ansprechen und nach vorne kopieren.
Musst halt selbst anpassen, ist nicht so schwierig habe es mit Buchstaben und Zahlen verdeutlicht.
Hoffe es hilft ein wenig und freue mich auf antwort,
mfg Bernd
Anzeige
;
Anzeige

Infobox / Tutorial

Alle gefundenen Ergebnisse in Excel markieren und kopieren

Schritt-für-Schritt-Anleitung

  1. Suchfunktion nutzen: Öffne Excel und gehe zu dem Blatt, in dem du nach bestimmten Daten suchen möchtest. Nutze die Funktion "Suchen" (Strg + F).
  2. Alle Ergebnisse anzeigen: Klicke auf "Alle suchen", um alle Suchergebnisse aufzulisten.
  3. Ergebnisse markieren: Um die gefundenen Ergebnisse zu markieren, kannst du die Liste der Suchergebnisse verwenden. Halte die Strg-Taste gedrückt und klicke auf jede Zeile, die du markieren möchtest.
  4. Kopieren der Ergebnisse: Nachdem du die gewünschten Zeilen markiert hast, drücke Strg + C, um die Daten zu kopieren.
  5. Neues Tabellenblatt erstellen: Klicke auf das "+"-Symbol unten links, um ein neues Tabellenblatt zu erstellen.
  6. Daten einfügen: Klicke in die erste Zelle des neuen Blattes und drücke Strg + V, um die kopierten Daten einzufügen.

Häufige Fehler und Lösungen

  • Fehler: Keine Ergebnisse gefunden
    Lösung: Stelle sicher, dass du das richtige Suchkriterium verwendest und die Groß- und Kleinschreibung beachtest.

  • Fehler: Daten lassen sich nicht kopieren
    Lösung: Überprüfe, ob die Zellen in den Suchergebnissen gesperrt sind. Du kannst die Blattschutz-Einstellungen anpassen.

Alternative Methoden

Es gibt auch andere Methoden, um die Suchergebnisse in Excel zu kopieren:

  • VBA-Makros: Wenn du regelmäßig Daten aus Suchergebnissen extrahieren möchtest, kannst du ein VBA-Makro erstellen, das diesen Vorgang automatisiert. Hier ist ein einfaches Beispiel:
Sub CopySearchResults()
    Dim cell As Range
    Dim ws As Worksheet
    Dim destSheet As Worksheet
    Set ws = ActiveSheet
    Set destSheet = Sheets.Add

    For Each cell In ws.UsedRange
        If cell.Value = "Suchkriterium" Then
            cell.EntireRow.Copy destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next cell
End Sub
  • Filterfunktion: Du kannst auch die Filterfunktion in Excel verwenden, um nur die relevanten Daten anzuzeigen und dann diese Zeilen zu kopieren.

Praktische Beispiele

  • Beispiel 1: Du suchst nach allen Verkäufen eines bestimmten Produkts in deiner Datenbank. Verwende die Suchfunktion, um alle Zeilen mit dem Produktnamen zu finden und kopiere sie in ein neues Blatt.

  • Beispiel 2: Wenn du ein großes Datenblatt hast und nur die Top-10-Verkäufer extrahieren möchtest, kannst du die Filterfunktion verwenden, um die obersten 10 Ergebnisse anzuzeigen und diese dann in ein neues Blatt kopieren.

Tipps für Profis

  • Nutze die Tastenkombinationen (Strg + C für kopieren, Strg + V für einfügen) für einen schnelleren Arbeitsablauf.
  • Überlege dir, VBA zu lernen, um komplexere Aufgaben zu automatisieren.
  • Halte deine Excel-Dateien gut organisiert, um die Suche und das Kopieren von Daten effizienter zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Suchkriterien gleichzeitig verwenden?
Du kannst die Funktion "Ersetzen" verwenden, um mehrere Begriffe in einem Durchgang zu suchen und zu ersetzen.

2. Was mache ich, wenn meine Daten geschützt sind?
Du musst den Blattschutz aufheben, um die Daten kopieren zu können. Achte darauf, dass du die Berechtigungen hast, um Änderungen vorzunehmen.

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