Public Sub ombytNavne() Dim tabel As Variant, navn As String, nytNavn As String navn = Range("A1") tabel = Split(navn, ",") nytNavn = tabel(1) & " " & tabel(0) Range("B1") = nytNavn End Sub
Ok - så kunne en løsning med "Et højre klik" i en celle måske være den rigtige. Eller en større markering af cellerne og så udføre makroen?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.