Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Etiketten drucken, mit untersch. Nummern

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.

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen