Dim
intFreie
As
Integer
Range(
"D5:H5"
).
Select
Selection.Copy
Sheets(
"Aufmaß"
).
Select
intFreie = ActiveSheet.Cells(Rows.Count, 1).
End
(xlUp).Row + 1
Range(
"A"
& intFreie).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Sheets(
"Hauptübersicht"
).
Select
Range(
"F5:H5"
).
Select
Application.CutCopyMode =
False
Selection.ClearContents
End
Sub