Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

speichern unter dialogbox einbinden

Betrifft: speichern unter dialogbox einbinden von: Markus
Geschrieben am: 03.09.2007 13:28:50

hallo zusammen,

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

  

Betrifft: AW: speichern unter dialogbox einbinden von: Rudi Maintaire
Geschrieben am: 03.09.2007 14:24:54

Hallo,

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


Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


 

Beiträge aus den Excel-Beispielen zum Thema "speichern unter dialogbox einbinden"