Office: Verknüpfungen per VBA erstellen

Brian83 · 5. März 2019

Geschätzte Forums-Gemeinschaft

Ich wäre sehr froh, wenn mich jemand bei folgendem Problem unterstützen könnte. Ich habe jetzt einige Zeit gesucht und keine Lösung gefunden, was aber auch an mir persönlich liegen könnte; bin nicht der VBA-Crack *Smilie .

Ich habe ein Excel-Sheet, bei dem ich per VBA einige Verknüpfungen einfügen möchte.

In der Zelle A2 steht ein Teil des Pfades: "'G:Budget2019[Gesellschaft "
In der Zelle C1 steht ein Teil des Pfades: "Frankfurt"
In der Zelle B2 steht ein Teil des Pfades: ".xlsx]Daten'!A1"

Klar ist, dass die folgende Datei mit den untenstehenden Pfad existieren muss.
'G:Budget2019[Gesellschaft Frankfurt.xlsx]Daten'!A1

VBA sollte nun in der Zelle C2 diesen Hyperlink einfügen und auch gleich auf die gelbmarkierten Zeilen kopiert werden.

Ich hoffe ich habe mich verständlich ausgedrückt.

Besten Dank für eure Unterstützung bereits im Vorhinein! *cool.gif*

:)

OfficeUser · 6. März 2019

Hallo,

grundsätzlich verstehe ich nicht, wozu du das per VBA brauchst, es reicht doch ganz simpel

Arbeitsblatt mit dem Namen 'Tabelle1'
A B C
1 Frankfurt
2 G:Budget2019[Gesellschaft .xlsx]Daten'!A1 G:Budget2019[Gesellschaft Frankfurt.xlsx]Daten'!A1
Zelle Formel
C2 =HYPERLINK($A2&C&$B2)
Und dann nach rechts und unten ziehen.

Falls dennoch VBA notwendig ist:
Code:

Sub LinkEinfuegen()
Dim S As Integer, Z As Integer, i As Integer
S = Cells(1, Columns.Count).End(xlToLeft).Column
Z = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False

For i = 2 To Z
If Cells(i, 1) "" Then
Cells(i, 3).FormulaLocal = "=HYPERLINK($A" & i & "&C$1&$B" & i & ")"
Cells(i, 3).AutoFill Destination:=Range(Cells(i, 3), Cells(i, 7)), Type:=xlFillDefault
End If
Next i

Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Vorgehensweise mit Schleife ist notwendig, weil du Leerzeilen hast, was ich auch als sehr schlecht empfinde. Falls du die Leerzeilen entfernen kannst, reicht auch
Code:

Sub LinkEinfuegen()
Dim S As Integer, Z As Integer
S = Cells(1, Columns.Count).End(xlToLeft).Column
Z = Cells(Rows.Count, 1).End(xlUp).Row

Cells(2, 3).FormulaLocal = "=HYPERLINK($A" & i & "&C$1&$B" & i & ")"
Cells(2, 3).Copy
Range(Cells(2, 3), Cells(Z, S)).PasteSpecial xlPasteFormulas

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Brian83 · 6. März 2019

Besten Dank MisterBurns....

Ich habe mich etwas unklar ausgedrückt.

1. Benötige ich nicht einen Hyperlink, welcher eingefügt wird. Sondern es sollte ein Konsolidierungs-Sheet sein, welches die Daten aus den verschiedenen Excel Templates anzieht.
2. Die Gesellschaft oder der Ort in der Zeile 1 kann immer wieder variieren, entsprechend muss der User die Gesellschaften durch ein Marko anpassen können. Meist wird die Anpassung nur wenige Male per Makro gemacht, so sollte im Anschluss das Konsolidierungs-Sheet rein der Übersicht dienen um die verschiedenen Budget-Kennzahlen aus den vielen Budget-Templates der Orte zu erhalten.

MisterBurns · 7. März 2019

Brauchst du also eine Verknüpung? Bitte dann auch so schreiben, denn ein Hyperlink ist etwas komplett anderes.

So vielleicht?
Code:

Sub Verknuepfung()
Dim Z As Integer, S As Integer
Application.ScreenUpdating = False

For Z = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For S = 3 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(Z, 1) "" Then
Cells(Z, S).FormulaR1C1 = "='" & Cells(Z, 1) & Cells(1, S) & Cells(Z, 2)
End If
Next j
Next Z

Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weiters bist du nicht auf meinen Hinweis mit den Leerzeilen eingegangen.

Brian83 · 7. März 2019

danke vielmal!

Office: Verknüpfungen per VBA erstellen

Verknüpfungen per VBA erstellen

Verknüpfungen per VBA erstellen

Verknüpfungen per VBA erstellen

Verknüpfungen per VBA erstellen - Similar Threads - Verknüpfungen VBA erstellen

Verknüpfungen zu Passwort-geschützter Quelle aktualisieren

Mit Access VBA ein bmp in OLE-Objekt verknüpfen

Verknüpfung per VBA erstellen

Tabellen neu verknüpfen mit VBA

MS-SQL Tabelle per ODBC mit VBA verknüpfen

Verknüpfung von Unterformular per VBA

Suche in 3 Spalten mit UND-Verknüpfung - VBA

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1			Frankfurt
2	G:Budget2019[Gesellschaft	.xlsx]Daten'!A1	G:Budget2019[Gesellschaft Frankfurt.xlsx]Daten'!A1