Clever-Excel-Forum

Hallo ALexandra,

da steht aber strPfadUndDatei und nicht strPfad oder strDatei ...

(10.01.2016, 17:00)schauan schrieb: [ -> ]Hallo ALexandra,

da steht aber strPfadUndDatei und nicht strPfad oder strDatei ...

Hallo Andre,


ich habe einfach den Code von oben von Uwe reinkopiert!?


VG
Alexandra

Hallo Alexandra,

ja. Wenn Du Variablen verwendest, müssen die irgendwo mal mit variable = ... mit Werten gefüllt werden, bevor Du was damit anstellen kannst. Bei strDatei = Dir(strPfad) passiert das anscheinend auch, aber weil in strPfad nix steht, bringt der Befehl auch nichts (r)ein. Außerdem könnte diese Zeile auch was verkehrtes bringen und nicht die Datei, die Du da geöffnet hast ...

Möglich wäre das z.B. mit:
strPfad = Left(strDateiundPfad, InStrRev(strDateiundPfad, "\"))
strDatei = Mid(strDateiundPfad, InStrRev(strDateiundPfad, "\") + 1)

Hallo Alexandra,

dank André´s Ausführungen fiel mir mein Fehler auf. Richtig wäre es so:

Sub aaa()

 Dim strDatei As String, strPfad As String, strPfadUndDatei As String

 

 strPfadUndDatei = Application.GetOpenFilename("Excel Datei, *.*") ' Datei auswählen

 

 If Not CVar(strPfadUndDatei) = False Then

   strDatei = Dir(strPfadUndDatei)

   Workbooks.Open Filename:=strPfadUndDatei

   strPfad = Workbooks(strDatei).Path & "\"

   '...

   Workbooks(strDatei).Close True

   Name strPfadUndDatei As strPfad & "xxxxx.xls"

 End If

End Sub

Gruß Uwe

Hallo Andre und Uwe,


vielen Danke, nun funktioniert es perfekt! :)

Bis bald :)
LG
Alexandra