wir haben im Büro eine gemeinsame Arbeitsmappe zur Auftragserfassung.
Beim Starten wird in "DieseArbeitsmappe" folgendes Makro ausgeführt:
Private Sub Workbook_Open()
Auftragsnummer Makro
Range("B1").Select
ActiveCell.FormulaR1C1 = "=Speditionsbuch!R[1]C[-1]+1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B4").Select
Range("B6").Select
ActiveCell.FormulaR1C1 = "=R[-3]C"
Range("B7").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=R[-2]C"
Range("B4").Select
Sheets("Deckblatt").Select
Range("D65").Select
ActiveCell.FormulaR1C1 = "=Auftragserfassung!R[-63]C[-1]"
Range("D66").Select
Range("I9").Select
Sheets("Auftragserfassung").Select
Range("B4").Select
ActiveWorkbook.Save
End Sub
Es bewirkt, das die bestehende Auftragsnummer automatisch um eine Zähler erhöht wird.Anschließend soll die Datei mit "F12" unter neuem Namen abgespeichert werden.
Doch hier ist das Problem. Beim öffnen der "neuen Datei" wird das o.g. Makro abgespielt und die Auftragsnummer erhöht, was aber hier nicht mehr gewünscht ist.
Hat jemand eine Idee? Es ist doch sicher möglich, beim Staren den Dateinamen überprüfen zu lassen. Aber hier fehlen mir die entsprechenden Kenntnisse.
Schob mal im voraus besten Dank.
Gruß
Thomas