variables Laufwerk
21.12.2005 11:27:21
gio
benötige letzte Hilfe für dieses Jahr.
In A1 (Blatt1) des geöffneten Tabellenblattes steht
=LINKS(ZELLE("dateiname";A1);3) Ergebnis: C:\
Mir gelingt es nicht die obige Info in untere Makros einzubauen,
sodaß immer auf das richtige Laufwerk zugegriffen wird
so irgendwie ChDir Range..... & "Programme\Ordner" aber wie?
Vielen, vielen Dank im voraus
Gio
Private Sub Workbook_Open()
ChDir "C:\Programme\Ordner"
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Programme\Ordner1\Tabelle1.xls"
ActiveWindow.Visible = False
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
End Sub
Sub Makro1()
ChDir "C:\Programme\Ordner3"
Workbooks.Open Filename:="C:\Programme\Ordner3\Tabelle2.xls"
ActiveWindow.ActivateNext
Range("A4").Select
End Sub
Anzeige