Tabellen vergleichen mit makro

[dbmtrde]

Hallo Zusammen,

ich versuche ein Excel Tabelle mit mehreren Daten zu filtern aber irgendwie bekomme ich nicht das gewünschte Ergebnis.

Meine Tabelle sieht wie Folgt aus;
A1, B1, C1 sind Titel
Column:"A2:A2000" -> Alle Daten
Column:"B2:B2000" -> Gesuchte Daten (Soll in spalte "A2:A2000" gesucht werden)
Column:"C2:C2000" -> Ergebnis (Wenn eine oder mehrere Daten aus Range "B2:B2000" in Spalte Range "A2:A2000" übereinstimmen dann sollen hier gelistet werden)

Ich habe bereits das Folgende Code block verwendet aber es macht nicht anderes alles von Spalte A nach C zu kopieren...

Code: [Auswählen]

Sheets("Tabelle2").Range("A2:A2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Tabelle2.Range("B2:B2000"), CopyToRange:=Range("C2:C2000")
Es wäre Sehr nett wenn jemand weiterhelfen könnte.

Vielen Dank vorab!
V.G.

[gmg-cc]

Moin V.G.
ohne eine kleine Muster-xlsx wird das wahrscheinlich wieder ein unnützes Hin und her, weil in Natura irgend etwas anders ist als in der Vorstellung des Helfers.

Und warum muss es VBA sein? Das sollte auch ohne Programmierung gehen ...

[dbmtrde]

Moin V.G.
ohne eine kleine Muster-xlsx wird das wahrscheinlich wieder ein unnützes Hin und her, weil in Natura irgend etwas anders ist als in der Vorstellung des Helfers.

Und warum muss es VBA sein? Das sollte auch ohne Programmierung gehen ...

Hi Danke für die Interesse.

hier habe ich ein Excel Tabelle mit beispiel Daten vorbereitet. VBA wäre super aber wenns überhaupt nicht geht dann wäre ich auch mit alternativ Lösung happy

ich hoffe kannst damit irgendwie anfangen.

[gmg-cc]

Moin,
erstelle aus den  Spalten eine Intelligente Tabelle (Strg-T) und schreibe in C2 diese Formel:

Code: [Auswählen]

=WENN(ZÄHLENWENN([Report];[Server mit Backup System]);[@[Server mit Backup System]];"")

[steve1da]

Hola,

zur Info...

https://www.ms-office-forum.net/forum/showthread.php?t=356731

Gruß,
steve1da

[dbmtrde]

Moin,
erstelle aus den  Spalten eine Intelligente Tabelle (Strg-T) und schreibe in C2 diese Formel:

Code: [Auswählen]

=WENN(ZÄHLENWENN([Report];[Server mit Backup System]);[@[Server mit Backup System]];"")

Hi,
es hat gut funktioniert, vielen Dank. Kann mann es vielleicht auf Makro umwandeln ?

[gmg-cc]

Doch, das geht gewiss ...
ABER: 1. sehe ich darin keinen tieferen Sinn, denn die Formel ergänzt sich bei einer Intelligenten Tabelle automatisch und 2. Da ich mit Crossposting ohne Querverweis ein richtiges Problem habe, gehe ich auf die Frage nicht weiter ein.