ThisWorkbook.Path, Da ist noch der Wurm drin
13.12.2004 21:10:48
Steffi
habe ich das Richtig verstanden ?
Etwa so:
Private Sub CommandButton13_Click()
'Felge
OpenFile ("D:\Felgenblatt\Felge1.gif") [ALT]
End Sub
OpenFile Pfad = ThisWorkbook.Path & "\Felgenblatt\Felge1.gif" [NEU]
Bitte um kurze Rückantwort
Danke Steffi