der nachfolgende Code funktioniert soweit ganz gut, jedoch hängt sich die Excel-Datei auf, da der Loop nicht endet sobald keine Einträge mehr drin stehen in der jeweiligen Spalte, vielleicht hat wer einen Tipp oder Rat was ich da machen kann.
Folgendes soll eigentlich passieren, ich will per Makro prüfen ob in der Spalte F etwas steht, sobald dort ein Eintrag gefunden wird soll es zur dazugehörigen Zeile in Spalte G die Formel für den SVERWEIS eintragen, eigentlich sollte der Loop enden wenn er in Spalte B keine Einträge mehr hat, aber leider funktioniert das nicht, es lädt immer weiter.
Hier einmal der Code
Sub PLZSuchenText()
On Error Resume Next
Dim count, i As Long
Dim rngBereich As Range
count = ActiveSheet.Cells(Rows.count, "B").End(xlUp).Row
i = 3
Set rngBereich = Worksheets("PLZSPKs").Range("A1:B999")
Do While i "" Then
Range("G" & i).Value = Application.WorksheetFunction.VLookup(Range("F" & i), rngBereich, 2, False)
End If
i = i + 1
Loop
End Sub