On Error Goto bleibt hängen
Jemp
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.
Vorgehensweise ist folgende:
1 überprüfen op die Datei schon offen ist
2 wenn nicht offen dann überprüfen op es die Daeti überhaupt gibt, wenn ja sie öffnen
3 wenn es die Datei nicht gibt, eine neue Datei erstellen
hier einen Teil der Makro,
wenn es die Datei noch nicht gibt, bekomme ich eine Fehlermeldung und die Makro geht trotz "error goto "nicht zu Line:2, habe ich hier was vergessen?
Vielen Dank für eure Hilfe
.....
base = "Datei.xls"
pfad = "V:\Ordner\unterordner\2010\"
name = ActiveSheet.Range("B63").Value
Dateiname = pfad & name & ".xlsx"
Datei = name & ".xlsx"
On Error GoTo Line1:
Workbooks(Datei).Activate
GoTo Line3:
Line1:
On Error GoTo Line2:
Workbooks.Open Filename:=Dateiname
GoTo Line3:
Line2:
Workbooks.Add
Sheets("Sheet1").name = "einkauf"
Sheets("Sheet2").name = "verkauf"
Sheets("Sheet3").name = "gesamt"
ActiveWorkbook.SaveAs Filename:=Dateiname
Line3:
' rest der Makro