een karakter/symbool toevoegen aan bestaande tekst

[ZeLongOne]

Beste,

Ik heb een aantal excel sheet waarin ik veranderingen moet aanbrengen, mijn grootste uitdaging is nu het volgende.
In de sheets die ik aangeleverd krijg staat een MAC adres (voorbeeld: 3CA82A861161) dit nummer is iedere regel anders en ik moet om de 2 octaven een dubbele punt toevoegen. (voorbeeld: 3C:A8:2A:86:11:61)
Is er een mogelijkheid dit op een simpele manier te doen anders moet ik dit dus 5000x gaan doen en dat schiet niet op.

Alvast bedankt voor de moeite, ik ben benieuwd.

Groet,

Ad

 

[edmoor]

Dat kan met een functie in een nieuwe kolom of met een stukje VBA om de bestaande kolom aan te passen. Waar gaat je voorkeur naar uit?

 

[ZeLongOne]

Dat kan met een functie in een nieuwe kolom of met een stukje VBA om de bestaande kolom aan te passen. Waar gaat je voorkeur naar uit?

Beste Edmoor

Dan het liefste via een stukkie VBA maar dat is zeker niet mijn sterkste kant......

 

[edmoor]

Als je een voorbeeld documentje kan plaatsen doe ik dat wel voor je.

 

[ZeLongOne]

Als je een voorbeeld documentje kan plaatsen doe ik dat wel voor je.

Hoe had je deze het liefste gehad, een echt stukje excel of een afbeelding.

 

[edmoor]

Een Excel documentje.

 

[ZeLongOne]

Een Excel documentje.

Ik zie even geen optie om een bestandje in te voegen

 

[edmoor]

Zoek op deze pagina naar het woord bijlage:
http://www.helpmij.nl/forum/showthread.php/610881

Daar gaat het over een plaatje maar voor een Excel document werkt dat net zo.

 

[ZeLongOne]

Zoals beloofd nu met bijlage.

je ziet nu 2 kolommen: MAC adres (SIM) en Wireless Mac bij deze kolommen moet dan dus om de 2 octaven een dubbele punt komen te staan zie voorbeeld (3C:A8:2A:88:79:62)

ik hoop dat je hier iets mee kunt beginnen....

alvast heel erg bedankt

 

[ZeLongOne]

Zoek op deze pagina naar het woord bijlage:
http://www.helpmij.nl/forum/showthread.php/610881

Daar gaat het over een plaatje maar voor een Excel document werkt dat net zo.

Heb het bestand zojuist gepost ;-)

 

[edmoor]

Kijk eens naar dit:
Bekijk bijlage Kopie van testbestand.xlsm

 

[ZeLongOne]

Kijk eens naar dit:
Bekijk bijlage 242449

BAM!!!!!
Dat ziet er even goed uit!!!!

is het mogelijk dat ik dat VBA script ontvang zodat ik deze op de andere sheets eens kan uitproberen.

 

[edmoor]

Druk eens op de toetscombinatie ALT+F11, dan zie je dit:

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim mca As String
    Dim i As Long, x As Long
    
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
    End With
    
    For i = 4 To LastRow
        If Mid(Cells(i, 4), 3, 1) = ":" Then
            For x = 4 To 5
                Cells(i, x) = Replace(Cells(i, x), ":", "")
            Next x
        Else
            For x = 4 To 5
                mca = Cells(i, x)
                Cells(i, x) = Mid(mca, 1, 2) & ":" & _
                              Mid(mca, 3, 2) & ":" & _
                              Mid(mca, 5, 2) & ":" & _
                              Mid(mca, 7, 2) & ":" & _
                              Mid(mca, 9, 2) & ":" & _
                              Mid(mca, 11, 2)
            Next x
        End If
    Next i
End Sub

Het kan zijn, bedenk ik me net, dat ik een andere versie als bijlage hebt geplaatst.
Deze is beter, maar ze doen hetzelfde.

 

[Peekhamer]

je zou het ook met een gewone formule kunnen doen, niet via VBA

=LINKS(P1;2)&":"&DEEL(P1;3;2)&":"&DEEL(P1;5;2)&":"&DEEL(P1;7;2)&":"&RECHTS(P1;2)

(het MAC adres staat hier in P1 vermeldt)

 

[edmoor]

Zoals al gemeld in #2