Druck Makro abändern
26.01.2015 14:40:04
Karel
Ich habe ein Arbeitsblatt mit Tabelle Daten, Transportlabel und Transportliste
In Tabelle Daten sind Kundendaten erhalten je Zeile und am Enden steht ein Kontrollkästchen
Über unterstehende Makro kann ich Manuel ein Transportlabel mehrfach Drücken, WICHTIG ist das beim Druck der Zusatz gemacht wird Packstück 1 von 4 etc.
Meine Fragen ist wie kann dieses Makro geändert werden sodass der Druck als Schliefe lauft wenn Kontrollkästchen True dann aus Spalte M anzahl der Etiketten auslesen und Anzahl Drucken beim neue Zeile Sollte dann auch noch die richtige adressdaten ausgelesen werden dies mach ich im Moment Manuel durch in Tabelle Transportabel in Zelle A1 Zahl zu ändern (indexformeln)
Habe beispiel Mappe zu bessere Erklärung dazu gefügt.
https://www.herber.de/bbs/user/95280.xlsm
Option Explicit
Sub Druck()
Application.ScreenUpdating = False
Dim wks As Worksheet, lngBeleg As Long, strBeleg As String, strBeleg_1 As String, lngKopien _
As Variant
Dim intI As Integer
Dim ZelleBelNr As Range
lngKopien = Application.InputBox(Prompt:="Anzahl Ausdrucke?", _
Title:="Ausdruck mit Belegnummernzählung", _
Default:=1, _
Type:=2)
If lngKopien False Then
Set wks = Worksheets("Transportlabel")
With wks
Set ZelleBelNr = .Range("A20") 'Zelle mit Belegnummer
'Text zeichen Belegnummer
strBeleg = " von "
strBeleg_1 = "Packstück:"
'letzte Belegnummer ermitteln, Inhalt nach Text in Zahl verwandeln
If IsEmpty(ZelleBelNr) Then
lngBeleg = 0
'Else
'lngBeleg = CInt(Mid(ZelleBelNr.Text, Len(strBeleg) + 1))
End If
'Kopieen drucken
For intI = 1 To lngKopien
'neue Belegnummer berechnen
lngBeleg = lngBeleg + 1
'neue Belegnummer eintragen, ggf. Zahlenformat anpassen
ZelleBelNr.Value = strBeleg_1 + Format(lngBeleg, " 0 ") + strBeleg + lngKopien
'Blatt drucken
.PrintOut
'.PrintPreview 'zum Testen
Next
Worksheets("Transportlabel").Range("A20").Value = 0
Application.ScreenUpdating = True
End With
End If
End Sub
Karel