macro vraagje

[theo1234]

Hallo,

Helaas heb ik niet al te veel verstand van VBA, dus misschien is er iemand die mij kan helpen met een simpele macro.


In kolom C heb ik diverse data. Ik graag zou willen dat deze data automatisch wordt omgezet in een naam.
Cijfer 1 moet nederland worden
Cijfer 2 moet belgie worden
cijfer 3 moet luxemborg worden
Omdat het aantal rijen elke keer anders is zou de range op maximaal moeten worden gesteld. Een voorbeeld is als bijlage toegevoegd.

Weet iemand een oplossing?
Bvd!

Grt,

 

[Wigi]

Daar heb je geen macro voor nodig.

Klik op de C van kolom C. Dan Ctrl-H doen, en 1 vervangen door nederland. Hetzelfde voor de andere getallen.

Wigi

 

[popipipo]

Als je iets maar 1 keer hoeft te doen is elke macro overbodig.
Een macro heeft nut als je meerdere toetsen aanslagen kunt vervangen door slechts 1 toets aanslag of een knop.
Ik maak uit je vraag op dat je het vaker nodig hebt.
Daarom hier onder de macro.

Sub Macro1()
    Columns("C:C").Select
    Selection.Replace What:="1", Replacement:="Nederland", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="2", Replacement:="België", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="3", Replacement:="Luxemburg", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Je kunt natuurlijk zelf ook makkelijk de macro maken met de macro recorder.

 

[Wigi]

Ik ga voor deze code:

Dim i As Integer
    For i = 1 To 3
        Columns("C:C").Replace What:=i, Replacement:=Choose(i, "Nederland", "België", "Luxemburg"), LookAt:=xlWhole, _
            SearchOrder:=xlByRows
    Next

Wigi