Nach Druck Werte Kopieren
Heinz
Unteres Makro ist in einer UF.
Wenn ich auf Image1 Klicke druckt es mir den Workheets "Prüfungen" aus.
Bis dort hin funkt. alles.
Nun möchte ich aber das nach dem Druck die Werte von Sheets "OrgWert" B4:B13 in "Prüfungen" einträgt.
Dazu müsste erst in "Prüfungen" der Blattschutz aufgehoben werden "Vetro" und die Verbundenen Zellen
in B4:B13 aufgehoben werden.
Nach dem Prinzip: Ausdrucken - Werte von "OrgWert" B4:B13 in "Prüfungen" B4:B13 kopieren.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Private Sub Image1_Click()
Application.ActivePrinter = "NRG MP 2510 PCL 5e auf Ne01:"
Dim iClick As Integer
Dim ZeiJ As Long, SpaJ As Long
Dim SpaA As Long
Worksheets("Prüfungen").Visible = True
Sheets("Prüfungen").PrintOut
'---Bis hier alles in Ordnung
Sheets("OrgWert").Unprotect Password:="vetro"
Sheets("OrgWert").Range("B4:B13").Copy
Range("B4:B13").Select
Worksheets("Prüfungen").Unprotect Password:="vetro"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C10").Select
Worksheets("Prüfungen").Visible = xlVeryHidden
Worksheets("Prüfungen").Protect Password:="vetro"
'--- Ab hier auch wieder alles in Ordnung
Unload Me
Eingabe.CheckBox17.Value = False
Eingabe.CheckBox18.Value = False
Eingabe.CheckBox19.Value = False
Eingabe.CheckBox20.Value = False
Eingabe.CheckBox21.Value = False
Eingabe.CheckBox22.Value = False
Eingabe.CheckBox23.Value = False
Exit Sub
End Sub