Option Explicit
 
Sub assdf()
 
Dim Suchen As String
Dim i As Integer
Dim gefZelle1 As Object
Dim gefZelle2 As Object
 
i = 1
 
Suchen = ActiveWorkbook.Sheets("Tabelle1").Cells(i, 1).Value
 
Do While Suchen <> ""
 
Set gefZelle1 = ActiveWorkbook.Sheets("Tabelle2").Range("A:A").Find( _
  What:=Suchen)
 
If gefZelle1 Is Nothing Then
Set gefZelle2 = ActiveWorkbook.Sheets("Tabelle2").Range("A:A").Find(What:="")
ActiveWorkbook.Sheets("Tabelle2").Cells(gefZelle2.Row, 1).Value = Suchen
End If
 
i = i + 1
 
Suchen = ActiveWorkbook.Sheets("Tabelle1").Cells(i, 1).Value
 
If Suchen = "" Then
Exit Do
End If
 
Loop
 
End Sub

EALA FREYA FRESENA