Makro auf ausgewählt Zellen ausführen
26.05.2015 13:10:23
Christoph
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