Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSeparation af MAC-adresse med kolon
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Neonhead74 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 18.Sep.2015
Land: Danmark
Status: Offline
Point: 3 		Direkte link til dette indlæg Emne: Separation af MAC-adresse med kolon
    Sendt: 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
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 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
Til top
Neonhead74 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 18.Sep.2015
Land: Danmark
Status: Offline
Point: 3 		Direkte link til dette indlæg Sendt: 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 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
 
 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2025 Dansk Regneark Forum - en del af Excel-regneark.dk