Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen von ca. 120 bestimmten Daten per VBA

Forumthread: Suchen von ca. 120 bestimmten Daten per VBA

Suchen von ca. 120 bestimmten Daten per VBA
27.10.2024 17:26:01
Keener
Einen schönen guten Abend ins Forum.

Habe vor ewigen Zeiten mal bischen VBA gemacht, aber leider viel Wissen verloren, da ich VB nie groß angewandt habe. Nun habe ich eine Frage, die mir evtl. das arbeiten etwas erleichtern soll.

Ich habe je nach Aufkommen bis zu rund 300 Datensätze, die den Bereich A2:K300 füllen. Die rund 300 können auch mal nur 150 oder 80 seine je nach Aufkommen.
In der Spalte H muss ich von diesen, bis zu 300 Begriffen, ca. 120 bestimmte selektieren falls diese vorhanden sind. Die Zeilen möchte ich dann markieren, oder in ein anderes Sheet reinkopieren.
Die Begriffe heissen z. B. B56N, Z87N, G20N usw. usw.
Ist sowas realisierbar für einen "NOOB"?

Würde mich über Antworten sehr freuen.

Gruß
Keener
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen von ca. 120 bestimmten Daten per VBA
27.10.2024 18:05:12
Onur
Poste doch mal eine Datei, wo man sieht, wie das ganze in echt aussieht - am besten mit Wunschergebnis.
AW: Suchen von ca. 120 bestimmten Daten per VBA
27.10.2024 22:37:01
Marc
NA ja du kannst ja einfach in der ersten Zeile den Spalten Begriffen zu ordnen und dann diese Zeile

unter Daten --> Filtern eine Filterfunktion hinzufügen, da selektierst du alle Daten die entsprechend Benannt sind und kopierst sie, und fügst wo auch immer wieder ein...

Anzeige
Dafür könntest du...
28.10.2024 08:30:27
Case
Moin, :-)

... auch Power Query nutzen. Eventuell auch schon gleich für den Datenimport - je nachdem woher die Daten kommen. ;-)
https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/

Beispieldatei ist immer hilfreich. ;-)

Servus
Case
Anzeige
AW: Suchen von ca. 120 bestimmten Daten per VBA
28.10.2024 10:40:42
daniel
Hi
das einfachste ist, du Listet die 120 Begriffe in einer seperaten Spalte (bsp in X:X)
dann erweiterst du deine Tabelle in Spalte L mit folgender Formel:
=ZählenWenn(X:X;H2)
dann kannst du einfach nach 1 und 0 mit dem Autofilter filtern

wenn du mit VBA arbeiten willst, würde ich die Formel so schreiben:
=Wenn(ZählenWenn(X:X;H2);1;"")
hat den Vorteil, dass die Zeilen jetzt mit Zahl und Text gefüllt, das macht es einfacher sie mit VBA zu greifen, ohne den Autofilter zu verwenden (der ist da manchmal etwas umständlich)
bspw mit: 
Intersect(Range("A:K"), Range("L:L").SpecialCells(xlcelltypeformulas, 1).EntireRow).Select


Gruß Daniel
Anzeige
AW: Suchen von ca. 120 bestimmten Daten per VBA
28.10.2024 11:41:25
Keener
Vorab schon mal an alle Beteiligten ein Dankeschön.

Werde das ganze mal testen und euch ein Feedback geben.
Bin aber auch noch jederzeit offen für weitere Vorschläge.

Danke !

Keener
AW: Suchen von ca. 120 bestimmten Daten per VBA
28.10.2024 12:47:22
Piet
Hallo

mit diesem kleinen Makro kannst du dir die Werte in eine beliebige Tabelle auflisten lassen.
Du musst nur bei Set Tb2 deinen Tabellennamen angeben. Der Suchlauf steht auf xlPart.
Wenn die Begriffe immer 1:1 in der Zelle stehen kannst du auch xlWhole verwenden.

mfg Piet 

Sub Werte_suchen()

Dim AC As Range, rfind As Range

Dim Tb2 As Worksheet, z, lz1 As Long

Set Tb2 = Worksheets("Tabelle2")  '** anüpassen

Tb2.Range("A1:A300").ClearContents

z = 1  '1.Zeile in Tabelle2

    lz1 = Cells(Rows.Count, 8).End(xlUp).Row

    For Each AC In Range("H2:H" & lz1)

        Set rfind = Range("A2:K300").Find(What:=AC, After:=[a1], LookIn:=xlFormulas, LookAt:= _

            xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

        If Not rfind Is Nothing Then

           Tb2.Cells(z, 2) = rfind.Value

           Tb2.Cells(z, 1) = z: z = z + 1

        End If

    Next AC

End Sub
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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