Das ganze könnte so Aussehen:
Option Explicit
Sub Makro1()
Dim ColumnA As Integer
Dim ColumnB As Integer
Dim ColumnErg As Integer
Dim RowA As Integer
Dim RowB As Integer
ColumnA = 1
ColumnB = 2
ColumnErg = 3
RowA = 1
RowB = 1
Sheets("Tabelle1").Select
Do Until (Cells(RowA, ColumnA) = "")
Do Until (Cells(RowB, ColumnB) = "")
If Cells(RowA, ColumnA) = Cells(RowB, ColumnB) Then
Cells(RowA, ColumnErg) = RowB
End If
RowB = RowB + 1
Loop
RowA = RowA + 1
RowB = 1
Loop
End Sub
Es wird Spalte 1 mit Spalte 2 verglichen. Kommt in Spalte 2 nun ein Wert aus Spalte 1 vor wird in Spalte 3 die ZeilenNr vom Wert in Spalte 2 geschrieben.
Viele Grüße
Jemand der zuviel Zeit hat ;-)
<FONT COLOR="#a62a2a" SIZE="1">[ 22. November 2001 18:58: Beitrag 1 mal editiert, zuletzt von Naberius ]</font>