Verzeichnisverweis relativ oder absolut
17.02.2006 15:27:36
Joachim
Ich hab einige Makros gemacht in denen man (wenn man auf einen Button drückt) auf eine Datei kommt die im Unterordner liegt in der weitere Informationen stehen.
Hauptordner
/ \
Unterordner Unterordner
So jetzt ist das Problem, wenn ich den Hauptordner jemandem anderes gebe dann findet er den Verweis nicht.
Jetzt steht im VBA:
Sub h3_adm()
' h3_adm Makro
ActiveSheet.Shapes("AutoShape 4").Select
Selection.Characters.Text = "ADM"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("Q4").Select
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Joe\Desktop\Auto\Hepatology\H3-ADM\Antiinfectiva.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Menü").Select
ActiveSheet.Shapes("Object 11").Select
Range("A1").Select
End Sub
Wie mache ich das, dass wenn ich jemandem den Hauptordner gebe auch alle Verknüpfungen zu den Unterordnern gehen.
Vielen Dank Joe
Anzeige