Warum kann das nicht funktionieren?
07.04.2005 15:38:30
steve
ich habe von Hans ein Makro etwas umgebaut, aber leider funktioniert es nicht richtig, es ist zum löschen eines Makros in einer anderen Datei. Warum klappt dies bei mir nicht?
Sub loesche_anderemappe()
Dim sFile As String
Dim NewDateiname3 As String
Dim NewPfad3 As String
Dim prtcmd3 As String
With Sheets("Verknüpfungen")
NewDateiname3 = .Range("A23")
NewPfad3 = .Range("A22")
End With
prtcmd3 = NewPfad3 & NewDateiname3
Application.ScreenUpdating = False
sFile = NewPfad3 & NewDateiname3 & ".xls"
If Dir(sFile) = "" Then
MsgBox "Arbeitsmappe wurde nicht gefunden!"
Else
Workbooks.Open (Filename = prtcmd3 & ".xls")
On Error GoTo ERRORHANDLER
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Textimport")
End With
End If
Application.ScreenUpdating = True
Exit Sub
ERRORHANDLER:
MsgBox "Modul wurde nicht gefunden!"
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe.
MfG
Steve