nicht zusammengehörigen Bereich übertragen
01.02.2004 16:50:21
Peter
geht das ganze auch in einen "Ritt"?
Danke Peter
kl.Bsp.
Sub Übertragen()
'nicht zusammengehörigen Bereich übertragen
Worksheets("Ziel").Range("A4:C15").Value = _
Worksheets("Quelle").Range("A4:C15").Value
Worksheets("Ziel").Range("E4:E15").Value = _
Worksheets("Quelle").Range("G4:G15").Value
End Sub