ich möchte gerne Eure Hilfe in anspruch nehmen. Ich habe mir unten stehenden VBA Code "zusammen gebastelt" nur bei einer Sache komme ich nicht weiter. Der Code löst einen Druck aus bzw. soviele Ausdrucke wie gewünscht, ich möchte das, wenn mehr als ein Ausdruck gestartet wird auf allen, außer auf dem ersten das wort KOPIE in der Zelle A1 steht.
Schon mal vielen Dank für die Hilfe.
Gruß Seppel
Sub Drucken_1_1()
Dim Kopien As Variant
If MsgBox("Drucken?", vbYesNo, "Drucken") = vbYes Then
Do
Kopien = InputBox("Anzahl Kopien", "Drucken", 1)
If StrPtr(Kopien) = 0 Then Exit Sub
If IsNumeric(Kopien) Then Exit Do
MsgBox "Bitte eine Zahl eingeben!", vbExclamation, "Hinweis"
Loop
ActiveSheet.PrintOut From:=1, To:=1, Copies:=CLng(Kopien)
End If
Dim pfad, name1, name2 As String
pfad = "C:\pfad"
name1 = Cells(12, 1)
name2 = Cells(12, 2)
Dim i As Long
End Sub