Wert einer Zelle kopieren, nicht die Formel
17.06.2014 15:04:56
kathrin
habe mich vor kurzem bereits an das Forum gewandt und super Hilfe bekommen. Der Teil zur Auswahl der Datei aus dem die Daten entnommen werden sollen scheint zu funktionieren.
Ich sollte jetzt nur noch einfügen welcher Inhalt wo hin kopiert werden soll und bekomme es nicht hin. Es kommt entweder Fehler 400 oder Laufzeitfehler 1004.
Im Moment schaut es so aus:
Sub read()
Dim home As String
Dim GetMappe As Variant
Dim i As Integer
Dim sPath As String
Dim NurDatNam As String
Dim quelle As Object
home = Application.ThisWorkbook.Name
Application.ScreenUpdating = False
GetMappe = Application.GetOpenFilename("Calc Files (*.xls; *.xlsx; *.xlsm; *.xlsb),*.xls; *. _
xlsx; *.xlsm; *.xlsb", , "Open calculation sheets!", MultiSelect:=True)
If Not IsArray(GetMappe) Then Exit Sub
For i = LBound(GetMappe) To UBound(GetMappe)
sPath = GetMappe(i)
NurDatNam = Mid(sPath, InStrRev(sPath, "\") + 1)
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Set quelle = GetObject(sPath)
'Hier muss der Quellcode stehen, der beschreibt welcher Inhalt aus den gewählten Dateien _
entnommen werden soll und was damit gemacht werden soll
quelle.Worksheets(4).Range("I6").Select
Selection.Copy
ActiveSheet.Range("E30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next i
End Sub
hier im unteren fetten Teil stimmt was nicht. Der Wert der Zelle I6 soll kopiert werden, nicht die Formel, und in der anderen Datei(alle Dateien haben den selben Aufbau) auf das selbe Tabellenblatt in Zelle E30 eingefügt werden. Beim nächsten Kopier- und Einfügevorgang sollte dann geprüft werden, ob in Zelle E30 bereits etwas steht, wenn ja dann in Zelle F30 eintragen, ansonsten in E30.
Vielen Danke für eure Hilfe im Voraus.
Gruß Kathrin