Hallo an alle Experten,
dieses Mal habe ich schon fast eine Lösung - nur das i-Tüpfelchen fehlt ...
Ich habe in einer Arbeitsmappe mehrere Rechnungsformulare. Wenn eines davon gedruckt wird, wird eine neue Rechnungsnummer erzeugt.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("h37") = Range("h37") + 1
End Sub
Jetzt möchte ich aber, dass diese Nummer in allen Tabellenblättern, die Rechnungen enthalten , gleichzeitig aktualisiert wird, egal welche Rechnung ich drucke, damit die Nummer nur einmal vergeben wird.
Wie immer optimistisch
Tina
|