Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
speichern unter dialogbox einbinden
03.09.2007 13:28:50
Markus
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speichern unter dialogbox einbinden
03.09.2007 14:24:54
Rudi
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

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige