Etiketten drucken, mit untersch. Nummern

Forumthread: Etiketten drucken, mit untersch. Nummern

29.01.2013 18:31:04

Helmut

Ich kriege das nicht hin, vertraue nur noch auf Euch!
Mein Problem: Ab Spalte E85, E86, ...sind Werte herausgefiltert, die in eine Zelle eines Etiketts (C12) übernommen werden sollen, um dieses schließlich mehrfach auszudrucken. Zu Anfang wird die Zelle (C12) mit dem 1. Wert, also aus E85 versorgt und dann zum Drucken gesendet. Dann sollte abgefragt werden, ob E86 eine Zahl enthält. Wenn ja, soll diese nach C12 übernommen und gedruckt werden. Dann Abfrage E87 usw. solange, bis eine Folgezelle aus "E" keine Zahl mehr enthält.
Die Anzahl der Ausdrucke mit identischer Zahl ist in einer Zelle M17 festgelegt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Etiketten drucken, mit untersch. Nummern

30.01.2013 00:44:24

fcs

Hallo Helmut,
probier dein Glück mal mit dem folgenden Makro.
Gruß
Franz

Sub EttikettenDrucken()
Dim Zeile As Long
Dim wksEtikett As Worksheet
Dim wksVorgabe As Worksheet
'Für die Ettketten und die Vorgaben darf auch das gleiche Tabellenblatt angegeben werden
Set wksEtikett = Worksheets("Etikett")
Set wksVorgabe = Worksheets("Vorgaben")
With wksVorgabe
If IsNumeric(.Range("M17")) And .Range("M17") > 0 Then
If MsgBox("Jetzt " & .Range("M17").Text & " Kopien je Etikett drucken", _
vbQuestion + vbOKCancel, _
"Etiketten drucken") = vbCancel Then Exit Sub
If .Range("E85")  "" Then
For Zeile = 85 To .Cells(.Rows.Count, 5).End(xlUp).Row
If Not IsNumeric(.Cells(Zeile, 5)) Then Exit For
wksEtikett.Range("C12").Value = wksVorgabe.Cells(Zeile, 5).Text
wksEtikett.PrintOut Copies:=wksVorgabe.Range("M15").Value
Next
MsgBox "Alle Druckaufträge abgesendet."
Else
MsgBox "kein Eintrag in Zelle ""E85""", _
vbInformation + vbOKOnly, "Etiketten drucken"
End If
Else
MsgBox "Für die Anzahl der Kopien ist kein nummerischer Wert >0 eingegeben", _
vbInformation + vbOKOnly, "Etiketten drucken"
End If
End With
End Sub

AW: Etiketten drucken, mit untersch. Nummern

30.01.2013 16:57:55

Helmut

Hallo Franz, bin Dir sehr dankbar, das sieht nach mehr Aufwand aus als ich dachte.

AW: Etiketten drucken, mit untersch. Nummern

31.01.2013 02:01:34

fcs

Hallo Helmut,
es geht auch etwas kürzer, wenn man die Prüfungen der Eingaben wegläßt, aber das ist für den Anwender nicht sehr informativ, wenn ein Fehler bei inkonsistenten Eingaben auftritt.
Gruß
Franz

Sub EttikettenDrucken_2()
Dim Zeile As Long, wksEtikett As Worksheet, wksVorgabe As Worksheet
On Error GoTo Fehler
If MsgBox("Jetzt drucken", vbOKCancel) = vbCancel Then Exit Sub
Set wksEtikett = Worksheets("Etikett")
Set wksVorgabe = Worksheets("Vorgaben")
For Zeile = 85 To wksVorgabe.Cells(wksVorgabe.Rows.Count, 5).End(xlUp).Row
If Not IsNumeric(wksVorgabe.Cells(Zeile, 5)) Then Exit For
wksEtikett.Range("C12").Value = wksVorgabe.Cells(Zeile, 5).Text
wksEtikett.PrintOut Copies:=wksVorgabe.Range("M15").Value
Next
Exit Sub
Fehler:
MsgBox "Fehler-Nr." & Err.Number & vbLf & Err.Description, _
vbInformation + vbOKOnly, "Etiketten drucken"
End Sub

Beliebteste Forumthreads (12 Monate)

Etiketten drucken, mit untersch. Nummern

Forumthread: Etiketten drucken, mit untersch. Nummern

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Etiketten drucken, mit untersch. Nummern

Forumthread: Etiketten drucken, mit untersch. Nummern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread