Fehlermeldung
05.09.2003 20:51:34
Tim
ich habe mal wieder ein Problem. Ich habe ein Import-Makro geschrieben, das wie folgt aussieht:
Sub Import()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Cursor = xlWait
Dim Marktv As String
ActiveWorkbook.Name = Marktv
On Error GoTo Fehler
MsgBox "Bitte selektieren Sie die zu ladende Datei!"
ZuOeffnendeDatei = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
Workbooks.Open Filename:=ZuOeffnendeDatei
Range("H34:H550").Copy
On Error GoTo Fehler
Workbooks(Marktv).Activate
Sheets("Eingabe").Range("B11").PasteSpecial Paste:=xlValues
Workbooks(Marktv).Close
MsgBox ("Importieren erfolgreich!")
GoTo Ende
Fehler:
Application.Cursor = xlDefault
MsgBox ("Importieren fehlgeschlagen!")
Ende:
Application.Cursor = xlDefault
Application.ScreenUpdating = True
Sheets("Bilanz").Select
End Sub
Ich erhalte aber jedesmal beim Ausführen des Makros die Meldung "Fehler beim Kompilieren: Zuweisung an schreibgeschützte Eigenschaft nicht möglich". Wenn ich dann auf "Debuggen" klicke, färbt er die Zeile "ActiveWorkbook.Name = Marktv" ein. Also scheint das Zuweisen des Workbooknamens nicht zu funktionieren.
Kann mir jemand sagen, wo der Fehler liegt? Ich habe bereits im Archiv gesucht und einige Beispiele gefunden, aber da wird der Name des aktiven Workbooks auch nicht anders ausgelesen.
Mfg
Tim