Fehlermeldung
21.02.2009 23:59:10
Werner
ich hab mal wieder ein Problem, nachdem ich mein Windows bzw das Excel neu Instaliert habe, Funktioniert das Nachfolgende makro nicht mehr: Folgende Fehlermeldung "Fehler beim Kompilieren: Projekt oder Bibliothek nicht gefunden es handelt sich um den Bereich : If Dir(Chr(...... der Text Chr wird blau hinterlegt.
Wo könnte das Problem liegen und wie kann man das Lösen ?
Private Sub CommandButtonTabelle1_Click()
Dim vLinks, ii As Integer, strB As String
Dim lstrFile As String, liLW As Integer
Application.EnableEvents = False
On Error GoTo fehler:
For liLW = 67 To 90
If Dir(Chr(liLW) & ":\Kalkulation-Kostenrechnung-Römerbad\Mitarbeiterablage.xls") "" _
_
_
_
Then
lstrFile = Chr(liLW) & ":\Kalkulation-Kostenrechnung-Römerbad\Mitarbeiterablage.xls" _
On Error GoTo 0
Exit For
weiter:
End If
Next
If lstrFile = "" Then
MsgBox "Auf keinem der Laufwerke von C: - Z: existiert eine Datei mit dem Namen '' _
Mitarbeiterablage.xls ''" & vbCrLf & "oder das Verzeichnis ''\Kalkulation-Kostenrechnung-Rö _
merbad'' ist nicht vorhanden", vbExclamation, "Hinweis"
Exit Sub
End If
Workbooks.Open Filename:=lstrFile
Windows("KalkulationKostenrechnungRömerbad25_08_2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' Blatt umbenennen
strB = ActiveSheet.Cells(2, 2)
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
" war bereits vorhanden.", vbExclamation, "weise hin..."
ActiveSheet.Shapes("CommandButtonMA1").Left = Range("F1").Left 'CommandButton Positionieren
ActiveSheet.Shapes("CommandButtonMA1").Top = Range("F1").Top
Workbooks("Mitarbeiterablage.xls").Close True ' Mitarbeiterablage speichern + schließen
Else
ActiveSheet.Name = strB
Workbooks("Mitarbeiterablage.xls").Close True
End If
Windows("KalkulationKostenrechnungRömerbad25_08_2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Range("B3,B4,E2,E3,K9:O47,G10:I10,E15:G18,J14,V11:V22,AA11:AE22,P14:P17"). _
ClearContents
Exit Sub
fehler:
Resume weiter
Application.EnableEvents = True
End Sub
Gruß Werner