VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Abkürzungen umwandeln

Gruppe

Allgemein

Bereich

Zeichenfolge

Thema

Abkürzungen umwandeln

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

    


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