title image


Smiley Re: nur ganze Zellen....
Hi Andy,



versuche es mit diesem Code



Sub zeichen_hochgestellt2()

Dim inStart As Integer

Dim inAnzahl As Integer

inStart = Application.InputBox("Bitte die Startposition eingeben", , 0, Type:=1)

inAnzahl = Application.InputBox("Bitte die Anzahl Zeichen eingeben", , 0, Type:=1)

If inAnzahl = 0 Then Exit Sub

ActiveCell.Characters.Font.Superscript = False

ActiveCell.Characters(Start:=inStart, Length:=Abs(inAnzahl)).Font.Superscript = True

End Sub



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: