Hallo,
WbDatei1.Sheets("Wachbuch").Range("BH9").Value
hm, steht denn in BH9 der richtige Wert für den Dat-Namen....?
Andernfalls, versuch mal so:
WbDatei2.SaveAs Filename:=WbDatei1.Sheets("Wachbuch").Range("BH9").Value
Gruß,