title image


Smiley WName brauchst du gar nicht!
Hallo,



der Fehler tritt auf, weil in "WName" auch der gesamte Pfad steht. Du müsstest nur den Workbook-Name auslesen. Aber es reicht auch "Activeworkbook":



Private Sub CommandButton1_Click()

Dim WName As Variant

Const LW = "c:\"

Const Pfad = "c:\Dokumente und Einstellungen"

ChDrive LW

ChDir Pfad

WName = Application.GetOpenFilename("Excel-dateien(*.xls),*.xls")

If WName = False Then Exit Sub

Workbooks.Open Filename:=WName

ActiveWorkbook.Sheets(1).Range("A1").Value = "Hier kommt Text"

End Sub
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: