Generelt - Separation af MAC-adresse med kolon

Separation af MAC-adresse med kolon

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2243
Udskrevet den: 17.Maj.2024 kl. 09:12

Emne: Separation af MAC-adresse med kolon

Besked fra: Neonhead74
Emne: Separation af MAC-adresse med kolon
Posteringsdato: 18.Sep.2015 kl. 12:28

Hejsa

Jeg scanner stregkoder ind på MAC-adresser og de står med en masse tal og bogstaver.

Jeg har brug for en smart metode hvor jeg kan få separeret hver andet tegn med et kolon.

Sådan ser det ud når jeg scanner:

7081054283CA

Sådan vil jeg gerne have det til at blive:

70:81:05:42:83:CA

På forhånd tak

Brian

Svar:

Besked fra: Allan
Posteringsdato: 18.Sep.2015 kl. 14:49

Hej Brian,

Har du din første MAC-adresse i cellen A1, kan du bruge denne formel.

=VENSTRE(A1;2)&":"&MIDT(A1;3;2)&":"&MIDT(A1;5;2)&":"&MIDT(A1;7;2)&":"&MIDT(A1;9;2)&":"&HØJRE(A1;2)

//Allan

Besked fra: Neonhead74
Posteringsdato: 18.Sep.2015 kl. 16:12

Hej Allan

Tak for dit svar.

Det virker, men er der mulighed for en mere smart måde hvis jeg f.eks. scanner ind i celle E2 og kører videre ned af kolonen E3,E4... osv. og så den automatisk ændrer MAC-adressen med det samme så den får separations-formlen som du har sendt til mig?

mvh

Brian

Besked fra: Allan
Posteringsdato: 21.Sep.2015 kl. 09:18

Hej Brian,

Kender du til VBA?

Denne kode ændrer alle forekomster af celler med 12 karakterer i E2 og nedefter, til MAC-formatet.

Sub FormaterMAC()
Dim FormatMAC As String
If IsEmpty(Range("E2")) Then Exit Sub
For Each ImportMAC In Range("E2:E" & Range("E2").End(xlDown).Row)
    If Len(ImportMAC) = 12 Then
        FormatMAC = Left(ImportMAC, 2) _
            & ":" & Mid(ImportMAC, 3, 2) _
            & ":" & Mid(ImportMAC, 3, 2) _
            & ":" & Mid(ImportMAC, 3, 2) _
            & ":" & Mid(ImportMAC, 3, 2) _
            & ":" & Right(ImportMAC, 2)
        ImportMAC.Value = FormatMAC
    End If
Next ImportMAC
End Sub