zur Zeit lasse ich mein Arbeitsblatt automatisch über ein Button speichern. Der Dateiname setzt sich aus Artikelnummer (in B1) dem aktuellen Datum und einer Bemerkung (steht in D1) zusammen.
Und zwar mit einem Auszug aus meinem Code, von Herrn Herber geschrieben:
sDir = "C:\Test"
If GetDirStatus(sDir) = False Then
Beep
MsgBox "Bitte zuerst ein Verzeichnis """ & sDir & """ anlegen!"
Exit Sub
End If
sFile = sDir & "\" & Range("B1").Value & "_" & Format(Date, "yymmdd") & "_" & Range("D1").Value & ".xls"
If Dir(sFile) "" Then
Beep
If MsgBox("Die Datei existiert schon, soll sie überschrieben werden?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Dieser funktioniert auch einwandfrei. Nun brauche ich aber eine Änderung und nun komme ich nicht weiter. Excel soll die ersten beiden Ziffern der Artikelnummer erkennen und dann das Blatt automatisch in ein entsprechendes UV speichern. Die UV bestehen schon. Also sind die ersten beiden Ziffern 33, dann soll automatisch in das UV 33 gespeichert werden.
Würde mich freuen, wenn Ihr eine Lösung hättet.
Danke
Cordula