Hilfe bei MAkro
15.11.2002 11:44:47
Thomas
Kann mir jemand sagen, warum bei unten geschriebenem Makro nach dem Kopieren die 1. Zeile frei ist? Das verhaut mir dauernd den Seitenumbruch...Private Sub CommandButton2_Click()
Worksheets("Archiv").Unprotect password:=""
Worksheets("Kunde").Unprotect password:=""""
Dim wksA As Worksheet, wksk As Worksheet
Dim lar As Long
Set wksA = Worksheets("Kunde")
Set wksB = Worksheets("Archiv")
Application.ScreenUpdating = False
lar = wksB.Cells(Rows.Count, 2).End(xlUp).Row
wksA.Range("a1:m39").Copy
wksB.Cells(lar + 1, 1).PasteSpecial Paste:=xlPasteValues
wksB.Cells(lar + 1, 1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
ActiveSheet.Protect password:=""
Worksheets("Archiv").Protect password:=""
End Sub