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 &: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
ActiveSheet.PageSetup.CenterFooter = „Seite &: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
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
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
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