AW: Zelle kopieren und Schriftgröße ändern
29.12.2020 10:29:09
Christian
Komplette Code Zeilen, vielleicht hilft das weiter ....
Sub Speichern_Klicken()
'Arbeitsblätter anzeigen
Sheets("Kontrollkarte").Visible = True
Sheets("Kontrollkarte").Select
Sheets("Deckblatt").Visible = False
Sheets("Übertrag").Visible = True
Sheets("Kontrollkarte").Range("Counter_Schweißspritzer").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Grat").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Randfehler").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Stippen").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Zehrstellen").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "I").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Schlieren").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Range("Counter_Benetzungsfehler").Copy _
Destination:=Sheets("Übertrag").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).Font.Size = 8
Sheets("Kontrollkarte").Select
'Flimmern einschalten
Application.ScreenUpdating = True
'Arbeitsblätter anzeigen (Messung verbergen)
Sheets("Übertrag").Visible = True
Sheets("Übertrag").Select
Sheets("Kontrollkarte").Visible = True
Sheets("Kontrollkarte").Select
End Sub