Codefehler
WalterK
Im untenstehen Code scheint ein Fehler zu sein, es wird die Fehlermeldung
"Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler" ausgegeben.
Mit dem Code kopiere ich einen Bereich von einem bestimmten Blatt in das aktive Blatt.
Option Explicit
Sub DN_Zeitgraphik()
Dim objSh As Worksheet
Dim LzAct As Long, LzAlt As Long
With Sheets("DN_Zeitgraphik")
If SheetExist(.Range("U1").Text) Then
.Unprotect
Set objSh = Sheets(.Range("U1").Text)
LzAct = Application.Max(3, .Cells(.Rows.Count, 2).End(xlUp).Row) 'letzte Zeile der Spalte _
B im aktiven Blatt
LzAlt = objSh.Application.Max(3, Cells(Rows.Count, 2).End(xlUp).Row) 'letzte Zeile der _
Spalte B laut dem in DN_Zeitgraphik Zelle U1 angegebenen Blattnamen
Application.ScreenUpdating = False
ActiveSheet.Range(.Cells(3, 1), .Cells(LzAct, 19)).ClearContents
objSh.Range(.Cells(3, 1), Cells(LzAlt, 19)).Copy ActiveSheet.Range(.Cells(3, 1), Cells( _
LzAlt, 19))
ActiveSheet.Range("U2").Select
Application.ScreenUpdating = True
.Protect
Else
MsgBox "Das erforderliche Tabellenblatt existiert in dieser Mappe nicht, der Code wird _
daher abgebrochen! "
End If
End With
End Sub
Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Worksheets
If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function
Besten Dank und Servus, Walter