Zellsuche anhand von 3 Bedingungen

Hallo zusammen,
bin leider aktuell noch blutiger Anfänger in Sachen VBA und schreibe gerade an meinem ersten größeren Makro. Bisher hat mir das Forum hier (passiv) prima geholfen, habe sehr viele Ansätze für diverseste Problemstellungen gefunden, angepasst und verwendet, aber nun komme ich leider nicht weiter. Habe schon einiges versucht abzuwandeln, das funktionierte aber leider nicht, dazu fehlt mir definitiv noch das richtige Handwerkszeug ( =Wissen)....
Habe mal eine Datei hier angefügt, die komplett entfremdet ist, aber anhand derer man das gut veranschaulichen kann, was für den Teil des Makros fehlt.
https://www.herber.de/bbs/user/139568.xlsx
Ich möchte in einer Tabelle (hier "TabelleSLF") eine Zelle suchen anhand von 3 Bedingungen.
Wenn ich zum Beispiel eine Stadt mit erstem Buchstaben B und zweitem Buchstaben I haben möchte, soll das Makro die Spalte A nach dem Buchstaben "B", die Spalte B nach dem Buchstaben "I" und anschließend die Zeile 1 nach "Stadt" durchsuchen.
Das Makro soll also eine Zelle finden, auf die alle drei Bedingungen zutreffen und den darin enthaltenen Wert kopieren.
Hatte hierfür schon diverse Versionen von If-And-Then-Else etc ausprobiert, aber das wollte alles nicht so, wie ich das wollte... Ähnliche Makros, die ich zum Ansatz nehmen wollte, haben z.B. nur nach ganzen Spalten/Zeilen gesucht, u.a. auch mit weniger Bedingungen...
Den kopierten Wert soll das Makro auf einem zweiten Tabellenblatt "Ausgabe" in einer ähnlichen Tabelle (die auch schon andere Werte enthalten kann) richtig einsortieren, also auch hier muss sich das Makro Spalte A, Spalte B und Zeile 1 "ansehen". An der Stelle dürfte der Code ja nahezu gleich aufgebaut sein wie die vorangegangene Suche, nur eben mit anderem Folgebefehl zum Einfügen statt Kopieren...?
Hat hier evtl jemand schonmal ein derartiges Suchmakro mit drei Bedingungen zur Lokalisierung der Zelle geschrieben und könnte mir weiterhelfen?
Viele Grüße
Nephty

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub aaa() Dim i As Long Application.ScreenUpdating = False With Worksheets("Ausgabe") For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row Worksheets("TabelleSLF").Range("$A$1").AutoFilter Field:=1, Criteria1:=.Cells(i, "A") Worksheets("TabelleSLF").Range("$A$1").AutoFilter Field:=2, Criteria1:=.Cells(i, "B") If Worksheets("TabelleSLF").AutoFilter.Range.Columns(1) _ .SpecialCells(xlCellTypeVisible).Cells.Count = 2 Then With Worksheets("TabelleSLF").AutoFilter.Range .Offset(1).Resize(.Rows.Count - 1).Columns("C:E").Copy End With .Cells(i, "C").PasteSpecial Paste:=xlPasteValues End If Next i If Worksheets("TabelleSLF").AutoFilterMode Then Worksheets("TabelleSLF").AutoFilterMode = False End If End With Application.CutCopyMode = False End Sub

Ich würde wirklich gerne eine hintereinander geschaltete Suche ohne Schleife einbauen, da die Daten jedes Mal anders sortiert sein können und nicht in der Tabelle zusammenhängen. Es sind auch immer mal Daten dazwischen, die nicht kopiert werden sollen.
Es sind nur vereinzelte Daten/Zahlen (gehen wir mal hier im Beispiel von 3 aus) die übernommen werden sollen, das Makro müsste definitiv nicht 100 mal in Folge nach 3 Kriterien suchen.
Erster Teil-Code mit B, I und Stadt ab-arbeiten, dann der gleiche Code nochmal, nur setze ich statt B, I und Stadt dann eben z.B. A, R und Land als Kriterien ein. Dann das gleiche mit dem dritten Teil-Code. Damit wäre ich vollkommen zufrieden und das wäre in meinem Fall mEn auch am wenigsten fehleranfällig.
Die nachgelieferten Daten kommen immer als komplette Datei, nicht häppchenweise.
Gehen wir der Einfachheit halber mal davon aus, dass ich das folgendermaßen gestalte:
- Makro öffnet Auswahlfenster
- User soll den Pfad der Datei mit den nachgelieferten Zahlen/Daten auswählen
- Makro öffnet nachgelieferte Datei
- Makro kopiert das Tabellenblatt aus dieser nachgelieferten Datei in die Hauptdatei (gedacht als temporäres Tabellenblatt)
- Makro schließt die nachgelieferte Datei
- Makro sucht in kopiertem Tabellenblatt nach Zelle mit 3 Kriterien (1)
- Makro kopiert Wert (1)
- Makro sucht in Ziel-Tabellenblatt nach Zelle mit 3 Kriterien (1)
- Makro fügt Wert ein (1)
- Makro sucht in kopiertem Tabellenblatt nach Zelle mit 3 Kriterien (2)
- Makro kopiert Wert (2)
- Makro sucht in Ziel-Tabellenblatt nach Zelle mit 3 Kriterien (2)
- Makro fügt Wert ein (2)
- Makro sucht in kopiertem Tabellenblatt nach Zelle mit 3 Kriterien (3)
- Makro kopiert Wert (3)
- Makro sucht in Ziel-Tabellenblatt nach Zelle mit 3 Kriterien (3)
- Makro fügt Wert ein (3)
- Makro löscht temporäres, kopiertes Tabellenblatt mit nachgelieferten Daten
Mir fehlt nur der Ansatz für den Such/Kopier/Such/Einfüge-Code, um den es hier im Thread geht. Alles andere bekomm ich hin, da ich an anderer Stelle schonmal etwas ähnliches gebastelt habe.
Habe jetzt versucht, das möglichst gut und trotzdem übersichtlich darzustellen:
https://www.herber.de/bbs/user/139581.xls
Vielen Dank für Deine Mühe! Ich versuche schon, es so genau wie möglich zu beschreiben, aber ich bin eben absoluter Neuling und bitte daher um ein wenig Nachsicht, wenn etwas nicht direkt zu 100% genau beschrieben ist. :-)
Viele Grüße
Nephty

Beliebteste Forumthreads (12 Monate)

Zellsuche anhand von 3 Bedingungen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread