Code für Dateibezug umschreiben
03.08.2005 19:58:30
Alex
ich habe folgenden Code:
Private Sub CommandButton1_click()
Workbooks("Mappe1.xls").Close SaveChanges:=True
End Sub
Ich möchte den Namen und Pfad der Mappe ändern können, ohne den Code ständig zu ändern. Der Pfad und Dateiname ist im Blatt Übersich in der Zelle B58 angebenen:
Sheets("Übersicht").Range("B58").Value
Wie muss der Code nun aussehen, damit es funktioniert?
Danke für die Hilfe
Alex