Neues Tabellenblatt mit Name und geänderten Zellen

[Rabe]

Hi,

Code:

Sub M_snb()                          'Pfad angepasst, auf 16 Spalten erweitert
   With Sheets("RechnungsVorlage")
      .PrintOut
      .ExportAsFixedFormat 0, "C:\Temp\" & .[K23] & ".pdf"
      
      Sheets("Datenbankliste").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(, 16) = Array(.[K22], .[C16], .[C17], .[C18], .[C19], .[C20], .[C21], .[K23], .[K21], .[D30], .[F30], .[G30], .[H30], .[J30], .[K40], .[K42])
      .Cells(23, 11) = .Cells(23, 11) + 1
   End With
End Sub

cool, das gefällt mir!
Viel Arbeit gespart!

evtl. fehlt ein \ am Ende des Pfades?

[atilla]

Hallo Ralf,

gibt es wirklich immer nur eine Position pro Rechnung?

[Rabe]

Hi atilla,

gibt es wirklich immer nur eine Position pro Rechnung?

ich gehe vom bisherigen Stand aus und ich hatte ja geschrieben:

noch zu tun:

•    Einbau der Erweiterung der Datenbankliste auf mehrere verkaufte Artikel
  

Jetzt muß Nik sich mal äußern.

[Agentsmith]

Hallo zusammen,

boah ihr seit echt spitze! Erstmal vielen Dank. Die Datei gefällt mir sehr sehr gut.
Ich habe nur wenige Fragen:

1. Ist das Makro das "Snb" bereitgestellt hat bereits in der neuen Version enthalten? Ich gehe mal davon aus, da sich ja die Umsätze nun in der Datenbankliste wiederfinden.
2. Wenn ich in die Rechnungsvorlage etwas eingebe und dann probeweise auf den Button drücke, passieren bei mir folgende Dinge: a) Die Rechnung wird gedruckt, b) ein neues Arbeitsblatt wird erstellt (auch schon mit der richtigen Rechnungsnummer, c) eine neue Exceldatei wird erstellt mit der gedruckten Rechnung d) Die Daten werden in die Datenbankliste eingefügt  und e) es erscheint dann in beiden Exceldateien ein Warnhinweis mit rotem Kreuz auf dem in der Mitte "400" steht und oben "Microsoft Visual Basic Application".

Ist letzteres ein Fehler in meinen Einstellungen?

3. Ist es möglich oder sinnvoll, aus dem Button die Funktion "drucken" zu entfernen, denn ich werde die meisten Rechnungen per Email versenden. Ich kann zwar den Standarddrucker auf PDF stellen, aber ich denke das wäre wieder ein typischer "Nik-Umweg" :).

Im Grunde genommen ist es aber exakt was ich benötige, diese Datei ist Spitze. Zu der Thematik wie viele Positionen ich haben werden: Ich werde maximal 3 Positionen haben, dass heißt wir müssten es irgendwie hinbekommen, dass wir dann in der Datenbank ein Rechnung mit 3 Pos mit 2 Bezeichnungen übertragen.


Nochmal tausend Dank an alle, für eure Unterstützung.

[Rabe]

Hi Nik,

1. Ist das Makro das "Snb" bereitgestellt hat bereits in der neuen Version enthalten?
2. Wenn ich in die Rechnungsvorlage etwas eingebe und dann probeweise auf den Button drücke
[...]
Ist letzteres ein Fehler in meinen Einstellungen?

3. Ist es möglich oder sinnvoll, aus dem Button die Funktion "drucken" zu entfernen
[...]
Ich werde maximal 3 Positionen haben

1. Wenn Du mit ALT-F11 in den VBA-Editor gehst, siehst Du dort unten den 9-Zeiler von snb, angepasst von mir von 14 auf 16 Spalten für die Datenbankliste. Dieses kleine Makro macht das Gleiche, wie mein 52-zeiliges Teil.
   
2. Hast Du Dir das Makro angeschaut? Dort steht ein Pfad, in dem das PDF abgelegt wird, der steht momentan auf C:\Temp\, das mußt du natürlich anpassen. Eine weitere Exceldatei dürfte nicht aufgehen.
   Es wird nur das Blatt Rechnungsvorlage ausgedruckt, als PDF abgespeichert, die Daten in die Datenbankliste übertragen und dann der Rechnungsnummern-Zähler um 1 hochgesetzt.
   
3. Wenn Du in Zeile 3 von snbs Makro vor das .PrintOut ein ' setzt, wird nicht gedruckt. Falls die Rechnung wirklich in Papierform verschickt werden soll, kannst Du sie auch aus dem PDF-Dokument ausdrucken.
   

Hier nochmal das aktuelle File:

  2016 Rechnungen -Rabe - V2.xlsb (Größe: 25,68 KB / Downloads: 1)
Das Ausdrucken in Papierform und das lange Makro sind auskommentiert (erkennbar am grün).


Für weitere Artikel müssen erst (von Dir) die Zeilen bestimmt werden, in denen die weiteren 2 Positionen dann stehen sollen, dann kann das in snbs Makro ganz einfach ergänzt werden.

[Rabe]

Hi Nik,

Für weitere Artikel müssen erst (von Dir) die Zeilen bestimmt werden, in denen die weiteren 2 Positionen dann stehen sollen, dann kann das in snbs Makro ganz einfach ergänzt werden.

ich habe jetzt einfach mal angenommen, die neuen Artikel stehen mit einer Zeile Abstand unter dem ersten:

  2016 Rechnungen -Rabe - V3.xlsb (Größe: 30,75 KB / Downloads: 3)

Um die Datenbankliste für die Originaldatei zurückzusetzen, den Bereich der intelligenten Tabelle ohne Überschriften markieren (links am Rand von Spalte A, kleiner Rechtspfeil) und mit Rechtsklick, "Zellen löschen"
Dann bleibt nur dfie Überschrift und eine leere gelbe Zeile übrig. In diese wird dann die erste Rechnung eingetragen.

[Agentsmith]

Hi Nik,

Für weitere Artikel müssen erst (von Dir) die Zeilen bestimmt werden, in denen die weiteren 2 Positionen dann stehen sollen, dann kann das in snbs Makro ganz einfach ergänzt werden.

ich habe jetzt einfach mal angenommen, die neuen Artikel stehen mit einer Zeile Abstand unter dem ersten:


Um die Datenbankliste für die Originaldatei zurückzusetzen, den Bereich der intelligenten Tabelle ohne Überschriften markieren (links am Rand von Spalte A, kleiner Rechtspfeil) und mit Rechtsklick, "Zellen löschen"
Dann bleibt nur dfie Überschrift und eine leere gelbe Zeile übrig. In diese wird dann die erste Rechnung eingetragen.

Hallo Ralf,

tja was kann ich sagen, richtig gut. Das ist genau was ich suchte! klappt alles Spitze.
Nochmal tausend Dank an dich und alle Beteiligten.

Viele Grüße,
Nik