Button und Ausdruck eines 2. Datenblattes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DruckMakro() Dim i As Integer Dim LRow As Long 'Application.ScreenUpdating = False On Error Resume Next LRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LRow Sheets(2).Range("a1:c1").ClearContents Sheets(2).Range("a1:c1") = Sheets(1).Range("a" & i & ":c" & i).Value Sheets(2).PrintOut Copies:=1, Collate:=True Next i Application.ScreenUpdating = True End Sub

Hallo Namensvetter,
hier noch mal die genaue Beschreibung meines Problems (deinen Tip werde ich heute abend ausprobieren):
In meiner Datei gibt es zwei Datenblätter (Spielpaarungen und Spielbericht). Die Spielpaarungen sind unter anderem mit drei Spalten (A:Spielnummer, B:Mannschaft1 und C:Mannschaft2)aufgebaut, wobei aber z. T. einzelne Zellen bei den Mannschaften nicht belegt sind. Im Spielbericht gibt es u.a. drei Felder für die Mannschaften und die Spielnummer. Nun möchte ich erreichen, dass (wenn möglich nach dem drücken eines Buttons) nacheinander alle Zeilen (ab Zeile 3) von "Spielpaarungen" überprüft werden, ob eines der drei Felder leer ist. Ist kein Feld leer, sollen die Daten in das entsprechende Feld in "Spielbericht" übernommen, der Spielbericht ausgedruckt und dann zur nächsten Zeile gesprungen werden. Wenn Feld 2 oder 3 (Mannschaften) leer ist, soll ohne Ausdruck zur nächsten Zeile gesprungen werden. Ist Feld 1 (Spielnummer) leer, kann die Überprüfung beendet werden.
Im voraus vielen Dank!
Harald

Hi nochmal,
der Code läuft ab Zeile 3 bis zur letzten gefüllten Zelle in Blatt 1 Spalte A.
Prüfung, ob Spalten A, B und C jeder Zeile gefüllt sind.
Wenn nicht, nächste Zeile
Wenn ja, löscht er die Inhalte im 2.Blatt A1:C1 , übernimmt die 3 Werte aus dem ersten Blatt dorthin und druckt Blatt 2 aus, danach wartet er 2 Sekunden (damit der Druckerspeicher nicht überläuft)
und startet den nächsten Durchlauf.
Am Schluss kommt dann noch ne Meldung.


Sub DruckMakro1()
Dim i As Integer
Dim LRow As Long
Application.ScreenUpdating = False
On Error Resume Next
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To LRow
If WorksheetFunction.CountA(Range("a" & i & ":c" & i)) = 3 Then
Sheets(2).Range("a1:c1").ClearContents
Sheets(2).Range("a1:c1") = Sheets(1).Range("a" & i & ":c" & i).Value
Sheets(2).PrintOut Copies:=1, Collate:=True
End If
Application.Wait (Now + TimeValue("0:00:02")) 'Wartezeit in Sekunden
Next i
Application.ScreenUpdating = True
MsgBox "Alle Druckaufträge wurden gesendet"
End Sub

Hoffe das hilft
Harald

Beliebteste Forumthreads (12 Monate)

Button und Ausdruck eines 2. Datenblattes

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button und Ausdruck eines 2. Datenblattes

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread