Ich erstelle täglich einige Datenblätter über 5 verschiedene Produktsorten. Mittlerweile möchte ich diese Datenblätter immer vom Aktivem Tabellenblatt aus Speichern über ein Schaltbutton. Den Dateinamen nehme ich mir von zelle a1, beim Abspeichern möchte ich nicht das die Formeln mitkopiert werden(nur Absolute Werte).
Bishierher funktioniert alles sehr gut ! (Alles brockenweise von Herbers Archiv gesammelt echt super das was er zur verfügung stellt)
Mein Prob:
Ich arbeite bei erstellen von Datenblätter nach Auftragsnummern
und Artbezeichnungen Beispiel ED0601100100 (ED=Art 0601100100=NR)
Es gibt verschiedene Artbezeichnungen wie ED , AK , DA ...
Ich möchte nicht beim Abspeichern gefragt werden in welchen Pfad ich speichern will es sollte Automatisch Passieren. Also mein gedanke das Prog erkennt die ersten 2 zeichen zB. ED dann soll
in \Eigene Bilder\Neuer Ordner\ED speichern(Bei AK ändert sich der ordner in ...\AK usw.).
Ich verstehe nicht warum er immer fehler1004 erzeugt wenn ich den Pfad wie folgt eingebe: C:\Eigene Dateien\Eigene Bilder\Neuer Ordner
Ich hoffe das es nicht zu lang und verwirrend ausgeführt ist wenn ja Sorry. Bitte tut etwas ausführlich Antworten ich kenn mich nicht sehr gut in VBA aus
Ich Danke jetzt schon an Alle
Mein Code
Sub speichern()
Dim sFile As String, spath As String, wks As Worksheet
spath = Application.DefaultFilePath & "\Eigene Bilder\Neuer Ordner\"
sFile = Range("a1")
For Each wks In Worksheets
With wks.UsedRange
.Value = .Value
End With
Next wks
ActiveSheet.SaveAs spath & sFile & ".xls"
End Sub
Mfg Ivan