ich habe gestern schon einmal nach diesem Thema gefragt aber leider nicht die richtige Antwort erhalten. Wie kann ich diesen Code, Variable schreiben????
Windows("??????.xls").Activate
Hier mein ganzes Makro.
Sub KopierenUndEinfügenInLieferschein()
Application.ScreenUpdating = False
For Each Z In Selection
Range(Z.Address).Interior.ColorIndex = 3
Range(Z.Address).Offset(0, 30) = Date
Next Z
Workbooks.Open Filename:="C:\Lieferscheine\Lieferschein.xls"
Range("D21").Select
Windows("??????.xls").Activate 'Wie kann ich diesen Code, Variable schreiben????
For Each Z In Selection
Range(Z.Address).Offset(0, 0).Resize(, 32).Interior.ColorIndex = 44
Range(Z.Address).Offset(0, 0).Resize(, 32).Copy
Windows("Lieferschein.xls").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Windows("??????.xls").Activate 'Wie kann ich diesen Code, Variable schreiben????
Next Z
End Sub
Max M.