Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle1 mit Daten aus Tabelle 2 ergänzen

Forumthread: Tabelle1 mit Daten aus Tabelle 2 ergänzen

Tabelle1 mit Daten aus Tabelle 2 ergänzen
24.01.2017 16:35:25
TGeneral

Hallo!
Ich möchte gerne per Macro die ID aus Tabelle 1 in Tabelle 2 suchen.
In Tabelle2 können auch mehrere Ergebnisse bei ID vorhanden sein. Daher wäre es super, wenn nur die zugehörigen Code zurückgegeben werden. Jedoch in der zum title passenden Spalte in Tabelle1.
Also zum Beispiel: Die ID "1" wurde in Tabelle2 3 mal gefunden. Mit den Titeln Apfel, Kugel und Würfel und deren zugehörigen Codes 123, 132 und 321. Diese Codes werden jetzt in Tabelle 1 in den entsprechenden Spalten Apfel, Kugel und Würfel eingetragen (in der Zeile der gesuchten ID natürlich)

Die Datei https://www.herber.de/bbs/user/110841.xlsm wurde aus Datenschutzgründen gelöscht


Ich wäre sehr dankbar wenn wir das irgendwie realisieren könnten :)
PS: Ich habe das Thema auch unter http://www.office-loesung.de/p/viewtopic.php?f=166&t=731444 gepostet.

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: können nicht alle zugeordnet werden
25.01.2017 09:54:51
TGeneral
@Michael vielen Dank, er läuft perfekt! Ich muss leider den Code anpassen können, da es sich ja hier nur um ein Beispiel handelt. Das ganze ist aber sehr komplex...könntest du mir bitte in ein paar Kommentaren erklären, wo ich meine Tabellen, Suchspalten und die Ergebnisspalte deklarieren kann? Vlt einfach direkt im Code mit den Spaltenbezeichnungen aus dem Beispiel. Dann kann ich das ganze anpassen.
Danke für deine Hilfe!
Anzeige
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
24.01.2017 19:49:11
onur
Das alles in ein MODUL:
Option Explicit
Public Const maxz = 100
Public Const maxs = 100
Public ID_Nr(maxz) As Long
Public Title(maxs) As String
Public Sub Suchen()
Dim z, s, n, nr, ID As Long
Dim AnzID, AnzTi As Integer
Dim TI As String
For z = 2 To maxz
If Tabelle1.Cells(z, 1) <> "" Then
ID_Nr(nr) = Tabelle1.Cells(z, 1).Value
nr = nr + 1
End If
Next z
AnzID = nr
nr = 0
For s = 4 To maxs
If Tabelle1.Cells(1, s) <> "" Then
Title(nr) = Tabelle1.Cells(1, s)
nr = nr + 1
End If
Next s
AnzTi = nr
For z = 2 To 1000
If Tabelle2.Cells(z, 2) <> "" Then
ID = Tabelle2.Cells(z, 2)
For n = 0 To AnzID - 1
If ID = ID_Nr(n) Then
For nr = 0 To AnzTi - 1
TI = Tabelle2.Cells(z, 3)
If TI = Title(nr) Then
Tabelle1.Cells(n + 2, 4 + nr) = Tabelle2.Cells(z, 4)
End If
Next nr
End If
Next n
End If
Next z
End Sub

Anzeige
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
25.01.2017 10:12:52
TGeneral
vielen Dank @onur! Auch hier ist es so, dass ich wissen müsste wo ich Suchspalten, Ergebnisspalten, Ausgabeort, Tabellen, usw. deklarieren kann. Ich muss den Code auf andere Tabellen anwenden und bräuchte bitte einen Kommentar zu Code um ihn adaptieren zu können.
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
25.01.2017 13:03:21
onur
Option Explicit
'Public im Modul, damit Du von überall aus darauf zugreifen kannst
Public Const maxz = 100' Maximale Anzahl Zeilen mit ID in Tabelle1
Public Const maxs = 100' Maximale Anzahl Spalten mit Title in Tabelle1
Public ID_Nr(maxz) As Long
' Hier werden später alle in Tabelle1 vorhandenen ID-Nr im Array gespeichert
Public Title(maxs) As String
' Hier werden später alle in Tabelle2 vorhandenen Title´s im Array gespeichert
Public Sub Suchen()'Name des Sub´s
Dim z, s, n, nr, ID As Long
Dim AnzID, AnzTi As Integer
Dim TI As String
'Lokale Variable, zum einmaligen Gebrauch
'    Speichern der in Tabelle1 vorhandenen ID-Nr
For z = 2 To maxz
If Tabelle1.Cells(z, 1) <> "" Then' Stoppe, sobald Zelle in Spalte 1 leer
ID_Nr(nr) = Tabelle1.Cells(z, 1).Value
nr = nr + 1
End If
Next z
AnzID = nr'Anzahl ID-Nr
nr = 0
'    Speichern der in Tabelle2 vorhandenen Title´s
For s = 4 To maxs
If Tabelle1.Cells(1, s) <> "" Then' Stoppe, sobald Zelle in Zeile 1 leer
Title(nr) = Tabelle1.Cells(1, s)
nr = nr + 1
End If
Next s
AnzTi = nr'Anzahl Title
For z = 2 To 1000
If Tabelle2.Cells(z, 2) <> "" Then'Nimm die ID-Nr in Tabelle2 Spalte2, bis Spalte  _
leer
ID = Tabelle2.Cells(z, 2)
For n = 0 To AnzID - 1
If ID = ID_Nr(n) Then
' Finde Index von ID-Nr (Position im Array - damit auch indirekt Pos. auf Tabelle1)
For nr = 0 To AnzTi - 1
TI = Tabelle2.Cells(z, 3)
If TI = Title(nr) Then
' Finde Index von Title (Position im Array - damit auch indirekt Pos. auf Tabelle1)
Tabelle1.Cells(n + 2, 4 + nr) = Tabelle2.Cells(z, 4)
' Kopiere Wert unter Code auf Tabelle2 in Tabelle 1
End If
Next nr
End If
Next n
End If
Next z
End Sub

