Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte in Array ablegen und für suche wieder aufrufen
#1
Hallo Zusammen /m/

Ist es möglich die Werte in einem Array nacheinander als Suchbegriffe zu nutzen?

Folgendes würde ich gerne umsetzen:

In einem Tabellenblatt sind die Suchbegriffe (Spalte A), die höchstwahrscheinlich in einem Array abgespeichert werden (habe noch nicht wirklich mit Arrays gearbeitet, deswegen bin ich mir nicht sicher ob die Vorgehensweise richtig ist, sorry)

Nun soll mit dem Array auf einem zweiten Blatt nach den Begriffen gesucht werden (Spalte A), die Zeilen in der sich der Suchbegriff befindet kopiert und in ein anderes Tabellenblatt eingefügt werden.
Und dies für alle Suchbegriffe.

Kann mir jemand einen Denkanstoss geben und sagen ob dies mit dem Array funktioniert?

LG Primo

P.S. Im Anhang ist eine Excel Liste die als Veranschaulichung dienen soll.


Angehängte Dateien
.xlsm   PB2.xlsm (Größe: 27,5 KB / Downloads: 3)
Antworten Top
#2
Da freut sich der Spezialfilter, dass er auch mal wieder zum Einsatz kommt:
Code:
Option Explicit

Sub test()

Worksheets("Daten_Hier_Rein").Range("A1").Resize(, 5).Value = Worksheets("Datenbank").Range("A1").Resize(, 5).Value
Worksheets("Suchbegriffe").Range("A1").Value = Worksheets("Datenbank").Range("A1").Value
   
Worksheets("Datenbank").Range("A1:E30").AdvancedFilter _
                                                   Action:=xlFilterCopy, _
                                                   CriteriaRange:=Worksheets("Suchbegriffe").Range("A1:A5"), _
                                                   CopyToRange:=Worksheets("Daten_Hier_Rein").Range("A1:E1"), _
                                                   Unique:=False
End Sub
Worksheet-Namen prüfen.

Listen bitte als xlsx einstellen - xlsm sind immer ein höheres Risiko und das enthaltene Makro ist für die Erläuterung irrelevant.
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipediadie Tafeln oder aktion-deutschland-hilft.de
[-] Folgende(r) 1 Nutzer sagt Danke an EarlFred für diesen Beitrag:
  • Primo Centurio
Antworten Top
#3
Danke, dir. Werde ich mir gleich mal anschauen  19

Und sorry wegen der Datei als .xlsm, hast natürlich recht und werde ich in Zukunft vermeiden.

Lg Primo
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste