Supportnet / Forum / Tabellenkalkulation

Hilfe! Brauche eine Rechnungsvorlage wo die RechnungsNr. Automatisch weiterzählt Eine Vorlage habe ich mir schon vorbereitet nur das mit der RechnungsNr bring ich nicht hin. Liebe Grüße Georg

hi alle

hier ein beispiel makro falls brauchbar.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
anfang% = Range("i25")
For t% = 1 To 28 Step 4
anfang% = anfang% + 1
Range("d" & t%) = anfang%
anfang% = anfang% + 1
Range("i" & t%) = anfang%
Next t%
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
End Sub

in diesem beispiel wird der zaehler(rechnungsnummer)beim oeffnen einer datei um eins hochgezaehlt,in diesem falle werden alle 14 zahlen(bzw. zellen) bei jedem oeffnen um eins hochgezaehlt und danach gespeichert und 1 ausdruck gemacht,zum besseren nachvollziehen vielleicht :
d1,d5,d9,d13,d17,d21,d25
i1,i5,i9,i13,i17,i21,i25
waeren die rechnungsnummern.

oder als normales makro,dieses beispiel

Sub SeitenDruck300()
Application.ScreenUpdating = False
For e% = 1 To 200
anfang% = Range("i25")
For t% = 1 To 28 Step 4
anfang% = anfang% + 1
Range("d" & t%) = anfang%
anfang% = anfang% + 1
Range("i" & t%) = anfang%
Next t%
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next e%
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

arbeitsweise und positionen wie bei dem anderen nur das hier zweihundert einzelne druckauftraege rausgehen.

gruss nighty

• Ich möchte in Excel den Inhalte aller TXT-Dateien eines Verzeichnisses in ein Excel Blatt kopieren.
• Bestimmten Tabellenbereich einer xlt Vorlage als xls speichern
• Schwarz-Weiss-Druch von farbiger Workstabellen-Vorlage klappt nicht
• Excel 2002 Dateien in Excel 2007 für MS Vista Home Premium
• Excel Tabele in eine Publisher Vorlage importieren?