• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

een karakter/symbool toevoegen aan bestaande tekst

Status
Niet open voor verdere reacties.

ZeLongOne

Gebruiker
Lid geworden
28 jul 2015
Berichten
9
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
 
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?
 
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......
 
Als je een voorbeeld documentje kan plaatsen doe ik dat wel voor je.
 
Een Excel documentje.
 
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
 

Bijlagen

Druk eens op de toetscombinatie ALT+F11, dan zie je dit:
Code:
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.
 
Laatst bewerkt:
je zou het ook met een gewone formule kunnen doen, niet via VBA

Code:
=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)
 
Zoals al gemeld in #2 ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan