Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2024 10:57:38
vba gleiche Werte zählen/auflisten/popup
20.05.2024 07:58:34
Wie Formelberechnung trotz Blattschutz
19.05.2024 19:56:55
Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen
19.05.2024 19:42:43
zeilen löschen wenn
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1968to1972
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1968to1972
1968to1972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA zur Suche von "x" in gesamter Tabelle mit Ausgabe

VBA zur Suche von "x" in gesamter Tabelle mit Ausgabe
15.03.2024 10:24:23
Tom
Hallo zusammen,

ich habe folgende Anforderung/Problematik.
Mittels VBA möchte erreichen, dass in jedem Register der Tabelle (Anzahl Register ist dynamisch) in der Spalte A nach "x" gesucht wird. Sollte das "x" gefunden werden soll er mir den Inhalt der Spalte B ausgeben und in das Register mit der Bezeichnung Ausgabe z. B. in Zelle B2 schreiben.

Sollte es einmal vorkommen, dass mehr als nur ein "x" gefunden wird, sollen die Ergebnisse in B3, B4, B5 (natürlich im Register "Ausgabe" usw. geschrieben werden.

Falls Ihr Screenshots meiner Datei braucht gebt mir bitte Bescheid, ich hoffe ich konnte mein Problem halbwegs verständlich kommunizieren :/.

Vielen Dank vorab und viele Grüße
Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA zur Suche von "x" in gesamter Tabelle mit Ausgabe
15.03.2024 10:48:09
Beverly
Hi Tom, 

Sub Zellinhalt_suchen()

    Dim rngZelle As Range

    Dim strStart As String

    Dim lngTab As Long

    Dim lngZiel As Long

    lngZiel = 2

    For lngTab = 1 To Worksheets.Count

        If Worksheets(lngTab).Name > "Ausgabe" Then

            Set rngZelle = Worksheets(lngTab).Columns(1).Find(What:="x", LookIn:=xlFormulas, _

                LookAt:=xlWhole)

            If Not rngZelle Is Nothing Then

                strStart = rngZelle.Address

                Do

                    Worksheets("Ausgabe").Cells(lngZiel, 2) = rngZelle.Offset(0, 1)

                    lngZiel = lngZiel + 1

                    Set rngZelle = Worksheets(lngTab).Columns(1).FindNext(rngZelle)

                Loop While rngZelle.Address > strStart

            End If

        End If

    Next lngTab

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: VBA zur Suche von "x" in gesamter Tabelle mit Ausgabe
15.03.2024 10:51:37
Tom
Hi Karin,

du bist ja der Wahnsinn, funktioniert 1A vielen dafür!!

Schönes WE, Grüße
Tom

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige