Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 18:10:41
vba pdf
24.10.2025 17:27:23
Mit Makro eine pdf erstellen mit Namen aus einer Zelle
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Intelligente Tabelle - Vlookup

Forumthread: VBA - Intelligente Tabelle - Vlookup

VBA - Intelligente Tabelle - Vlookup
14.01.2023 00:44:36
Timonski
Hallo zusammen,..
Ich hab vor kurzem die "Intelligente Tabelle" für mich entdeckt... ABER...
jetzt hätte ich gern ein VBA Befehl mit Vlookup.... aber ich könnte mir vorstellen, dass es schöner / einfache sein könnte... also wie bei einer "normalen Tabelle"...
Normale Tabelle:

Sub NormaleTabelle()
Cells(5, 6) = Application.WorksheetFunction.VLookup(Cells(4, 6), Range("A2:C7"), 2, False)
End Sub
sowas könnte ich mir bei einer "intelligenten Tabelle" vorstellen... aber geht das überhaupt...

Sub IntelligenteTabelle()
Cells(5, 6) = Application.WorksheetFunction.VLookup(Cells(4, 6), TABNAME, SPALTENNAME, False)
End Sub
aber ich hab im ganzen Netz nichts gefunden :-(
und wenn es jemand weiß... das ist es dieses Forum :-)
Gruß
Timonski
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Intelligente Tabelle - Vlookup
14.01.2023 01:19:52
onur
Alles andere wäre noch komplizierter:
WorksheetFunction.VLookup(Cells(4, 6), Range("TABNAME"), 2, False)
AW: VBA - Intelligente Tabelle - Vlookup
14.01.2023 05:43:57
Luschi
Hallo Timonski,
das hier funktioniert auch: WorksheetFunction.VLookup(Cells(4, 6), [TABNAME], 2, False)
Gruß von Luschi
aus klein-Paris
AW: VBA - Intelligente Tabelle - Vlookup
14.01.2023 14:13:16
Timonski
Hallo
Herzlichen Dank für eure Antworten...
nur nochmal kurz zu der Spaltenzahl... könnte man die nicht über ein FINDEN / SUCHEN Funktion rausbekommen...
es geht darum, dass wenn ich die Spalten einmal tauschen will, dass die VBA Formeln immer noch funktionieren :-)
Danke nochmals
und ein schönes Wochenende
Timonski
Anzeige
AW: VBA - Intelligente Tabelle - Vlookup
14.01.2023 15:53:21
onur
Warst nicht DU es, der schrieb: "dass es schöner / einfache sein könnte... also wie bei einer "normalen Tabelle"." ?
AW: VBA - Intelligente Tabelle - Vlookup
15.01.2023 00:06:29
Yal
Hallo Timonski,
Du meinst vielleicht, die Rückgabespalte anhand der Spaltenüberschrift zu ermitteln?

Public Function meinVerweis (ZeilSchlüssel, TabName, SpaltSchlüssel)
With Range(TabName).Parent.ListObjects(TabName)
meinVerweis = WorksheetFunction.VLookup(ZeilSchlüssel, .DataBodyRange, .ListColumns(Spaltchlüssel).Index, False)
End With
End Function
(Ungetestet, weil am Handy editiert)
VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

vlookup in vba
Christoph

Hallo,
ich hoffe mir kann jemand weiterhelfen.
ich möchte in einem Makro nach einem Datensatz in einer geschlossenen xls. Datei suchen, ähnlich wie bei Sverweis in excel.
Sprich ich suche nach einer eindeutigen Nr. in Spalte A und möchte dann als String den Wert der Spalte B erhalte...
15.10.2008 20:00:00
Thread-ID: 1016669
10 Beiträge
Anzeige
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Autofilter über mehrere Tabellenblätter
Burk

Hallo,
ich habe mehre Blätter in einer Mappe mit jeweils einer großen Liste
Gibt es die Möglichkeit Datensätze mit einem bestimmten Feldeintrag über mehre Blätter hinweg gleichzeitig herauszufiltern, wie es der Autofilter mit einer Tabelle macht?
Vielleicht mit VBA?
Bin für alle...
02.07.2009 11:17:06
Thread-ID: 1085862
5 Beiträge
Summewenn über mehrere Werte
Jim

Hallo,
Ich bin neu hier :)
Sonntag Abend arbeiten zu müssen ist doch ziemlich anstregend, und ich komme einfach nicht weiter.
Es gibt 3 Spalten, eine mit Artikelnummern (A), eine mit Farben (B) und eine mit Mengen (C).
mit Hilfe von Summewenn bekomme ich in einer vierten Spalte...
15.11.2009 19:26:36
Thread-ID: 1117416
8 Beiträge
summe über mehrere Tabellenblätter
Volker

Hallo Liebe Excel- Gemeinde
In einem Forum habe ich mal eine Hinweis auf eine "Summen- Formel" gelesen, die aus einer Arbeitsmappe eine Summe aus allen Tabellenblätter dieser Mappe aus einer bestimmten Zelle zusammen bildet.
Also mein Problem ist
1. aus einer Arbeitsmappe immer die...
31.01.2010 13:23:17
Thread-ID: 1134569
6 Beiträge
Anzeige
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 11:54:52
Thread-ID: 1137344
2 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 12:57:50
Thread-ID: 1137372
4 Beiträge
SUmme über mehrere Tabellenblätter bilden
Wolf

Hallo, ich hatte schon mal diese Frage gestellt, aber mit der Antwort kam ich nicht richtig weiter (10.2.10).
Ich muss die Formel SUMMEWENN über mehrere Tabellenblätter anwenden. Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine auf einem eigenen Tabellenblatt selbst...
24.02.2010 12:24:40
Thread-ID: 1141005
9 Beiträge
Anzeige
Indirekt über mehrere Tabellenblätter
Jessica

Hallo,
ich habe ein Problem, für das ich bereits in einem älteren Thread eine Lösung gefunden habe. Leider funktioniert das bei mir nicht! :-(
Ich habe 12 Sheets mit den Namen "Januar" bis "Dezember"
Auf dem Übersichtsblatt möchte ich in D2 den Monat eingeben, z.B. März und dann sol...
27.02.2010 08:14:02
Thread-ID: 1141906
2 Beiträge
Anzeige
suche über mehrere Tabellenblätter
Stefan

Hallo zusammen,
ich weiß hier nicht mehr weiter. Ich will eine Tabelle mit mehreren Blättern auswerten. Die Blätter sind alle gleich aufgebaut. In den Spalten AF und AG stehen die Suchkriterien und in Spalte D steht der zugehörige Name. Nun soll die Auswertung folgendermassen ablaufen: Es...
10.03.2011 20:07:39
Thread-ID: 1205137
3 Beiträge
Übertragung Daten in mehrere Tabellenblätter
hubijuerg

Hallo,
könnt Ihr mir bei folgendem Problem helfen? Über ein Makro öffne ich für jede Vorgangsnummer mehrere, in der Benennung unterschiedliche Tabellenblätter (Vorgangsnummern). Die Tabellenblättern (Vorgangsnummer) durchsuchen das Tabellenblatt (Basisdaten) nach dem Suchbergiff "Arbeitsplä...
31.03.2011 11:36:25
Thread-ID: 1208444
6 Beiträge
Suche über mehrere Tabellenblätter erstrecken
Achim

Hallo Gemeinde des Wissens !
Folgendes Problem hat sich bei mir aufgetan.
Ein Suchbegriff, welcher über eine Textbox1 gestellt wird soll in mehreren Tabellenblättern in Splate A gesucht werden (4 Blätter).
Wenn die Zahl mit der der Textbox übereinstimmt, soll in der geeichen Zeile i...
30.06.2011 15:23:50
Thread-ID: 1220351
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA für intelligente Tabellen mit VLOOKUP

Schritt-für-Schritt-Anleitung

Um eine intelligente Tabelle in Excel mit VBA anzusprechen und den VLOOKUP-Befehl zu verwenden, folge diesen Schritten:

  1. Intelligente Tabelle erstellen: Zunächst musst du eine intelligente Tabelle in Excel erstellen. Wähle die gewünschten Daten aus und gehe zu Einfügen > Tabelle. Stelle sicher, dass die Option „Meine Tabelle hat Überschriften“ aktiviert ist.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Modul hinzufügen: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle Einfügen > Modul.

  4. Code eingeben: Füge den folgenden VBA-Code ein, um den VLOOKUP-Befehl für die intelligente Tabelle zu verwenden:

    Sub IntelligenteTabelle()
   Cells(5, 6) = Application.WorksheetFunction.VLookup(Cells(4, 6), [TABNAME], 2, False)
End Sub

    Ersetze TABNAME durch den Namen deiner intelligenten Tabelle.

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um den VLOOKUP-Befehl auszuführen.

Häufige Fehler und Lösungen

  1. Fehler beim Tabellennamen: Stelle sicher, dass der Name der intelligenten Tabelle korrekt und in eckigen Klammern angegeben ist. Beispiel: [Tabelle1].

  2. VLOOKUP gibt #N/A zurück: Der gesuchte Wert ist möglicherweise nicht in der ersten Spalte der angegebenen Tabelle. Überprüfe die Daten und stelle sicher, dass der Wert vorhanden ist.

  3. Dynamische Dropdown-Listen: Wenn du eine dynamische Dropdown-Liste über ein anderes Tabellenblatt erstellen möchtest, nutze den Namen der intelligenten Tabelle in der Datenvalidierung.

Alternative Methoden

  • XLOOKUP verwenden: Wenn du Excel 365 oder Excel 2019 verwendest, kannst du die XLOOKUP-Funktion verwenden, die flexibler als VLOOKUP ist. Beispiel:

    Cells(5, 6) = Application.WorksheetFunction.XLookup(Cells(4, 6), [TABNAME[SpaltenName]], [TABNAME[ErgebnisSpalte]])

  • SVERWEIS auf anderes Tabellenblatt: Du kannst den SVERWEIS-Befehl verwenden, um Daten aus einer intelligenten Tabelle auf einem anderen Tabellenblatt dynamisch abzurufen.

Praktische Beispiele

  1. VLOOKUP mit Spaltennamen: Wenn du den VLOOKUP-Befehl mit einem Spaltennamen verwenden möchtest, kannst du folgendes Beispiel verwenden:

    Public Function MeinVerweis(ZeilSchlüssel, TabName, SpaltSchlüssel)
   With Range(TabName).Parent.ListObjects(TabName)
       MeinVerweis = WorksheetFunction.VLookup(ZeilSchlüssel, .DataBodyRange, .ListColumns(SpaltSchlüssel).Index, False)
   End With
End Function

  2. Letzte Zeile ermitteln: Um die letzte Zeile einer intelligenten Tabelle zu ermitteln, kannst du den folgenden Code verwenden:

    Dim letzteZeile As Long
letzteZeile = Range("TABNAME").ListObject.ListRows.Count

Tipps für Profis

  • Intelligente Tabellen entfernen: Wenn du eine intelligente Tabelle entfernen möchtest, klicke mit der rechten Maustaste auf die Tabelle und wähle Tabelle löschen. Die Daten bleiben dabei erhalten.

  • VBA optimieren: Achte darauf, deine VBA-Codes zu optimieren, indem du Variablen verwendest und den Code modular gestaltest.

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen in deinen VBA-Code ein, um unerwartete Fehler elegant abzufangen.

FAQ: Häufige Fragen

1. Wie kann ich eine dynamische Dropdown-Liste in einer intelligenten Tabelle erstellen?
Nutze die Datenvalidierungsfunktion und wähle den Bereich der intelligenten Tabelle als Quelle für die Dropdown-Liste an.

2. Kann ich eine intelligente Tabelle auch löschen?
Ja, klicke mit der rechten Maustaste auf die Tabelle und wähle „Tabelle löschen“. Dabei bleiben die Daten in den Zellen erhalten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige