Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Helmut46 vom 01.10.2022, 19:51 Options
Hilfe bei Code Excel 2003 zu Excel 2007
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
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
Antwort 1 von Saarbauer vom 01.10.2022, 20:12 Options
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
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
Antwort 2 von Helmut46 vom 02.10.2022, 07:37 Options
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
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
Antwort 3 von malSchauen vom 02.10.2022, 11:40 Options
Hi,
Steht das oben Gepostete wirklich so im Code?
Da kann mMn. etwas nicht ganz passen. Füge doch vor dieser Zeile einmal folgende Zeile ein:
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
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
Antwort 4 von Massaraksch vom 02.10.2022, 11:54 Options
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
ActiveWorkbook.SaveAs Filename:="C:\Firma\Rechnung\..." & _
Dann kannst du dir auch das ChDir "C:\Firma\Rechnung\2010" weiter oben sparen.
mfg, Massaraksch
Antwort 5 von Helmut46 vom 02.10.2022, 14:43 Options
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
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
Antwort 6 von Helmut46 vom 02.10.2022, 15:30 Options
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
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
Ähnliche Themen
Passwortgeschützte Excel 2007-Datei in Excel 2003 öffnen
Kara09 05.06.2009 - 793 Hits - 2 Antworten
Office 2007 Excel 2007 kann Passwortgeschützte Datei auf anderem Rechner nicht öffnen
DerStephan 17.12.2009 - 324 Hits - 5 Antworten
Rahmenlinie von Excel 2003 nicht in 2007 angezeigt
Susanne334 25.12.2009 - 567 Hits - 4 Antworten
Excel 2007 Änderungen in Excel-Optionen speichern
kati2 27.01.2010 - 344 Hits - 5 Antworten
Excel 2007: Excel ändert meine Eingabe auf ein anderes Zahlenformat
Trouble99 20.02.2010 - 365 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
