speichern unter dialogbox problem
05.09.2007 17:17:00
Markus
ein mitglied hat mir das erstellt.
es geht um den bereich CommandButton1_Click()
Const strPath As String = "z:\Kalkutest"
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
Application.GetSaveAsFilename 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
--------------------------------------------
also wenn ich den button betägtige wird h4 aktualisiert und der speichern unter dialog wird geöffnet mit genau dem ermittelten dateinamen, aber wenn ich speichern drücke schließt sich das fenster wieder, jedoch ohne das die datei unter dem neuen namen gespeichert wurde. ich bin echt ratlos.
könnt ihr mir helfen?
danke vorab.
gruß markus