Code tut nicht so wie ich mir das vorstelle...
20.11.2006 10:23:07
flori
ich hab letzte Woche schon mal einen Beiträg hier in die Runde gestellt weil ich Prbleme mit dem unten angegebenen Code hatte.
Ein damaliger Lösungsvorschlag hat leider auch nicht hefen können.
Hier der geäanderte Code:
Sub Schaltfläche32_BeiKlick()
ActiveSheet.Range("A10:Q225").Select
Selection.Copy
ActiveSheet.SaveAs "D:\XXX\" & Range("C10").Value & ".xls"
End Sub
Die Datei besteht aus insgesammt ca. 18 Blättern. Von Blatt 2 sollen die Splten A10-Q225 under dem angebegeben Pfad mit Dateiname, steht in Zelle C10, gespeichert werden. Das mit dem speichern funktionier auch so weit, nur das es mir erst die Zellen A10-Q225 markiert, dann aber alles (alle 18 Blätter) unter dem angegebenen Pfad speichert...
Also kurz gesagt es werden nicht nur, wie eigentlich verlangt, die Zellen A10-Q225 gespeichert, sondern zusätzlich der ganze Inhalt der 18 Blätter.
Wie muß der Code geändert werden, bzw. neu geschreiben werden, dass es nur die Zellen A10-Q225 speicher...?
Gruß
Flori