Hilfe bei Code Excel 2003 zu Excel 2007

Question

Hallo

Bin von Excel 2003 auf 2007 umgestigen. Funktioniert auch alles
wunderbar. Habe von euch ein Paar codes für meine Tabellen
bekommen gehen alle unter 2007 bis auf einen .


Private Sub CommandButton1_Click()
ChDir "C:\Firma\Rechnung\2010"
Application.ScreenUpdating = False
Dateiname = ActiveWorkbook.Name
Blattname = Worksheets(1).Name
Cells.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:2010" & _
Workbooks(Dateiname).Worksheets(Blattname).Range("B10") & Range("B11") & Range("E17")
ActiveWorkbook.Close
End Sub

bekomme immer Fehlermeldung
Vieleicht kann mir einer Helfen

Vielen Dank in voraus
Helmut

Answer 1

Hallo,

wo kommt die Fehlermeldung und welche, könnte hilfreich sein.

Ich vermute Probleme aus dem etwas geänderten Aufbau der Dateien bzw. der Dateiendung.

Gruß

Helmut

Answer 2

Hallo
Danke für die schnelle Antwort ,mußte gestern noch überraschend
weg.

Die Fehlermeldung, wobei die zahlen immer anders sind

Kann auf Datei ' C:\ 429-40000'

Im VB ist dann dieser Code gelb markiert

ActiveWorkbook.SaveAs Filename:="C:2010" & _
Workbooks(Dateiname).Worksheets(Blattname).Range("B10") & Range("B11") & Range("E17")

Gruß Helmut

Answer 3

Hi,

Steht das oben Gepostete wirklich so im Code?

ActiveWorkbook.SaveAs Filename:="C:2010" & _
Workbooks(Dateiname).Worksheets(Blattname).Range("B10") & Range("B11") & Range("E17")

Da kann mMn. etwas nicht ganz passen. Füge doch vor dieser Zeile einmal folgende Zeile ein:

Debug.Print "C:2010" & _
Workbooks(Dateiname).Worksheets(BlattName).Range("B10") & Range("B11") & Range("E17")

Dann schalte einmal über Menü "Ansicht", "Direktfenster" eben dieses Fenster ein. Lass den Code laufen, und Du siehst nun im Direktfenster, als was die Datei gespeichert werden soll. Steht da nun ein korrekter Pfad zu einer Datei?

bye
malSchauen

Answer 4

Gib mal den statischen Teil des Dateinamens incl. Pfad beim Speichern korrekt an:

ActiveWorkbook.SaveAs Filename:="C:\Firma\Rechnung\..." & _

Dann kannst du dir auch das ChDir "C:\Firma\Rechnung\2010" weiter oben sparen.

mfg, Massaraksch

Answer 5

Hallo zusammen,
vielen Dank für eure Hilfe. Nun speichert es zwar die Datei ab, nur nicht unter Excel sonder als Allgemeine Windows-Shell-DLL.
Wenn ihr da auch noch einen Tip hättet wäre ich euch dankbar.

Gruß Helmut

Answer 6

Hallo zusammen

habe den Fehler gefunden mußte xls anfügen

Workbooks(Dateiname).Worksheets(BlattName).Range("B10") & Range("B11") & Range("E17") & ".XLS"

Vielen Dank für eure Hilfe
Gruß Helmut