Gruppe
Allgemein
Problem
Die Telefonnummern aus Spalte A sollen mit denen im Blatt "Data" in Spalte B verglichen bei Übereinstimmung durch den jeweilig danebenstehenden Namen ersetzt werden.
StandardModule: Modul1
Sub Nos2Names()
Dim var As Variant
Dim iRow As Integer
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
var = Application.Match(Cells(iRow, 1).Value, _
Worksheets("Data").Columns(2), 0)
If Not IsError(var) Then
Cells(iRow, 1).Value = _
Worksheets("Data").Cells(var, 1).Value
End If
iRow = iRow + 1
Loop
End Sub