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

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+ ein paar Funktionen, die dazu verwendet werden können
'+ NICHT ZUSAMMENHÄNGENDE BEREICHE eines Arbeitsblattes
'+ zu kopieren und an anderer Stelle wieder einzufügen!
'+ Man muß dafür lediglich zusätzlich das AddIn
'+ copy_paste_areas.xla laden/installieren.
'+ ... zu finden auf meiner Homepage unter:
'+ http://www.rendar.de/excel/copy_paste_areas.xla
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+ die Funktionsaufrufe in der eigenen XLS Datei können dann
'+ ähnlich wie die Beispiel_Sub's unten aussehen.
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub a_copy()
Run "copy_paste_areas.xla!copy_areas"
End Sub
'
'kopiert eine Selection, die sich aus beliebig vielen nicht 
'zusammenhängenden Rechteckbereichen eines Arbeitsblattes 
'zusammensetzen kann. (Als Clipboard dient das versteckte
'Arbeitsblatt des AddIn)


Sub a_paste()
Run "copy_paste_areas.xla!paste_areas"
End Sub
'
'fügt den zuvor kopierten Bereich ab der ActiveCell ins aktive
'Arbeitsblatt ein. Dabei gilt folgendes:
'1. Die ActiveCell übernimmt Daten/Formeln/Format aus der 
'   ERSTEN Zelle des ersten selektierten Rechteckbereiches der
'   kopierten Selection (i.w. Ursprungszelle)
'2. alle übrigen Zellen haben in der ursprünglichen Selection
'   den gleichen Zeilen- und Spaltenabstand zur Ursprungszelle,
'   wie die Zellen im Zielbereich zur ActiveCell
'3. Originalbereich und Kopie haben die GLEICHE Ausdehnung und Form.


Sub del_area_clip()
Run "copy_paste_areas.xla!delete_area_clipboard"
End Sub
'
'löscht bei Bedarf die Kopie im nicht sichtbaren Arbeitsblatt des AddIn


Sub a_paste_format()
Run "copy_paste_areas.xla!paste_areas", xlPasteFormats
End Sub
'
'fügt nur die Formate in den Zielbereich


Sub a_paste_values()
Run "copy_paste_areas.xla!paste_areas", xlPasteValues
End Sub
'
'fügt nur die Werte in den Zielbereich


Sub a_paste_formulas()
Run "copy_paste_areas.xla!paste_areas", xlPasteFormulas
End Sub
'
'fügt nur Formeln in den Zielbereich


'wer will oder muß kann sich weitere EIGENE Sub's nach 
'obigen Mustern erstellen.