geraubte Nacht
01.03.2004 12:32:22
marc :o)
aus dem Schlaf ist nichts geworden.Das Problem nicht zu knacken.
Es geht um ein Import eines Zellenwertes, der in die activen Mappe
kopiert werden soll.Leider kurz vor dem einfuegen kommt die Fehlermeldung
PasteSpecial-Methode des Range-Objekts konnte nicht ausgefuehrt werden.
Option Explicit
Sub Lager()
Dim wb As Workbook
Dim wk As Worksheet
Set wb = ActiveWorkbook
Workbooks.Open ("C:\Lager\A_Stand.xls")
Worksheets("Daten").Range("A2:A4").Copy
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Worksheets("Controll").Range("B2").PasteSpecial Paste:=xlValues
End Sub
hat vielleicht einer 'ne Alternative
von Blatt zum Blatt habe ich keine Probleme,wenn ich aber mit 'ne externen
Datei einen Import durchfuehren will,dann kommt die o.g Fehlermeldung
marc :o)
Anzeige