Hilfe, Code bleibt am Ende hängen!
26.05.2021 13:43:03
Eisi
bis jetzt hat alles funktioniert: letzter Code in der Beispielmappe ->
Public Sub AngebotInExcelCopy()
Die Code-Zeilen machen alles was sie sollen, aber ab hier:
' Ab hier funktionieren die restlichen Code-Zeilen nicht mehr!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
With wksZiel
rngCopy.Copy
With .Range("B3")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
End With
' Weil die nachfolgende Code-Zeile hier nicht mehr funktioniert, habe ich den _
Code oben zum *Blatt einfügen* dazu geschrieben und an der Stelle geht er.
' .Name = Range("C3").Text
End With
'___ZielDatei speichern._________________________________
wbkZiel.Save
'___Blatt wieder sperren._____________________________________
tbl_AngebotDrucken.Protect ("")
' ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
' Damit Bilder in den Druckbereich eingefügt werden können. Ansonsten kann ich nach Protect nur Text einfügen!
endmacro:
Application.ScreenUpdating = True
End Sub
bleibt der Code hängen und kopiert mir den Inhalt des Bereiches nicht in die neue Tabelle.Warum ist das so?
Vielen Dank für die Hilfe.
VG Eisi :-)
https://www.herber.de/bbs/user/146387.xlsm