Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Telefonnumern mit Liste vergleichen und durch Namen ersetzen

Gruppe

Vergleich

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.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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