Aus 2 Tabellen mit unterschiedlichen Werten eine erstellen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2000] Aus 2 Tabellen mit unterschiedlichen Werten eine erstellen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

stahl
Newbie
Newbie

Anmeldedatum: 17.12.2007
Beiträge: 8

Verfasst am: 17.12.2007, 17:16

Hallo,

habe folgendes Problem:

Ich möchte aus 2 Tabellen eine Tabelle machen, wobei Tabelle B in Tabelle A eingefügt werden soll. Allerdings hat Tabelle B weniger Zeilen, da einige Werte doppelt sind. Diese sollen aber den richtigen Vorlagewerten aus Tabelle A zugeordnet werden. Ich habe das alles einmal manuell gemacht, siehe Anhang Tabelle C.

Nun meine Frage: Gibt es eine Möglichkeit, dass über Funktionen zu machen, z.B. Verweis Funktionen. Habe da schon alles probiert, bekomme es aber einfach nicht hin.

Bitte helft mir, muss insgesamt über 1000 solcher Tabellen zusammenfügen.

MfG

Jost

Vergleich_Q3-Q2.xls

Beschreibung:

Download

Dateiname:

Vergleich_Q3-Q2.xls

Dateigröße:

26.5 KB

Heruntergeladen:

53 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 17.12.2007, 19:07

Hallo!

Formeln sind für deinen Fall vielleicht etwas ungeeignet, da du ja in zwei unterschiedliche Richtungen suchen musst:
Einmal von Tabelle A in Tabelle B und einmal von Tabelle B in Tabelle A.
Daher bietet sich wohl eher eine Makro-Lösung für deinen Zweck an.
Dieser Code erstellt aus "Tabelle A" und "Tabelle B" ein neues Blatt "Kombi", in dem die gewünschte Verknüpfung erstellt wird:

Code:

Sub Kombi()
Dim i As Long, z As Range
Dim B As Worksheet
With ActiveWorkbook
Set B = .Sheets("Tabelle B")
.Sheets("Tabelle A").Copy Before:=.Sheets(1)
With .ActiveSheet
B.Range("A1:G1").Copy .Range("F1")
For i = 2 To .UsedRange.Rows.Count
Set z = B.Columns(1).Find(.Cells(i, 2))
If Not z Is Nothing Then B.Range(B.Cells(z.Row, 1), B.Cells(z.Row, 7)).Copy .Cells(i, 6)
Next i
For i = 2 To B.UsedRange.Rows.Count
Set z = .Columns(2).Find(B.Cells(i, 1))
If z Is Nothing Then B.Range(B.Cells(i, 1), B.Cells(i, 7)).Copy .Cells(.UsedRange.Rows.Count + 1, 6)
Next i
.Columns.AutoFit
.Name = "Kombi"
End With
End With
End Sub

Dafür müssen natürlich alle deine Dateien so aufgebaut sein wie deine Beispieldatei.

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

stahl
Newbie
Newbie

Anmeldedatum: 17.12.2007
Beiträge: 8

Verfasst am: 17.12.2007, 19:42

Vielen Dank! Habe mir fast gedacht, dass man das mit Formeln nicht hinbekommt. Muss aber gestehen, dass ich lediglich Makros aufnehmen kann, selber programmieren habe ich noch nie gemacht. Wie sollte man das am besten lernen?

Dein Makro werde ich morgen direkt mal probieren. Melde mich dann noch einmal! Vielen Dank noch mal!

Gruß, Jost.

stahl
Newbie
Newbie

Anmeldedatum: 17.12.2007
Beiträge: 8

Verfasst am: 18.12.2007, 17:39

Vielen, vielen Dank noch einmal, hat alles bestens geklappt! Wo kann man sich so ein umfassendes Wissen zu Excel aneignen?

MfG

Jost

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Seriendruckfelder mit unterschiedlich...	Gl05e	Microsoft Word Hilfe	1	08.01.2009, 06:32
	Hallo Leute, eine Formel für Prozente	willi1412	Microsoft Excel Hilfe	2	07.01.2009, 11:56
	Excel 2003 eine Zelle keine Berechnung	Schiffhexler	Microsoft Excel Hilfe	5	06.01.2009, 14:02
	(Exel 2003) 2 Tabellen vergleichen un...	michael62	Microsoft Excel Hilfe	5	04.01.2009, 12:08
	benötige nochmal eine Formel !!	smart-jr	Microsoft Excel Hilfe	4	03.01.2009, 23:26

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de