Fehler beim Kopieren
08.11.2007 16:12:50
Sebastian
Es wäre super, wenn ihr mir bei folgendem Problem helfen könntet:
Über ein VBA-Makro kopiere ich Teile aus mehreren Tabellenblättern in eine neue Excel-Datei. Folgende Prozedur wird verwendet:
Function Kopieren()
Workbooks("DatenbankVerkehrswerte.xls").Worksheets("VKW").Range("A16:AI500").Copy
Workbooks("Export.xls").Worksheets("Sheet1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Workbooks("DatenbankVerkehrswerte.xls").Worksheets("OST").Range("A15:S500").Copy
Workbooks("Export.xls").Worksheets("Sheet1").Select
Range("AU1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Function
Soweit klappt das Ganze auch wie gewünscht, bis auf eines:
In manche Felder, die im Ausgangsblatt leer sind, wird eine 0 kopiert. In manche Felder auch nicht. Intuitiv habe ich vermutet, dass das an der Formatierung in der Ausgangsdatei liegen muss, aber ich konnte keine Unterschiede feststellen.
Ich wäre wirklich dankbar, wenn mir jemand weiterhelfen könnte.
Besten Gruß,
Sebastian