2 Tabellen zusammenkopieren

[teemutainio]

Hallo zusammen,

Ich habe ein Problem mit anliegender Datei.
 
In Tabellenblatt 1 und 2 ist jeweils eine identisch aufgebaute Tabelle, wo in Spalte A entweder ja oder nein steht.
 
Tabellenblatt „Vergleich“ würde ich jetzt gerne so verformeln, dass wenn in Tabellenblatt 1 oder 2 in Spalte A ein „nein“ steht, die komplette Zeile ab Spalte C in das Tabellenblatt „Vergleich“ kopiert wird.
 
Habt ihr da eine Idee? Ich hoffe, ihr versteht mein Problem.
 
BG
Fabian

[Klaus-Dieter]

Hallo,

bringe beide Tabellen auf ein Blatt und filtere nach nein.

[teemutainio]

Hallo Klaus-Dieter,

das wäre meine Notlösung. Ich dachte nur, dass sich das auch vielleicht automatisieren lässt..

BG
Fabian

[Klaus-Dieter]

Hallo Fabian,

wozu automatisieren, wenn das ein einmaliger Vorgang ist?

[teemutainio]

Die Tabellen werden monatlich erneuert und miteinander verglichen.

Ziel wäre es, lediglich die Rohdaten upzudaten, dass die Excel die Berechnungen automatisch vornimmt und das neue Tabellenblatt automatisch erstellt.

[Klaus-Dieter]

Hallo,

wieso zwei Tabellen, gleichartige Daten gehören auf ein Tabellenblatt.

[Wastl]

Hi,

mit VBA wäre das eine Möglichkeit:

Sub teemutainio()
Tab1 = Tabelle1.UsedRange
Tab2 = Tabelle2.UsedRange
j = 2
For i = 1 To UBound(Tab1)
If Tab1(i, 1) = "nein" Then
    For k = 3 To 8
    Tabelle3.Cells(j, k - 2) = Tab1(i, k)
    Next k
    j = j + 1
End If
If Tab2(i, 1) = "nein" Then
    For k = 3 To 8
    Tabelle3.Cells(j, k - 2) = Tab2(i, k)
    Next k
    j = j + 1
End If
Next i
End Sub

[teemutainio]

Hallo Wastl,
 
das sieht vielversprechend aus. Ich versuche als VBA-Noob das Ganze gerade auf meine Originaldatei anzuwenden. Hierbei sind folgende Fragen aufgekommen:
 
j = 2 à Das steht für die Anzahl der Tabellen, die ich zusammenführen möchte, oder?
If Tab1(i, 1) = "nein" Then à Die 1 steht für die Spalte, in der sich die Bedingung befindet?
Tabelle1.Cells(j, k - 2) = Tab1(i, k) à Was sagt diese Zeile genau aus?
j = j + 1 à Same here, was sagt das genau aus?
 
BG & Danke,
Fabian

[Wastl]

Hi

j = 2 à Das steht für die Anzahl der Tabellen, die ich zusammenführen möchte, oder?

nein. Die j steht für die Zeile, die in Vergleich zu schreiben ist. ich muss beim schreiben immer eine jeweils eine Zeile nach unten rücken.

If Tab1(i, 1) = "nein" Then à Die 1 steht für die Spalte, in der sich die Bedingung befindet?

ja

Tabelle1.Cells(j, k - 2) = Tab1(i, k) à Was sagt diese Zeile genau aus?

Diese zeile haste nicht von mir, bei mir steht da "Tabelle3.Cells(j, k - 2) = Tab2(i, k)" und Tabelle3 = Vergleich deiner Beispielmappe
Ich habe drüber eine for next schleife, die mit 3 beginnt und mit 8 endet for k=3 to 8

• Tabelle3.Cells(j, k - 2)=Spalte A in Vergleich
  
• Tab1(i,k)=Spalte C in Tabelle1 (beim ersten Durchlauf der Schleife)
  

j = j + 1 à Same here, was sagt das genau aus?

hier wird die Ausgabezeile um 1 hochgezählt, damit sie leer ist für den nexten Treffer, siehe auch erstes Zitat

Ich fürchte, deine Beispieltabelle hat nicht - wie  zwingend gefordert - den selben Aufbau wie die Originaltabelle

[teemutainio]

Leider hast du Recht, das war mein Fehler.

Die Originaltabelle ist aufgebaut wie anbei.

BG
Fabian