AW: Makro in jeder Excel tabelle verfügbar machen
18.05.2005 08:14:08
sören
supi, danke das hat geklappt.
nur eine Frage habe ich noch
wie kann ich in dem Makro die Schriftgröße definieren bei dem script?
Sub fusszeile()
With ActiveSheet.PageSetup
dokumentenart = InputBox("Dokumentenart eingeben!", "Dokumentenart")
artikelnummer = InputBox("Artikelnummer eingeben!", "Artikelnummer")
formblattnummer = InputBox("Formblattnummer eingeben!", "Formblatnummer")
datum = InputBox("Das Datum eingeben!", "Datumseingabe", Format(Date, "dd.mm.yyyy"))
If MsgBox("Sollen die Unterschriften eingefügt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
ActiveSheet.PageSetup.CenterFooter = " erstellt(PE)_____geprüft(AL)/Datum_________Freigabe(GL)/Datum_________"
Else
ActiveSheet.PageSetup.CenterFooter = ""
End If
.LeftFooter = dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
seite = InputBox("Bitte die Seite eingeben", "Seite")
.RightFooter = "Seite:" & seite
End With
End Sub
das muss doch irgendwie heirmit gehen : FontSize = 8
nur wie arbeite ich die da ein?