|
Moin,
ich möchte aus einer geschlossenen Datei immer den selben Bereich auslesen, jedoch in meinem Ausgabebereich das kopierte in die nächste freie Zeile einfügen. Ich habe zwar ein super Code gefunden, doch bekomme es absolut nicht hin diese Bereiche von einander zu trennen. Also zum Beispiel aus Quelldatei immer Bereich B5:I29 und in die Zieldatei dann die nächte freie Zeile die Daten eintragen. Den Code habe ich hier:
Sub Bereich_auslesen()
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
'Angaben zur auszulesenden Zelle
pfad = "D:\Quellpfad"
datei = "Quelldatei.xls"
blatt = "Messwerte"
Set bereich = Range("B5:i29")
' Bereich auslesen
For Each zelle In bereich
' Zellen umwandeln
zelle = zelle.Address(False, False)
' Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle
End Sub
Private Function GetValue(pfad, datei, blatt, zelle)
' Daten aus geschlossener Arbeitsmappe auslesen
Dim arg As String
' Sicherstellen, dass das datei vorhanden ist
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)
' Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Vielleicht kann mir mal wieder einer von euch helfen, da ich mal wieder absolut im Wald stehe und keine Lösung finde. Vielen lieben Dank im voraus
Beste Grüße
Chris
|