Fehler 1004 - Die Select Methode des Ran
20.09.2021 11:30:45
natalie
Ich habe eine Vorlage runtergeladen. Diese funktioniert, doch bei der Kopie der Mappe funktioniert dies nicht mehr. Kann mir jemand helfen?
Sub AddNewTask()
' Author: Lukas Rohr (ExcelNova.org)
' Date: 08.01.2014
' Purpose: Adds a new task to the list
Dim RowLen As Integer, ColLen As Integer
Dim MaxNum As Long
Application.ScreenUpdating = False
RowLen = wsToDoList.UsedRange.Rows.Count
ColLen = wsToDoList.UsedRange.Columns.Count
With wsToDoList
MaxNum = WorksheetFunction.Max(.Range("A3:A" & RowLen))
.Cells(RowLen, 1).Offset(1, 0).Resize(1, ColLen).Select
With Selection.Resize(1, 1)
.Offset(0, 0) = MaxNum + 1
.Offset(0, 3) = Date
.Offset(0, 4) = Application.UserName
.Offset(0, 1).Select
.EntireRow.RowHeight = 34
End With
End With
Application.ScreenUpdating = True
End Sub