Makro auf ausgewählt Zellen ausführen

Bild

Betrifft: Makro auf ausgewählt Zellen ausführen
von: Christoph Staffl
Geschrieben am: 26.05.2015 13:10:23

Hallo,
ich habe mir ein Makro zur Formatierung meiner Zellen herausgesucht, welches so aussieht:

Sub eClass()
Dim a, b, c, d
a = Left(activeCell.Value, 2)
b = Mid(activeCell.Value, 3, 2)
c = Mid(activeCell.Value, 5, 2)
d = Right(activeCell.Value, 2)
activeCell.Value = (a & "-" & b & "-" & c & "-" & d)
End Sub

Wenn ich dieses ausführe, bewirkt es nur in einer Zelle eine Änderung. Ich würde aber das Makro gerne auf die gesamten, zuvor markierten Zellen ausführen. Kann mir hier jemand weiterhelfen?
Danke!
Gruß
Christoph

Bild

Betrifft: AW: Makro auf ausgewählt Zellen ausführen
von: Rudi Maintaire
Geschrieben am: 26.05.2015 13:15:06
Hallo,

Sub eClass()
  Dim a, b, c, d
  Dim r As Range
  Application.ScreenUpdating = False
  For Each r In Selection
    a = Left(r.Value, 2)
    b = Mid(r.Value, 3, 2)
    c = Mid(r.Value, 5, 2)
    d = Right(r.Value, 2)
    r.Value = (a & "-" & b & "-" & c & "-" & d)
  Next
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Makro auf ausgewählt Zellen ausführen
von: Christoph Staffl
Geschrieben am: 26.05.2015 13:17:13
Perfekt!
Vielen DANK!!!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro auf ausgewählt Zellen ausführen"