Pfad funktioniert nicht, warum?
01.04.2016 19:18:37
Knecht74
ich habe folgende VBA-Programmierung:
Private Sub Workbook_Open()
Dim MappeA As Workbook
Dim MappeB As Workbook
Dim BlattA As Worksheet
Dim BlattB As Worksheet
Dim PfadAlt As String
Dim AltesJahr As String
Dim Endung As String
Dim Pfad As String
Const ZielZelleEU As String = "A19"
Const QuellZelleEU As String = "B34"
Const ZielZelleZU As String = "I19"
Const QuellZelleZU As String = "I34"
Const ZielZelleFH As String = "M19"
Const QuellZelleFH As String = "M34"
Const ZielZelleSU As String = "P19"
Const QuellZelleSU As String = "P34"
Const ZielZelleSTD As String = "X5"
Const QuellZelleSTD As String = "AE34"
Const ZielZelleHT As String = "Y5"
Const QuellZelleHT As String = "AF34"
Const ZielZelleGT As String = "Z5"
Const QuellZelleGT As String = "AG34"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
PfadAlt = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 9)
AltesJahr = ThisWorkbook.Worksheets(3).Range("A17").Value
Endung = ".xlsm"
Pfad = PfadAlt & AltesJahr & Endung
Set MappeA = Me
Set MappeB = Workbooks.Open(Pfad)
For Each BlattA In MappeA.Worksheets
For Each BlattB In MappeB.Worksheets
If BlattA.Name = BlattB.Name Then
BlattA.Range(ZielZelleEU).Value = BlattB.Range(QuellZelleEU).Value
BlattA.Range(ZielZelleZU).Value = BlattB.Range(QuellZelleZU).Value
BlattA.Range(ZielZelleFH).Value = BlattB.Range(QuellZelleFH).Value
BlattA.Range(ZielZelleSU).Value = BlattB.Range(QuellZelleSU).Value
BlattA.Range(ZielZelleSTD).Value = BlattB.Range(QuellZelleSTD).Value
BlattA.Range(ZielZelleHT).Value = BlattB.Range(QuellZelleHT).Value
BlattA.Range(ZielZelleGT).Value = BlattB.Range(QuellZelleGT).Value
Exit For
End If
Next BlattB
Next BlattA
MappeB.Close False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Wenn ich den Pfad der Datei von Hand eingebe, funktioniert alles. Wenn ich den Pfad zusammen setzen lasse, wie oben versucht, und dann mit F8 die einzelnen Schritte überprüfe, steht auch der richtige Name bei Pfad, aber er übernimmt nicht die Werte aus der Datei, kann mir evt. jemand sagen warum? Bei mir liegt die Dateien im gleichen Ordner und nur die letzten 4 Zahlen vor der Endung sind unterschiedlich, diese neuen Zahlen holt er aus der Zelle "A17" und setzt den Rest wieder zusammen.Gruß Mike