Anzeige
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
25.01.2017 14:34:35
TGeneral
Perfekt!Viiiiiiiieeeeelen Dank!!!!!
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
25.01.2017 16:54:58
TGeneral
Darf ich
Public ID_Nr(maxz) As Long
auch als String definieren? Die ID in meiner Tabelle beginnt mit einem Buchstaben.
Ich habe das mal gemacht, der Code läuft auch, gibt aber keine Ergebnisse zurück...
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
25.01.2017 18:41:38
onur
Ja klar, dann schon.
Gruß
Onur
Anzeige
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
30.01.2017 12:14:49
TGeneral
Ich bekomme den Code leider nach meinen idividuellen Anpassungen nicht dazu mir die Ergebnisse auszugeben. Die Felder bleiben einfach leer. Wo liegt mein Fehler?
Ich habe die Arbeitsmappe mit Makro auf meine Dropbox gestellt, da hier nur bis 800kb erlaubt sind, diese aber 1,3 Mb hat.
https://www.dropbox.com/s/3m06hvyxo63d4od/Frage.xlsm?dl=0
Anzeige
AW: Tabelle1 mit Daten aus Tabelle 2 ergänzen
30.01.2017 17:16:13
onur
Hi,
Ändere ganz oben das
ID_Nr(nr) = Tabelle1.Cells(z, 1).Value
in
ID_Nr(nr) = Tabelle1.Cells(z, 1)
Da Du ja ID_Nr als string deklariert hast, kanst du keinen value nehmen.
Gruß
Onur

;

Forumthreads zu verwandten Themen

Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Anzeige
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
aut.Füllen von Felden mittels Referenztabellen
Felden

Hallo,
ich habe folgende Situation:
Ich habe zu einer Artikelnummer eine Kundenartikelnummer und einen Preis. Diese Daten habe ich in einer "Referenztabelle", d.h. in einem eigenen Excelfile.
Ich möchte nun bei der Erstellung von Rechnungen lediglich die Artikelnummer eingeben. Exce...
24.09.2008 08:04:00
Thread-ID: 1011910
2 Beiträge
Verknüpfung mit vorigem Tabellenblatt
reiner

Hallo Leute
einer Datei wird jeden Monat ein neues dem dann aktuellen Monat entsprechendes Tabellenblatt hinzugefügt. Zelle Q3 des aktuellen Tabellenblattes soll den in Zelle A3 enthaltenen Wert des Vormonats (voriges Tabellenblatt) als Verknüpfung übernehmen.
Die hierfür erforderliche...
30.09.2008 09:20:35
Thread-ID: 1013261
5 Beiträge
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Die ersten 5 Zeilen als fester Block
Markus

Hallo
Noch eine letzte Frage:
Wenn ich in einem Sheet die ersten 5 Zeilen mit Beschriftung und Datum habe sprich eine Bilanz.
Wie kann ich das bewerkstelligen, wenn die Bilanz oder die GuV Rechnung sich auf zwei Seiten verlängert, daß ich die ersten 5 Zeilen auch auf der zweiten Sei...
31.01.2009 01:17:00
Thread-ID: 1045564
2 Beiträge
Inhalte in Tabelle mit Makro löschen
Tom

Hallo Excel-Spezialisten,
ich benötige eure Hilfe.
Es geht um eine Tabelle, die die Zellen A5:E100 abdeckt. Es werden zeilenweise immer wieder neue Inhalte innerhalb dieser Tabelle neu eingefügt. Andere Inhalte sind aber "abgelaufen". Das "Ablaufdatum" ist älter als "Heute", daher solle...
19.03.2009 22:16:42
Thread-ID: 1061995
5 Beiträge
Zählenwenn mit Verknüpfung auf anderes Tabellenbl.
Udo

Hallo zusammen,
ich werde mal versuchen mein Problem so verständlich wie möglich zu beschreiben:
Im ersten Tabellenblatt einer Arbeitsmappe werden in den Zellen A1 bis A6 per Dropdownfeld Namen eingetragen, welche im 2. Tabellenblatt aufgeführt sind.
Hierbei sind die Namen im 2. Tab...
25.03.2009 20:54:55
Thread-ID: 1063976
6 Beiträge
Tabellenblätter mit Inhalt füllen
StefanS

Hallo zusammen,
ich komme einfach nicht weiter und mein Abgabetermin rückt immer näher - HILFE!
Ich möchte die Daten aus dem Tabellenblatt "Content" in Register übertragen.
Das Anlegen der Register_1 bis _n im Bezug auf die Werte in Spalte F funktioniert soweit schon.
Nun habe...
15.05.2009 08:14:00
Thread-ID: 1075298
9 Beiträge
Tabellenblätter mit gleichen Namen löschen
Thomas

Hallo liebe Gemeinde
Einen schönen Tag zusammen
Es geht einfach nicht weiter habe einen Knoten im Kopf.
Wäre nett wenn Ihr euch das Problem .mal anschaut.
Durch eine Routine wird das Tabellenblatt 1 Importiert.
Wenn der User es möchte kann er selbstverständlich immer wieder...
26.05.2009 12:36:29
Thread-ID: 1077360
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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