Erste freie Zelle
Peter
ich habe folgendes Problem:
nachstehendes Makro funktioniert in einem anderen Projekt, aber hier blockiert es immer in der Befehlszeile
Cells(Range("A1").End(xlDown).Row + 1, 1).Select
Aufgabe des Makros ist es Daten aus der Tabelle "Jul" in die erste leere Zeile ab Spalte A der Tabelle "Mahnungen" zu übertragen.
Ich habe es auch mit anderen gleichartigen Befehlen versucht, aber immer der gleiche Misserfolg.
Sub Mahnungen()
ActiveSheet.Unprotect
ActiveCell.FormulaR1C1 = "1.Mahnung"
ActiveCell.Offset(0, -14).Range("A1:J1").Select
Selection.Copy
Sheets("Mahnungen").Select
Cells(Range("A1").End(xlDown).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Jul").Select
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(0, 14).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Wer kann mir bitte helfen den Fehler zu finden.
Vielen Dank im voraus
Peter