habe von einem mitglied folgendes geschrieben bekommen:
Option Explicit
Const strPath As String = "z:\IDW-Druck\Angebote"
Private Sub ComboBox6_Change()
End Sub
Private Sub ComboBox7_Change()
End Sub
Private Sub ComboBox9_Change()
End Sub
Private Sub CommandButton1_Click()
Dim StWert As String
StWert = FileIndex(strPath)
Range("H4") = StWert
ThisWorkbook.SaveAs strPath & "\" & "Angebote" & "-" & Range("D2") & "-" & Range("A18") & " _
-" & StWert & ".xls"
End Sub
Private Function FileIndex(strPath As String) As String
Dim FS As FileSearch, lngFiles As Long, lngMax As Long
Set FS = Application.FileSearch
With FS
.LookIn = strPath
.Filename = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For lngFiles = 1 To .FoundFiles.Count
If Left(Right(.FoundFiles(lngFiles), 9), 5) * 1 > lngMax Then
lngMax = Left(Right(.FoundFiles(lngFiles), 9), 5) * 1
End If
Next lngFiles
End If
End With
FileIndex = Format(lngMax + 1, "00000")
End Function
Private Sub CommandButton2_Click()
Workbooks.Open Filename:="z:\Adressen\Adressen.xls"
End Sub
_______________________________
leider habe ich keine vba kenntnisse. was muß nun geändert werden, damit beim click auf "CommandButton1_Click" der generierte dateinamen in der dialog-box speichern unter mit der vorgabe im verzeichnis "z:\IDW-Druck" aufgerufen wird?
wäre dankbar für jede hilfe.
gruß markus