--------------------------------------------------------------------------------------
diesen beitrag gabs zwar heute schon mal, doch leider hab ich mir ne antwort selbst gegeben und
so stand es nicht mehr unter offene fragen.
---------------------------------------------------------------------------------------
Hajo schrieb darauf: Du hast Zugriffsrechte? Ich würde niemals eine Variable in einer Funktion den gleichen Namen geben wie scho eine vorhandene Variable.
zugriffsrechte habe ich, aber die info "die gleiche variable in einer funtion" hab ich dummi leider auch nicht verstanden.
--------------------------------------------------------------------------------------
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, 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
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
-------------------------------------------------------------------------
klappt einwandfrei. ändere ich aber den pfad Const strPath As String = "z:\Kalkutest"
in ein anderes verzeichnis in dem jede menge unterverzeichnisse und dateien sind, so bringt er laufzeitfehler 13 und verweist auf die zeile:
If Left(Right(.FoundFiles(lngFiles), 9), 5) * 1 > lngMax Then
leider bin ich ein absoluter vba-loser und wenn man obiges nicht genau versteht fälllt die fehlersuche schwer. und bei einem solchen fehler konnte mir google auch nicht weiter helfen.
wer kann mir helfen?
gruß markus