title image


Smiley da ist doch noch ein kleines Fehlerchen... und große Excel-Abstürze!
Hallo Frank,



ich habe den Pfad jetzt als Public definiert und seit dem stürzt mir das Excel immer beim speichern ab !!!



Im Ordner hat er aber trotzdem die neuen Dateien angelegt.



Ansonsten besteht immer noch das Problem, wenn ich jetzt z.B. Datei "001" öffne und auf speichern klicke, dann vergibt er eine neue Nummer. Obwohl ich nur Änderungen in Datei "001" vornehmen will.



Hilfe!



Danke Manu



Vollständiger Code:



Public QN3st

Public aktPfad



Private Sub Workbook_Open()

'Anzahl Angebote im Ordner feststellen

aktPfad = ThisWorkbook.Path & "\"

Set fso = CreateObject("Scripting.FileSystemObject")

Set fo = fso.GetFolder(aktPfad)

Set fc = fo.Files

AnzDat = fc.Count

'eigentl. -1, aber akt. Angebot =bisher+1

'Angebotsnummer 3-stellig machen

A = Len(AnzDat)

Select Case A

Case 3

QN3st = AnzDat

Case 2

QN3st = "0" & AnzDat

Case 1

QN3st = "00" & AnzDat

End Select

Sheets(1).Cells(1, 1).Value = QN3st

End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

DN = aktPfad & QN3st & ".xls"

ActiveWorkbook.SaveAs (DN)

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: