2Tabellen zusammenfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
statt die Tabelle 1 zu ergänzen könntest du zum Beispiel eine dritte, gleich aufgebaute Tabelle mit SVERWEISen nach folgendem Muster erzeugen:

	A	B	C
1	Tabelle 1:
2	3	ja
3	2	nein	nein
4	1		ja
5	Tabelle 2:
6	2
7	3		nein
8	1	ja
9	Neue Tabelle:
10	1	ja	ja
11	2	nein	nein
12	3	ja	nein

Formeln der Tabelle

B10 : =WENN(SVERWEIS($A10;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A10;$A$6:$C$8;SPALTE();0);SVERWEIS($A10;$A$2:$C$4;SPALTE();0))
C10 : =WENN(SVERWEIS($A10;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A10;$A$6:$C$8;SPALTE();0);SVERWEIS($A10;$A$2:$C$4;SPALTE();0))
B11 : =WENN(SVERWEIS($A11;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A11;$A$6:$C$8;SPALTE();0);SVERWEIS($A11;$A$2:$C$4;SPALTE();0))
C11 : =WENN(SVERWEIS($A11;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A11;$A$6:$C$8;SPALTE();0);SVERWEIS($A11;$A$2:$C$4;SPALTE();0))
B12 : =WENN(SVERWEIS($A12;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A12;$A$6:$C$8;SPALTE();0);SVERWEIS($A12;$A$2:$C$4;SPALTE();0))
C12 : =WENN(SVERWEIS($A12;$A$2:$C$4;SPALTE();0)="";SVERWEIS($A12;$A$6:$C$8;SPALTE();0);SVERWEIS($A12;$A$2:$C$4;SPALTE();0))

Gruß Ingolf

Hallo Andreas
probier mal das hier:
Kopier dir diesen Code in ein Modul in der entsprechenden Datei, Passe die Variable tab1 und tab2 an deine Tabellen an (weiß ja nicht wie die heißen als Beispiel mal Standardbenennung von Excel). Passe die Bereiche von i und j an (Hier macht das Makro das von der Zeile 2 bis 10) 2, weil du ja sicher eine Überschriftszeile hast bis: wie viele Zeilen deine Tabelle auch immer hat! Sortierung ist egal, aber die Bezeichnungen der Spalte 1 (muss in beiden Tabellen exakt übereinstimmen Fa. Flieder ist nicht Firma Flieder - nur als Beispiel):-)
Ich habe den Code jetzt mal auf die Spale B-C (Cells (x,2 und x,3)ausgelegt, wenn du mehr Spalten abgleichen möchtest, dann nur die letzte if - Schleife kopieren und unten anhängen z.B. cells(x,4)etc. prüfen.


Sub syncro()
tab1 = "tabelle1"
tab2 = "tabelle2"
For i = 2 To 10
For j = 2 To 10
If Sheets(tab1).Cells(i, 1) = Sheets(tab2).Cells(j, 1) Then
If Sheets(tab1).Cells(i, 2) = "" Then
Sheets(tab1).Cells(i, 2) = Sheets(tab2).Cells(j, 2)
End If
If Sheets(tab1).Cells(i, 3) = "" Then
Sheets(tab1).Cells(i, 3) = Sheets(tab2).Cells(j, 3)
End If
End If
Next j
Next i
End Sub

Wenn du probleme hast, einfach kurz melden
lg
Christian

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread