Codefehler bei SheetExist
WalterK
ich benutze Office 2010, die Datei benötige ich dann aber in Office 2003 und speichere sie deshalb als .xls ab.
Folgender Code bringt bei SheetExist die Meldung: Fehler beim Kompilieren. Sub oder Funktion nicht definiert.
Option Explicit
Sub ZeitenEinlesen()
Dim objSh As Worksheet
Dim LzB1 As Long
Dim LzBearb As Long
With Sheets("Bearbeitungsblatt")
If SheetExist(.Range("T1").Text) Then
.Unprotect
Set objSh = Sheets(.Range("T1").Text)
LzBearb = .Cells(.Rows.Count, 1).End(xlUp).Row
LzB1 = objSh.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
.Range(.Cells(1, 1), .Cells(LzBearb, 19)).ClearContents
objSh.Range(objSh.Cells(1, 1), objSh.Cells(LzB1, 19)).Copy .Cells(1, 1)
.Range(.Cells(1, 1), .Cells(LzBearb, 19)).Columns.AutoFit
Application.ScreenUpdating = True
.Protect
Else
MsgBox "Das für den Datenimport erforderliche Blatt gibt es nicht!"
End If
End With
End Sub
Besten Dank und Servus, Walter