Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub cmdStart_Click()
   Dim wks As Worksheet
   Dim var As Variant
   Dim iRow As Integer
   Set wks = Worksheets("Ziel")
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      var = Application.Match(Cells(iRow, 1).Value, _
         wks.Columns(1), 0)
      If Not IsError(var) Then
         wks.Cells(var, 2) = Cells(iRow, 2).Value
      End If
      iRow = iRow + 1
   Loop
   wks.Select
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste