Gruppe
Allgemein
Problem
In einer Liste enthaltende Kürzel sollen durch Komplettbegriffe ersetzt werden.
StandardModule: basMain
Sub CopyShortys()
Dim wks As Worksheet
Dim rngAll As Range, rngAct As Range
Dim rngShortys As Range
Set wks = Worksheets("Shortys")
Set rngShortys = wks.Columns("A:A")
For Each rngAct In Selection
If Not IsError(Application.Match(rngAct, rngShortys, 0)) Then
rngAct = wks.Cells(Application.Match(rngAct, rngShortys, 0), 2)
End If
Next rngAct
End Sub