Hochstellen
Hugo
Habe Zellen in denen die Menge und die dazugehörige Einheit steht zB 100 m2 25000 m3 etc.
Hinter dem m2 / m3 steht noch ein Leerzeichen (bessere Darstellung wenn Rahmen gesetzt)
Wie kann ich per VBA die 2 resp. die 3 hochstellen ohne das Leerzeichen zu verlieren?
Mit dem folgenden Code den verliere ich immer das Leerzeichen
Sub Hochstellen_M3undM2()
Dim lz, i
lz = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lz
With Cells(i, 4).Characters(Start:=Len(Cells(i, 1)), Length:=1).Font
.Superscript = True
End With
Next
End Sub
Besten Dank für eure Hilfe und Gruss
Hugo
Anzeige