Verknüpfung aus Zellinhalten zusammensetzen
13.10.2006 16:17:25
Jürgen
wer hilft mir bei folgendem Problem:
Ich möchte per Makro eine externe Verknüpfung zusammensetzen lassen, wobei sich die Adressdaten der Quelle aus veränderlichen Angaben in der Zieldatei zusammensetzen.
Anbei meine unrühmlichen Versuche:
Sub Kostenverdichtung()
' Mit dem Makro sollen Werte /Verknüpfungen erstellt werden, _
wobei sich die Verknüpfung zusammensetzen soll _
aus einem konstanten Pfad (Pfad) _
einem Dateinamen, der aus Spalte A (Zeilennummer über i) ausgelesen wird _
einem konstanten Blattnamen (Blatt) und einer Zielzelle, die _
sich aus Zelle C3 (Z) und einem Spaltenwert aus dem Berich C bis F _
zusammensetzt
Dim KoSt ' Dateiname aus Spalte A
Dim i ' Nr. der Zeile, die aktualisiert werden soll aus Spalte A
Dim Z ' ZeilenNr. aus der die Infos aus der Quelldatei gelesen werden sollen
Dim Rückfr ' Inputbox zur Eingabe der ZeilenNr. i
Dim Pfad ' Pfad mit den Quelldaten
Dim Blatt
'Pfad in dem die Quelldatei liegt
Pfad = "O:\Eigene Dateien\03 EW Q4_06\04 Sammelordner\02 Abgl IST_EW"
Z = Range("C3").Value
Blatt = "Abgl IST_EW_06"
Rückfr = InputBox("Welche Zeile soll aktualisiert werden", "Zeilennummer eingeben")
` Zur besseren Übersicht Umwandlung von Rückfr in i
i = Rückfr
´ In Zelle Ai steht der Name der Zieldatei
KoSt = Range("A" & i).Value
und hier kommt jetzt nur Mist raus:
Cells(i, iColumn + 3).FormulaR1C1 = "" = Pfad & "[" & KoSt & "]" & Blatt & "!" '& RZC4
End Sub