per Makro speichern
22.09.2005 16:11:21
sprunz
ich habe folgendes problem. ich möchte eine datei per makro speichern da ich dateien aus ein verzeichnis lade und auf ein anderes speichere. das gestaltet sich aber immer rechtumständlich da ich mich ständig durch die pfade hangeln muss. meine lösung dazu sieht so aus:
Sub speichern()
start:
Dim a1celle As String
a1celle = Range("A1")
If a1celle = "" Then Exit Sub
ActiveWorkbook.SaveAs "D:\Temp\Excel\" & a1celle & ".xls"
End Sub
das funktioniert soweit ganz gut problem an der sache ist, es kommt zum eien vor das dateien im nachhinein gelöscht werden und wenn es der zufall so will manchmal auch die vorletzte datei aus der ich die letzte mittels "SaveAs" gespeichert habe. nun kommt eine fehlermeldung das er die vorletzte datei (genauer dateinahme steht dann da) nicht mehr findet.
bsp:
- ich bearbeite datei 100.xls in celle a1 steht dann 200
- speicher mittels makro, datei 200.xls wird diese erzeugt
- lösche ich aber im nachhinein 100.xls und möchte z.b. mit datei 200.xls weiterarbeiten diese verändern und in a1 dann 300 schreiben sowie diese datei datei dann mittels makro speichern bringt er mir die fehlermeldung das er datei 100.xls nicht findet.
desweiteren öffnet er immer die vorletzte datei mit aus der ich das letzte mal das makro gestartet habe
danke schonmal im vorraus für eure hilfe