Schleife nur ausführen wenn...
11.01.2018 08:54:37
Burak
ersrtmal der Code:
Sub zusammenfuegen()
For i = 2 To 10
For j = 2 To 1000
If Worksheets("Logimport").Range("B" & i).Value = Worksheets("AccessDBBC").Range("A" & j). _
Value Then
Else
For k = 2 To 1000
If Worksheets("Logimport").Range("B" & i).Value = Worksheets("R1").Range("B" & k).Value _
Then
If Worksheets("Logimport").Range("C" & i).Value = Worksheets("R1").Range("G" & k). _
Value Then
If Worksheets("Logimport").Range("D" & i).Value = Worksheets("R1").Range("J" & k). _
Value Then
If Worksheets("Logimport").Range("F" & i).Value = Worksheets("R1").Range("K" & k). _
Value Then
With Worksheets("Gesamtliste")
.Range("A" & i).Value = Worksheets("R1").Range("A" & k).Value
.Range("B" & i).Value = Worksheets("R1").Range("B" & k).Value
.Range("C" & i).Value = Worksheets("R1").Range("C" & k).Value
.Range("D" & i).Value = Worksheets("R1").Range("D" & k).Value
.Range("E" & i).Value = Worksheets("R1").Range("E" & k).Value
.Range("F" & i).Value = Worksheets("R1").Range("F" & k).Value
.Range("G" & i).Value = Worksheets("R1").Range("G" & k).Value
.Range("H" & i).Value = Worksheets("R1").Range("H" & k).Value
.Range("I" & i).Value = Worksheets("R1").Range("I" & k).Value
.Range("J" & i).Value = Worksheets("R1").Range("J" & k).Value
.Range("K" & i).Value = Worksheets("R1").Range("K" & k).Value
.Range("L" & i).Value = Worksheets("R1").Range("L" & k).Value
.Range("M" & i).Value = Worksheets("Logimport").Range("G" & i).Value
.Range("N" & i).Value = Worksheets("Logimport").Range("H" & i).Value
.Range("O" & i).Value = Worksheets("Logimport").Range("I" & i).Value
.Range("P" & i).Value = Worksheets("Logimport").Range("J" & i).Value
.Range("Q" & i).Value = Worksheets("Logimport").Range("K" & i).Value
.Range("R" & i).Value = Worksheets("Logimport").Range("L" & i).Value
.Range("S" & i).Value = Worksheets("Logimport").Range("M" & i).Value
.Range("T" & i).Value = Worksheets("Logimport").Range("N" & i).Value
End With
End If
End If
End If
End If
Next k
Next j
Next i
With Worksheets("Gesamtliste")
.Range("A1:L1").Value = Worksheets("R1").Range("A1:L1").Value
.Range("M1:T1").Value = Worksheets("Logimport").Range("G1:N1").Value
.Rows(1).Font.Bold = True
End With
End Sub
Es geht hier um die j-SchleifeIch habe drei Tabellen, nennen wir sie T1, T2 und T3
Er soll aus T2 für jeden Wert Spalte B ab Zeile 2 erst überprüfen ob dieser Wert in T3 Spalte A vorkommt.
Wenn NICHT: dann soll er die k Schleife mit demselben Wert durchführen.
Sonst soll er den nächsten j-Schleifen wert versuchen.
Also:
ist T2 B2 in T3 Spalte A vorhanden
Ja: springe zu T2 B3
Nein: vergleiche T2 B2 mit T1 B2, vergleiche T2 C2 mit T1 G2 ...
Ist T2 B3 in T3 Spalte A vorhanden
Ja: springe zu T2 B4
Nein: vergleiche T2 B3 mit T1 B3, vergleiche T2 C3 mit T1 G3 ...
usw.
Das Problem bei meinem Code ist dass er T2 B2 nur mit T3 A2 vergleicht und wenn nicht die k schleife durchführt statt es mit der gesamten A-Spalte zu vergleichen.
Langer Text, wahrscheinlich kurze Lösung.
Danke im Voraus und freundliche Grüße