Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 12:57:34 Thomas
NotSolved
16.03.2021 17:20:00 Gast83019
NotSolved
18.03.2021 07:28:34 Thomas
NotSolved
Blau Mehrfachen Druck verhindern
 18.03.2021 17:46:17 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
18.03.2021 17:46:17		 Views:
782		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachen Druck verhindern

Hallo Thomas,

ich weiß nicht ob Armin hier nochmal reinschaut, deshalb versuche ich mal zwischenzeitlich dir zu helfen. Allerdings hab ich das erst genauso verstanden wie er. Mit deiner neuen Beschreibung kommen wir auch nicht viel weiter. Denn genau das mach dein zuerst gepostetes Makro doch. Er druckt nach allen 4 Copy-Vorgängen jeweils einmal aus. Allerdings werden aufgrund der verschachtelten Schleifen bis zu 3 der 4 Werte mehrfach kopiert, sodass sich manchmal nur 1 Wert ändert. Gibts denn einen Grund für die verschachtelten Schleifen? wenn du nur drucken willst nachdem sich alle 4 Werte geändert haben reicht doch eine Schleife aus.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub BlattAusdruck()
 
Dim a As Integer
 
For a = 9 To 10
    Sheets("Umplatzierung").Cells(a, 1).Copy
    Sheets("Vorlage").Range("D47").PasteSpecial
    Sheets("Umplatzierung").Cells(a, 4).Copy
    Sheets("Vorlage").Range("L47").PasteSpecial
    Sheets("Umplatzierung").Cells(a, 2).Copy
    Sheets("Vorlage").Range("D11").PasteSpecial
    Sheets("Umplatzierung").Cells(a, 3).Copy
    Sheets("Vorlage").Range("D28").PasteSpecial
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
 
End Sub

Oder willst du wirklich jede Kombination aus diesen Werten drucken? In dem Fall ist dein geposter Code völlig in Ordnung.

Beschreib einfach nochmal anhand von Beispielergebnissen, was du eigentlich drucken willst.

Gruß Mr. K.  

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 12:57:34 Thomas
NotSolved
16.03.2021 17:20:00 Gast83019
NotSolved
18.03.2021 07:28:34 Thomas
NotSolved
Blau Mehrfachen Druck verhindern
 18.03.2021 17:46:17 xlKing
NotSolved