Tabellen vergleichen
24.11.2006 13:24:26
regina
Habe ein Prob! Möchte Alle Tab miteinander vergleichen
Tab 1 mit Tab 2 bis 7
dann Tab 2 mit Tab 1 und 3 bis 7 usw.
Verglichen werden soll Die Zahl in Spalte B (10stellige)es stehen untereinander
evtl. mehrere gleiche Nummern, mit Spalte B in den anderen Tab.
Habe schon mal etwas geschrieben,
Nach If cells(i,2) cells(i+1,2)wird dann die nächste Tab aufgerufen. wenn die Zahlen gleich sind. soll aber dann in der Tab weitergehen bis die letzte gleiche gefunden wurde und dann vergleichen. Damit nicht jede wenn sie gleich sind verglichen werden muss.
Sub TEST()
'prüfen, ob die VSN aus Spalte 2 in den anderen Tab auch noch vorhanden ist
' wenn JA dann in die Tab kopieren wo bereits eine ist
Dim i As Long
Dim c As Long
Dim ende As Long
Dim ende1 As Long
Dim VSN As String
Dim sh As Integer
Dim sh1 As Integer
i = 2
For sh = 1 To Worksheets.Count 'suchen nacheinander in allen tab bei 1 beginnen
Worksheets(sh).Activate
ende = Range("A65536").End(xlUp).Row
If Cells(i, 2) <> Cells(i + 1, 2) Then
'es stehen mehrere gleiche Nr. untereinander
' es muss nur die erste oder letzte Nr. genommen werden
VSN = Cells(i, 2)
' zum vergleichen eingelesen
For sh1 = 2 To Worksheets.Count '
Sheets(sh1).Activate
Application.StatusBar = "Bearbeite " & c
If Sheets(sh).Name = Sheets(sh1).Name Then
'wenn Ziel und Quelle selbe Tab nächste Tab
If Cells(c, 2) = VSN Then
MsgBox " In Tabelle " & sh1 & " VSN gefunden"
Rows(c).Copy
Sheets(sh).Range("A65536").End(xlUp).Rows.Offset(1, 0).PasteSpecial
Rows(c).Delete
End If
End If
Next
End If
Next
Application.StatusBar = False
End Sub
Irgendwie muss das anders aufgebaut werden, aber mir fällt nix ein.
Vielleicht kann jemand helfen.
Gruß regina