leider ist mir gestern der PC verreckt, so konnte ich nicht mehr antworten.
Danke für die Hilfestellung, aber trotz Veränderung des Codes tut sich nichts.
Übrigens, die Idee des einlesens von Zelleninhalten in die Variabe des Makros hat den Sinn, dass ich aus einer Mangelnummer ( z.Bsp 232E12345 ) die Kennung "E" auslese und dann soll in dem Makro die datei "MangellisteE.xls" eingetragen sein, damit diese geöffnet wird.
Bitte nochmal um Eure Hilfe
Josef
Dim pfad As String, datei As String
pfad = "'c:\- mangelmeldung\"
datei = Sheets("MangellisteE.xls").[a1].Text
Workbooks.Open Filename:=(pfad & datei), UpdateLinks:=0, ReadOnly:=False
Sheets("Ges-Liste").Select
Range("A4").Select
Selection.End(xlDown).Select