Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Abkürzungen umwandeln

Gruppe

Zeichenfolge

Problem

In einer Liste enthaltende Kürzel sollen durch Komplettbegriffe ersetzt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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