title image


Smiley Re: mit Macro vorhandene Fusszeileneinträge auf Arial 16, fett ändern
Hallo,

das ist nicht ganz so trivial, du mußt zuerst alle "&x" entfernen,

dann "&16" vor deinen Rightfooter setzen:





Sub x()

   right_footer = ActiveSheet.PageSetup.RightFooter

   'right_footer = "&6H:\mschindler\1. Kosten\3. Forecast\2003\8. Forecast erstellen\400-409\Budget 2003 400-409.xls\&A   &D   &T   "

   pos = 1

   Do While InStr(pos, right_footer, "&") > 0

      length_right_footer = Len(right_footer)

      pos = InStr(pos, right_footer, "&") + 1

      counter = 0

      For i = pos To length_right_footer

         If IsNumeric(Mid(right_footer, i, 1)) Then

            counter = counter + 1

         Else

            Exit For

         End If

      Next i

      If counter > 0 Then

         right_footer = Mid(right_footer, 1, pos - 2) & Mid(right_footer, pos + counter, length_right_footer - pos - counter + 1)

      End If

      pos = pos + 1

   Loop

   ActiveSheet.PageSetup.RightFooter = "&""Arial,Fett""&16" & right_footer

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16



Grüße,

Andre

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: