title image


Smiley Fehler beim kompilieren !
Hallo Frank,



habs so eingebaut.. und nun gibts eine Fehlermeldung "Fehler beim kompilieren - Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit dem selben Namen."



"Private Sub Workbook_BeforeSave()"



Mit gleichen Namen konnte ich nichts finden bei mir...



Ich kopier zur Sicherheit mal alles rein, nicht das ich etwas falsch gemacht habe.



Public QN3st

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()

DN = aktPfad & QN3st & ".xls"

ActiveWorkbook.SaveAs (DN)

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: