Daten aus geschlossenen Mappen über Zellverknüpfngen einfügen

[Flotter Feger]

Hallo,



nachdenken ... bitte !!!

PHP-Code:

Const strSheetQ As String = "Tabelle1" '** Diese Tabelle wird ausgelesen"
Const strSheetZ As String = "Tabelle1" '** Die Tabelle in dieser Datei, in welche die Daten übertragen werden
Const strRangeQ As String = "A1:A4" '** Der Bereich wird ausgelesen
Const strRangeZ As String = "B1:B4" '** Der Bereich wird geschrieben
Const strFile As String = "F:\Excel\Beispiele\geschlossene Mappe2.xlsx" '** Pfad und Datei
 
Public Sub DatenHolen()
  '** Daten aus geschlossener Datei per Zell-Verknüpfung auslesen und Formel zur externen Datei erzeugen
  With ThisWorkbook.Worksheets(strSheetZ)
    '** Eintragen der Formel
    .Range(strRangeZ).Formula = "='" & Mid(strFile, 1, InStrRev(strFile, "\")) & "[" & _
    Mid(strFile, InStrRev(strFile, "\") + 1) & "]" & strSheetQ & "'!" & strRangeQ
  End With
End Sub 


Ist doch gar nicht so schwer ...oder ?

Die Bereiche müssen immer gleich groß sein !!!

Sabina
von meinem Blackberry gesendet