Tabelle erstellen
07.05.2004 07:00:11
Sputti
ich vergleiche zwei Tabellen miteinander:
Sub Vergleich()
Dim i As Integer
Dim x As Integer, y As Long
Dim a As Integer, b As Long
x = 2
a = 5
y = Worksheets("Tab1").Cells(65536, x).End(xlUp).Row
MsgBox "Spalte " & x & " ist " & y & " Zeilen lang."
b = Worksheets("Tab2").Cells(65536, a).End(xlUp).Row
MsgBox "Spalte " & a & " ist " & b & " Zeilen lang."
For i = 1 To y
For j = 1 To b
If Right(Worksheets("Tab1").Cells(i, 2), 5) = Right(Worksheets("Tab2").Cells(j, 5), 5) Then
MsgBox "Übereinstimmung"
End If
Next j
Next i
End Sub
Bei einer Übereinstimmung(letzten 5 Zeichen sind gleich) möchte ich nun eine neue Tabelle erstellen, d.h. aus den übereinstimmenden Zeilen soll es verschiedene Spalten in eine neue Tabelle übernehmen, z.B.
aus Tab1: Spalte B,C,D,E
aus Tab2: Spalte B,E,F,I,N,D
Habe gestern schon hier Hilfe beim 'vergleichen' gefunden, deshalb hoffe ich auf euch.
Gruß