VBA Seitenanzahl in Footer schreiben

Computer: Software & Programmierung Visual Basic
#1

Servus,

ich würde gerne in den Footer mittels VBA „Seite X von Y“ schreiben. Leider will er einfach die Seitenanzahl nicht hineinschreiben.

mein Code dafür:
ActiveSheet.PageSetup.CenterFooter = „Seite &amp:stuck_out_tongue_winking_eye: von &N“

Wenn ich statt dem „&N“ ein „&A“ verwende funktioniert es ebenfalls nicht. (Das währe das Problem mit dem von Microsoft bekanntem Bug.)

Habt ihr für mich einen alternativen Code den ich verwenden kann?

Meine Software: Office 2010 & Windows 7

Vielen Dank schon mal für eure Bemühungen.
wagnthom

#2

ActiveSheet.PageSetup.CenterFooter = „Seite &amp:stuck_out_tongue_winking_eye: von &N“

Wenn ich statt dem „&N“ ein „&A“ verwende funktioniert es
ebenfalls nicht. (Das währe das Problem mit dem von Microsoft
bekanntem Bug.)
Meine Software: Office 2010 & Windows 7

Hallo Wagnthom,

dein Code klappt in XL2000. Zeichne mal ein Makro auf in XL2010.

Gruß
Reinhard

#3

Servus,

dein Code klappt in XL2000. Zeichne mal ein Makro auf in
XL2010.

Mit der Abkürzung XL2000 bzw. XL2010 kann ich nichts anfangen. Aber ich habe das Ganze schon als Makro aufgezeichnet.

Gruß
wagnthom

#4

dein Code klappt in XL2000. Zeichne mal ein Makro auf in
XL2010.

Mit der Abkürzung XL2000 bzw. XL2010 kann ich nichts anfangen.
Aber ich habe das Ganze schon als Makro aufgezeichnet.

Hallo Wagnthom,

XL2000 = Excel 2000

dann zeig doch mal das Makro.

Gruß
Reinhard

#5

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'Wenn Abrechnungs-Zeile Komplett ausgefüllt ist, wird die Formel zur Berechnung eingetragen

Dim IntZeile As Integer

For IntZeile = 6 To 30000

If Range(„E“ & IntZeile) = Empty Then 'Wenn Gesamtpreis nicht leer, …

If Not Range(„D“ & IntZeile) = Empty Then 'Wenn Stückzahl nicht leer, …

If Not Range(„C“ & IntZeile) = Empty Then 'Wenn Einzelpreis nicht leer, …

If Not Range(„B“ & IntZeile) = Empty Then 'Wenn Produktbeschreibung nicht leer, …

If Not Range(„A“ & IntZeile) = Empty Then 'Wenn Datum nicht leer, …

ActiveSheet.Unprotect Password:=„123“ 'Blattschutz deaktivieren

Range(„E“ & IntZeile).FormulaR1C1 = _
„=IF(OR(RC[-4]=“""",RC[-3]="""",RC[-2]="""",RC[-1]=""""),"""",PRODUCT(RC[-2],RC[-1]))" 'Formel eintragen

ActiveSheet.Protect Password:=„123“, DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz aktivieren

Else: End
End If

Else: End
End If

Else: End
End If

Else: End
End If

Else: End
End If

Next

End Sub