Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

MAC-Adressen

Betrifft: MAC-Adressen von: Riman
Geschrieben am: 29.09.2014 16:12:57

MAC-Adresse

01999ff6dca
08000624D4BE
08000691974C
000A5E6056e50
001b212b35b5

Halle Leute,

ich möchte das die Spalte Mac Adresse, dass nach jede zweite Zeichen ein "-" kommt und noch dazu, dass alle Buchstaben in Großbuchstaben umgewandelt werden.

Also ich möchte nicht eine neue Spalte, sondern die vorhandende Spalte umwandeln.

Bitte Helfen :)

  

Betrifft: AW: MAC-Adressen von: Rudi Maintaire
Geschrieben am: 29.09.2014 16:48:26

Hallo,
für den markiereten Bereich:

Sub aaa()
  Dim sTmp As String, i As Integer
  Dim c As Range
  Application.ScreenUpdating = False
  For Each c In Selection
    sTmp = ""
    For i = 1 To Len(c) Step 2
      sTmp = sTmp & "-" & UCase(Mid(c, i, 2))
    Next
    c = Mid(sTmp, 2)
  Next c
End Sub

Gruß
Rudi


  

Betrifft: AW: MAC-Adressen von: Riman
Geschrieben am: 30.09.2014 11:20:41

Vielen lieben Dank :)