Dim iRow As Integer
With Worksheets("Druck")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("Druck").Rows(30
Kann mir jemand helfen? Vielen Dank im voraus
Mit freundlichen Grüßen
H.Burkard
Sub Werte_Format()
' Formeln ersetzen durch Werte mit Formate
' Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address). _
Copy
' Vorschlag Verbesserrung NoNet
Workbooks("Datei1.xls").Worksheets("Tabelle1").UsedRange.Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False
End Sub
ActiveCell.EntireRow.Copy
With Worksheets("Druck").Cells(30, 1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False