Wer kennt sich in VBA aus
22.01.2004 19:32:35
Sonja
Habe es von einer Freundin bekommen, es ist auch gebrauchsfähig aber wie kann ich es verändern so das es mir nur einen bestimmten Bereich Kopiert.
Der Bereich wäre von A2-W33 weil die darunter folgende Werte nicht so wichtig sind.
Sub Kopieren()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Set shQuelle = Workbooks("Bestell.xls").Worksheets("Tabelle1")
Set shZiel = Workbooks("Bestell.xls").Worksheets("Versand")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 1)
End Sub
Kann sich da mal jemand ein Auge drauf werfen,mein Dank im voraus..
Sonja