Herbers Excel/VBA-Archiv

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

speichern unter dialogbox problem

• speichern unter dialogbox problem von Markus vom 05.09.2007 17:17:11
• AW: speichern unter dialogbox problem - von Josef Ehrensberger am 05.09.2007 17:30:22
  • AW: speichern unter dialogbox problem - von Markus am 05.09.2007 17:49:59
    • AW: speichern unter dialogbox problem - von Josef Ehrensberger am 05.09.2007 18:14:39
      • AW: speichern unter dialogbox problem - von Markus am 05.09.2007 18:24:00

Betrifft: speichern unter dialogbox problem von: Markus
Geschrieben am: 05.09.2007 17:17:11

hallo zusammen,

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

Betrifft: AW: speichern unter dialogbox problem von: Josef Ehrensberger
Geschrieben am: 05.09.2007 17:30:22

Hallo Markus,

Mit "GetSaveAsFilename" wird nichts gespeichert, sondern nur ein Pfad/Dateiname zurückgegeben.


Das Speichern geht so.

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

Betrifft: AW: speichern unter dialogbox problem von: Markus
Geschrieben am: 05.09.2007 17:49:59

das hatte ich zuerst, hat auch funktioniert. es soll aber der ermittelte dateinamen im "speichern unter dialog" angezeigt werden, damit ich evtl. ein anderes unterverzeichnis angeben kann.

ist das möglich?

gruß markus

Betrifft: AW: speichern unter dialogbox problem von: Josef Ehrensberger
Geschrieben am: 05.09.2007 18:14:39

Hallo Markus,

klar geht das.

Private Sub CommandButton1_Click()
Dim stWert As String, strFileName As String

stWert = FileIndex(strPath)
Range("H4") = stWert
strFileName = Application.GetSaveAsFilename( _
    InitialFileName:=strPath & "\" & "Angebote" & "-" & Range("D2") & "-" & _
    Range("A18") & "-" & stWert & ".xls", _
    FileFilter:="Excel Dateien (*.xls), *.xls)", _
    Title:="Speicherort wählen")

If strFileName <> "Falsch" Then ThisWorkbook.SaveAs strFileName

End Sub

Betrifft: AW: speichern unter dialogbox problem von: Markus
Geschrieben am: 05.09.2007 18:24:00

sepp du bist echt der könig,
vielen dank.

gruß markus

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