Letzte 4 Zeichen entfernen
21.01.2021 16:12:13
Lilli
ich bräuchte Hilfe beim VBA. Ich habe schon mal eine Hilfe bekommen wo man die MAC-Adresse so formatiert wird, dass Doppelpunkte dazwischen kommen.
Jetzt bräuchte ich bitte eine Umwandlung, dass die Zellen die Markiert sind, die letzten 4 Ziffern entfernt werden. Es soll geprüft werden, ob es 14 Zeichen sind, wenn ja, dann sollen die letzten 4 entfernt werden.
Beispiel: TH71U3802P0689
Das ist das Code, was ich für die Formatierung von MAC-Adressen hatte:
Option Explicit
Sub make_it()
Dim i As Integer, tmp As String, c As Range
For Each c In Selection
If Application.IsText(c) And Len(c) = 12 Then
For i = 1 To 12 Step 2
tmp = tmp & Mid(c, i, 2) & ":"
Next
c = Left(tmp, Len(tmp) - 1)
End If
tmp = ""
Next
End Sub
Vielen Dank für die Mühe im Voraus.
liebe Grüße, Lilli :)
Anzeige