Zieladresse aus Hyperlink-FORMEL auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit 'Hyperlink/Verketten-Formel: Public Sub prcHyperVerketten() With ActiveSheet.Cells(1, 3) MsgBox Dir(Evaluate(Mid$(String:=.Formula, Start:=InStr(1, .Formula, "(", vbTextCompare) + 1, _ Length:=InStr(1, .Formula, ")", vbTextCompare) - InStr(1, .Formula, "(", vbTextCompare)))) End With End Sub 'Hyperlink/Basispfad-Formel: Public Sub prcHyperBasispfad() MsgBox Dir(ThisWorkbook.Names("Basispfad").RefersToRange & ActiveSheet.Cells(1, 4)) End Sub 'Hyperlink/UnbekannterName-Formel: Public Sub prcHyperUnknownName() With ActiveSheet.Cells(1, 4) MsgBox Dir(ThisWorkbook.Names(Mid$(String:=.Formula, Start:=InStr(1, .Formula, "(", _ vbTextCompare) + 1, Length:=InStr(1, .Formula, "&", vbTextCompare) - _ InStr(1, .Formula, "(", vbTextCompare) - 1)).RefersToRange & ActiveSheet.Cells(1, 4)) End With End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 12

Falls noch mal jemand so krude Probleme hat anbei das finale Ergebnis:


' Procedure : HyperlinkzielFinden
' Date      : 06.08.2014
' Author    : Karsten Pries (pries@gmx.de)
' Purpose   : extrahiert aus einer Hyperlink-Formel das HL-Ziel.
'             Übergeben wird eine einzelne Zelle
Private Function HyperlinkzielFinden(rng As Range) As String
If UserMode Then On Error GoTo Error_HyperlinkzielFinden
Dim i As Integer, j As Integer
Dim intKlammerlevel As Integer
Dim intEndeLinkteil As Integer
Dim strFormula As String
Dim rngEval As Range
If Not rng.HasFormula Then Exit Function
If IsError(rng) Then Exit Function
If rng.Value = "" Then Exit Function ' dann wird beim Hyperlink kein Text angezeigt,
' die wollen wir nicht prüfen
If rng.Parent.ProtectContents Then
MsgBox "Auf geschützten Arbeitsblättern funktioniert das nicht.", vbExclamation, _
"HyperlinkzielFinden"
Exit Function
End If
strFormula = rng.Formula
i = InStr(1, strFormula, "HYPERLINK(", vbTextCompare)
If i = 0 Then Exit Function
For j = i + 9 To Len(strFormula) - 1
' durchgehen und passende schließende Klammer finden
Select Case Mid$(strFormula, j, 1)
Case "("
intKlammerlevel = intKlammerlevel + 1
Case ")"
intKlammerlevel = intKlammerlevel - 1
Case ","
' das erste gefundene Komma trennt die zwei HYPERLINK-Argumente.
If intKlammerlevel = 1 Then
intEndeLinkteil = j - 1
' Der Rest interessiert uns nicht
Exit For
End If
End Select
Next j
' die gefundene Formel in der Zelle gaaaanz rechts unten auswerten.
' In VBA geht das nicht ohne extreme Verrenkungen
Set rngEval = rng.Parent.Cells(.Rows.Count, .Columns.Count)
If rngEval.Value  "" Then
MsgBox "Letzte Zelle auf dem Blatt ist nicht leer, kann nichts auswerten.", _
vbExclamation, "HyperlinkzielFinden"
Else
rngEval.Formula = "=" & Mid(strFormula, i + 10, intEndeLinkteil - (i + 9))
If Not IsError(rngEval) Then
HyperlinkzielFinden = rngEval.Text
End If
rngEval.Formula = ""
End If
Exit_HyperlinkzielFinden:
Exit Function
Error_HyperlinkzielFinden:
MsgBox Err.Number & ": " & Err.description & vbCrLf & _
" in Funktion HyperlinkzielFinden.", vbCritical, "mdlAllgemein"
Resume Exit_HyperlinkzielFinden
End Function

' die gefundene Formel in der Zelle gaaaanz rechts unten auswerten. ' In VBA geht das nicht ohne extreme Verrenkungen With rng.Parent Set rngEval = .Cells(.Rows.Count, .Columns.Count) End With If rngEval.Value "" Then

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	C:\Windows\	win.ini	win.ini	win.ini

Zieladresse aus Hyperlink-FORMEL auslesen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zieladresse aus Hyperlink-FORMEL auslesen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread