AW: Übertragen
05.04.2014 03:50:23
sigi
Hallo Rudi,
Danke, für Deinen Hinweis.
Habe mein Problem gelöst indem ich den Bereich kopiere und dann einfüge.
Sub Ubertragen()
Dim Z As Long
Dim R As Long
Dim loEnde As Long
Dim wksZ As Worksheet
Dim WksAng As Worksheet
Set wksZ = ThisWorkbook.Sheets("Z_Speicher")
Set WksAng = ThisWorkbook.Sheets("Angebot")
With wksZ
Z = .Cells(1, 10) - 1
End With
With WksAng
.Range(.Cells(19, 2), .Cells(37, 6)).ClearContents
loEnde = .Cells(Rows.Count, 5).End(xlUp).Row - 3
If loEnde = 38 Then
GoTo Step1
ElseIf loEnde 38 Then
If loEnde = 39 Then
.Range(.Cells(loEnde - 3, 2), .Cells(loEnde - 3, 7)).Delete
Else
R = loEnde - 39
.Range(.Cells(loEnde - 3, 2), .Cells(loEnde - R - 3, 7)).Delete
End If
End If
End With
With wksZ
Z = .Cells(1, 10)
R = Z - 17
If R
Gruß
Sigi