workbook.open(".../name.xls") funktioniert nicht
alex
gestern hatte mir michaV den tipp mit dem relativen pfad gegeben
Workbooks.Open ("../kontakte.xls") (bei mir heißt sie workbooks.open("../wartung.xls"))
nur leider kann er die angegebene datei nicht finden obwohl sie obwohl sie im übergeordneten verzeichnis liegt.
z:\wartungslisten\wartung aktuell\wartung.xls z:\wartungslisten\wartung aktuell\bma vds\vorlage.xls mein code:
Sub Mängelliste()
' Mängelliste Makro
Range("C11").Copy
On Error Resume Next
Workbooks("wartung.xls").Activate
If Err 0 Then
Workbooks.Open ("../Wartung.xls")
Windows("Wartung.xls").Activate
Sheets("Mängelliste").Select
Range("a" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
With Selection.Interior
.Pattern = xlNone
End With
Err.Clear
Else
Windows("Wartung.xls").Activate
Sheets("Mängelliste").Select
Range("a" & Range("A65536").End(xlUp).Row + 1).Select
ActiveSheet.Paste
With Selection.Interior
.Pattern = xlNone
End With
End If
Exit Sub
End Sub