Relative Pfade in Makros
04.10.2005 09:55:09
Ulf
ich hab mal wieder ein Problem, was wohl mal wieder gar keins ist...
Ich möchte in den Makros relative Pfade angeben können, um die Datei auf mehreren PCs laufen lassen zu können. Wie bekomme ich das hin?
Beispielcode:
Sub Speichern()
Dim dateiname As Variant
Dim fs As Variant
Range("F8:K26").Select
Selection.Copy
Range("A1").Select
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Worksheets(1).Activate
ChDrive "d:\"
ChDir "d:\Beispiel\Für\Absoluter\Pfad\"
dateiname = Application.GetSaveAsFilename _
("", "Micrsoft Excel-Dateien (*.xls),*.xls")
If dateiname = False Then Exit Sub
Sheets(1).Cells(23, 1) = dateiname
ActiveWorkbook.SaveAs Filename:=dateiname
ActiveWindow.Close
End Sub
Die Datei, in der das Makro steckt, befindet sich auf der Ebene d:\Beispiel\Für\Absoluter\
Vielen Dank,
Ulf