Rechnungsvorlage

[Ubi5]

An Gast123!

Recht herzlichen Dank für die großartige Unterstützung bzw. für ihre Geduld - funktioniert einwandfrei.

Danke, Danke!

GLg aus Tirol
Ubi5

[Gast 123]

Hallo

freut mich das ich auch mal für Tirol gearbeitet habe.  Schön zu hören.
Ganz liebe Grüsse zurück von einem gebürtigem Kölner aus Izmir/TR

mfg Gast 123

[Ubi5]

Habe noch einmal eine Frage zur tieferstehenden Anweisung:

 und zwar zu - Range("A1:D47").PrintOut Copies:=2

Ist es machbar, dass auf dem 1. Ausdruck in der Zelle D3 "Original" steht und im 2. Ausdruck in der Zelle D3 "Kopie" steht.

Danke - Lg Ubi5


Sub DruckeBereich()
Dim ReNr As Variant, rFind As Range
ReNr = Sheets("Vorlage").Range("A10")

'Prüfung ob diese Rechnung existiert?
Set rFind = Sheets("Daten").Range("Tabelle2[[RNr.]]").Find(what:=ReNr, LookAt:=xlWhole)
If rFind Is Nothing Then MsgBox "Diese Rechnung fehlt in 'Daten'!", vbCritical: Exit Sub

'Prüfung ob diese Rechnung schon gedruckt wurde?
If Sheets("Daten").Range("Tabelle2[[Print]]").Cells(rFind.Row - 1, 1) = "gedruckt" Then
  MsgBox "Diese Rechnung wurde bereits gedruckt!", vbInformation: Exit Sub
End If

'Prüfung ob diese Rechnung in Betrag existiert?
Set rFind = Sheets("Betrag").Range("Tabelle1[[RNr.]]").Find(what:=ReNr, LookAt:=xlWhole)
If rFind Is Nothing Then MsgBox "Diese Rechnung fehlt in 'Betrag'!", vbCritical: Exit Sub

'** Range auf Spalte F erweitern??
Range("A1:D47").PrintOut Copies:=2

'Druckvermerk in Daten notieren
Set rFind = Sheets("Daten").Range("Tabelle2[[RNr.]]").Find(what:=ReNr, LookAt:=xlWhole)
Sheets("Daten").Range("Tabelle2[[Print]]").Cells(rFind.Row - 1, 1) = "gedruckt"

'Druckvermerk in Betrag notieren
Set rFind = Sheets("Betrag").Range("Tabelle1[[RNr.]]").Find(what:=ReNr, LookAt:=xlWhole)
Sheets("Betrag").Range("Tabelle1[[Print]]").Cells(rFind.Row - 1, 1) = "gedruckt"
End Sub

[Gast 123]

Hallo

normalerweise geht es nicht, aber man kann tricksen!  Dazu fällt mir spontan diese Lösung ein.
Würde mich freuen wenn es so klappt, habe es aber selbst nie ausprobiert.

'** Range auf Spalte F erweitern??
Range("D3").Value = "Original"

Range("A1:D47").PrintOut Copies:=1 
Range("D3").Value = "Kopie"
Range("A1:D47").PrintOut Copies:=1

mfg Gast 123

[Ubi5]

Funktioniert einwandfrei - recht herzlichen Dank!

Lg Ubi5