Speichern unter mit Auswahl ?
24.06.2003 09:41:35
Walter MB
habe eine kleine, glaube schwierige Frage.
Ich habe ein Makro geschrieben für das festlegen der Arbeitsmappe mit dem Kundennamen.
Jetzt möchte ich die Datei in ein betimmtes Verzeichnis siehe
Makro gespeichert haben.
Die Datei nuß allerdings mit 00_"Mappemname" festgelegt werden,
ich bin gerade bei 07_... es müsste also geprüft werden wie weit
die Nr. ist also als nächstes sollte dann 08_... sein.
Ist das so (hoffentlich) verständlich geschrieben ???
Mein Makro:
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
On Error Resume Next
Dim Verzeichnis As String
Verzeichnis = "c:\Excel"
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs FileName:="C:\Excel\4_GF\1_Wandlung\Neu 1-1-03\07_Mottec.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.ScreenUpdating = True
End Sub
Gruss Walter