'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'kopiere ein Arbeitsblatt mittels VBA

Sub arbeite_auf_Kopie()
Dim newsh, oldsh As Worksheet


Set oldsh = ActiveSheet
oldindex = oldsh.Index

r = ActiveCell.Row
c = ActiveCell.Column

'erzeugt ein neues leeres Sheet
'im aktuellen Workbook _hinter_ dem aktuellen Worksheet
Set newsh = Worksheets.Add(, oldsh)
oldsh.UsedRange.Copy
newsh.Paste
newsh.Activate
Cells(r, c).Select

'oder! lege eine Kopie des aktiven Sheets
'in ein ganz neues Workbook einfach mit
'ActiveSheet.Copy

End Sub