Sverweis mit Verknüpfung in VBA dynamisch halten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo.
Erich hat natürlich recht, ich habe mich nicht richtig ausgedrückt.
Falls die Quelldatei verschoben, gelöscht, umbenannt, etc. wird, wie soll Excel das wissen, richtig. Der manuelle Aufwand, unter "Bearbeiten, Verknüpfungen,.." Excel den neuen Pfad mitzuteilen, soll bleiben!
Hier muss nichts automatisiert werden.
In der Datei wird per VBA eine Formel in eine Zelle geschrieben (welche ich vorher mit dem Recorder aufgezeichnet habe, wegen der transformierung in die VBA Sprache). Das passiert pro Monat einmal. Wenn sich jetzt im Laufe des Jahres der Pfad ändert, und ich die Änderung über "Bearbeiten, Verknüpfungen.." ändere, dann klappt das nur bis zum nächsten Monat, denn dann läuft das Makro wieder und fügt die (orginale Formel im VBA Code) für den neuen Monat und alle alten ein.
Ich würde mir eine Hilfszelle einrichten, in der ich die Formel eintrage, so dass die Verknüpfung von Excel erkannt wird und unter "Verknüpfungen" zur Auswahl steht. In einer Zelle daneben müsste der Formeltext angezeigt werden, auf den ich mich in der VBA Formel beziehe.
Frage, nur wie lasse ich mir den Formeltext anzeigen um auch mit ihm als Formel zu arbeiten?
'=sverweis(... würde es tun, nur stört jetzt das Hochkomma. Man könnte vielleicht die Zelle als Text formmatieren?
Fakt ist, der Pfad muss sich irgentwie in dem VBA Code aktualisieren.
"=VLOOKUP(Prämissen!R23C1,PFAD EXTERNE DATEI!C1:C13,Prämissen!R[2]C[1],0)"
Wossi

Hi
wenn deine Arbeitsweise so ist, daß du im neuen Monat erst die Verknüpfung anpasst und dann das Makro laufen lässt, dann könntest du auch mit diesem Makro die aktuelle Verknüpfung ermitteln und diesen Pfad dann im Makro verwenden:


Sub DeinMakro()
Dim Verknüpfungen
Dim Pfad As String
'--- aktuelle Vernüpfungen ermitteln
Verknüpfungen = ThisWorkbook.LinkSources
'--- Pfadbezeichnung anpassen
Pfad = Left(Verknüpfungen(1), InStrRev(Verknüpfungen(1), "\"))
Pfad = Pfad & "["
Pfad = Pfad & Right(Verknüpfungen(1), Len(Verknüpfungen(1)) - InStrRev(Verknüpfungen(1), "\"))
Pfad = Pfad & "]"
'--- Formel einfügen
Range("A2") = "=VLOOKUP(Prämissen!R23C1,'" & Pfad & "Mappe1'!C1:C13,Prämissen!R[2]C[1],0)"
End Sub

ansonsten könntest du noch den Pfad in einer freien Zelle als Text hinterlegen, dann müsstest du ihn dort von Hand ändern, bevor das Makro läuft Im Makro holst du dann den Pfad aus dieser Zelle


Range("A2") = "=VLOOKUP(Prämissen!R23C1,'" & Sheets("xxx").cells(1,1).value & "Mappe1'!C1:C13,Prämissen!R[2]C[1],0)"

Gruß, Daniel
ps das Mako ist jetzt dafür geschrieben, daß du nur eine Verknüpfung hast.
solltest du mehrere haben, müsste man natürlich pfüfen, welches die richtige ist.

Dim Formel As String 'Formel korrigieren Formel = InputBox("Formel", "Prüfe Formel", "=SVERWEIS(C1;Vorlage!A2:B26;2;1)") 'Formel in erste Zelle eintragen Range("d8").FormulaLocal = Formel 'um wieder die R1C1 Formel zu bekommen 'damit die Zellbezüge beim eintragen in anderen Zellen mitgehen Formel = Range("D8").FormulaR1C1 Zelle.FormulaR1C1 = Formel

Dim Formel As String 'Formel korrigieren, aktuelle Formel wird angezeigt 'FormulaLocal = damit die Formel verständlicher ist Formel = InputBox("Formel", "Prüfe Formel", Range("d8").FormulaLocal) 'Formel in erste Zelle eintragen Range("d8").FormulaLocal = Formel 'um wieder die R1C1 Formel zu bekommen 'damit die Zellbezüge beim eintragen in anderen Zellen mitgehen Formel = Range("D8").FormulaR1C1 'Formel in Zellen Übertragen Zelle.FormulaR1C1 = Formel

Sub aaa() Dim strQuell As String 'In xyz!B2 müssen Mappen- und Blattname so stehen: [c:\temp\Eine Mappe.xls]Das Blatt strQuell = Sheets("xyz").Range("B2") Cells(1, 1).FormulaR1C1 = _ "=VLOOKUP(Prämissen!R23C1,'" & strQuell & "'!C1:C13,Prämissen!R[2]C[1],0)" End Sub

Beliebteste Forumthreads (12 Monate)

Sverweis mit Verknüpfung in VBA dynamisch halten

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sverweis mit Verknüpfung in VBA dynamisch halten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread