Office 2010: Rechnungsformular mit fortlaufender Nummer

[markku]

Hallo,

ich bin neu hier und versuche mal mein Glück mit der Bitte um eine Antwort.

Ich arbeite mit Office2010 und PaperPort prof 14(zum Archivieren) und habe mir in Excel ein Rechnungsformular gebastelt. Jede einzelne Rechnung speichere ich „ per Hand“ ab und vergebe auch meine Rechnungsnummern manuell.
Wie stelle ich es an, dass die RG-Nr automatisch vergeben wird, die Rechnung abgespeichert und 3 mal gedruckt wird und ich wieder ein leeres Formular habe für die nächste Rechnung?

Außer einen VHS Kurs vor ca. 15 Jahren habe ich wenig Ahnung.
Vielen Dank für evtl. Hilfe
Marko

[Officer]

Hallo markku,

unter dem folgenden Link findest du die passende Lösung:

http://www.excel-inside.de/vba-loesungen/ereignisse/258-zaehler-beim-start-einer-arbeitsmappe-um-den-wert-1-erhoehen

Gruß Alois
[Officer]

[markku]

Hallo Alois,
danke für die schnelle Antwort. Leider habe ich bestimmt einen Fehler gemacht. "B2" habe ich natürlich abgeändert. Muss ich sonst noch etwas ändern? Ab Sheets wird alles rot angezeigt.

Private Sub Workbook_Open()
Sheets(1).Range("B2").Value = Sheets(1).Range("B2").Value + 1
End Sub

Ich bin Anfänger - sorry 
Gruß Marko

[Officer]

Hallo markku,

schau mal in die beigefügte Arbeitsmappe. Dort funktioniert der Code.

LG

Alois
[Officer]

[markku]

Hallo Alois,
es ist toll, dass es bei dir läuft
Bei mir geht es leider nicht - ist auch nicht so schlimm.

Gruß
Marko

[Officer]

Hallo Marko,

hast du die Makros aktiviert?

Was geht denn nicht?

Gruß Alois

[markku]

Private Sub Workbook_Open()
Sheets(1).Range("E23").Value = Sheets(1).Range("E23
").Value + 1
End Sub

Hallo Alois,

Makros sind aktiviert. Muss ich die Makros in Ansicht anlegen oder in Entwicklertools?

Das "B2" habe ich mit meinem Rechnungsnummer Feld E23 ersetzt. Dann kommt : Fehler beim Kompilieren. Erwartet Listentrennzeichen oder )

Auch Laufzeitfehler 28 nicht genügend Stapelspeicher habe ich auch schon gesehen.

Gruß
Marko

[Officer]

Hallo markku,

im VBA-Code dürfen natürlich nicht willkürlich Zeilenumbrüche gemacht werden, wie in deinem Beispielnach E23.

Übernehme mal folgenden Code 1:1 (Ohne Änderungen!)

Private Sub Workbook_Open()
Sheets(1).Range("E23").Value = Sheets(1).Range("E23").Value + 1
End Sub

Damit gehts!

Gruß Alois

[markku]

Hallo Alois,

ich habe es natürlich so hingeschrieben ohne Zeilenumbruch.

Auch der neue VBA Code funktioniert nicht. Scheint irgendwo ein Fehler bei mir zu sein oder ein oder mehre falsche Einträge.
Vielleicht wäre eine Antwort hilfreich gewesen wo ich das Makro anlegen soll.

Wir beenden es jetzt einfach, schade um deine kostbare Zeit.

Bei den ca. 10-15 Rechnungen die ich monatlich schreibe kann ich weiter alles manuell eintragen.

Vielen Dank für deine Hilfe, auch wenn es nicht zum Erfolg geführt hat.

Schönes Wochenende
und viele Grüße
Marko

[markku]

Hallo Alois,

es funktioniert   
Vielen Dank nochmals für deine Geduld, auch wenn ich mich richtig doof angestellt habe.
Viele Grüße
Marko