title image


Smiley Per VBA: CHDIR und CHDRIVE
Hallo sorbas,



das ist per VBA möglich : Kopiere folgenden VBA-Code in das Klassenmodul "DieseArbeitsmappe" der Mappe "Einzelhändler" :





Public oldDir

Public oldDrive



Private Sub Workbook_Activate()

    oldDir = CurDir

    oldDrive = Left(CurDir, 2)

    ChDrive "D:"

    ChDir "D:\MeineExcelDaten\Einzelhändler"

End Sub



Private Sub Workbook_Deactivate()

    ChDrive oldDrive

    ChDir oldDir

End Sub









Den Pfad ("D:\MeineExcelDaten\Einzelhändler") und das Laufwerk (D:) musst Du im Code natürlich noch anpassen.

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: