Makro läuft nicht mehr
20.01.2004 19:16:19
Dieter
Habe das Makro von einem Bekannten bekommen,das Makro kopiert ein ganzes
TB. in ein anderes TB.
Es lief bei mir auch tadelos bis ich die nicht genutzten Zeilen ausgeblendet habe.
Weiß jemand einen Rat was ich nun daran verändern muss damit es wieder seinen
Dienst tut.
Sub sichern()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Set shQuelle = Worksheets("Blatt1")
Set shZiel = Worksheets("Sichern")
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 + 2)
End Sub
MfG Dieter