Datenexport
30.12.2004 20:29:39
Helle
ich hab (mit Hilfe des Forums) folgendes Modul zum Export des aktiven Blattes einer Mappe in eine neue Excel Mappe gebastelt.
Sub Exportfunktion()
Application.ScreenUpdating = False
ActiveSheet.Copy
Application.SendKeys ActiveSheet.Name & "_" & Format(Date, "dd.mm.yyyy") & ".xls" & "+{HOME}"
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close savechanges:=True
MsgBox "Die Daten wurden erfolgreich exportiert.", vbInformation + vbOKOnly, "Export erfolgreich"
Application.ScreenUpdating = True
End Sub
Hierzu habe ich zwei Fragen:
1. Das aktive Arbeitsblatt kann u.U. Verknüpfungen enthalten. Wo und wie kann ich einen Befehl á la "Paste Value" einbauen. Es soll also der Wert UND das Format übertragen werden.
2. Das aktive Blatt kann auch ein Chart sein. Gibts bei Diagrammen auch was ähnliches wie "nur Werte". Ich möchte die "lästige" Abfrage: Daten aktualisieren? beim öffnen der neu erzeugten Mappe unterbinden.
Bin für jeden Tipp dankbar!!!!
Viele Grüße
Tobias