Microsoft Excel

Herbers Excel/VBA-Archiv

Letzte 4 Zeichen entfernen

Betrifft: Letzte 4 Zeichen entfernen von: Lilli
Geschrieben am: 21.01.2021 16:12:13

Hallo Allerseits, :)



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 :)

Betrifft: AW: Letzte 4 Zeichen entfernen
von: Herbert_Grom
Geschrieben am: 21.01.2021 16:21:16

Hallo Lilli,

probiers mal damit:
Sub Makro1()
   Dim i As Integer, tmp As String, c As Range
   For Each c In Selection
      If Application.IsText(c) And Len(c) = 14 Then
         c.Value = Left(c, Len(c) - 4)
      End If
   Next
End Sub
Servus

Betrifft: AW: Letzte 4 Zeichen entfernen
von: Lilli
Geschrieben am: 21.01.2021 18:01:57

Hallo Herbert,

vielen Dank für Deine schnelle Hilfe.

es funktioniert einwandfrei.

Liebe Grüße, Lilli :)

Betrifft: AW: Letzte 4 Zeichen entfernen
von: Matthias L
Geschrieben am: 21.01.2021 18:16:00

Hallo

statt:
 If Application.IsText(c) And Len(c) = 14 Then
  c.Value = Left(c, Len(c) - 4)
 End If
kannst Du auch schreiben:
 If Application.IsText(c) And Len(c) = 14 Then
  c.Value = Left(c, 10)
 End If

Muss man nicht machen, kann man aber machen ;-)

Gruß ...

Betrifft: AW: Letzte 4 Zeichen entfernen
von: Lilli
Geschrieben am: 25.01.2021 15:40:01

Hallo Matthias,

ich habe Dein Post gerade gesehen.

ich werde morgen probieren und gebe Dir dann Bescheid.

vielen Dank für Deine Mühe.

Viele Grüße,
Lilli :)

Betrifft: AW: Gerne geschehen und danke für die Rückmeldung!
von: Herbert_Grom
Geschrieben am: 22.01.2021 15:32:15

,,,