Office: (Office 2019) VBA für automtaische Hyperlinks erweitern ...

RalfP. · 28. Januar 2021

Hallo,

zuerst suchst du nach vollständiger Übereinstimmung
Match((Zelle.Value & ".pdf")
dann nach ist enthalten
Match(("*" & Zelle.Value & "*.pdf")

bei stop hält der code an, drücke F8 um im Einzelschritt durchzugehen. Beobachte im Lokalfenster, was mit den Variablen passiert und im Worksheet.
Im Lokalfenster kannst du das array arrDateien aufklappen und schauen, was drin steht.

Code:

For Each Zelle In Bereich
If Zelle "" And Zelle.Hyperlinks.Count = 0 Then
stop
Idx = Application.Match((Zelle.Value & ".pdf"), arrDateien, 0)
If IsError(Idx) Then
Idx = Application.Match(("*" & Zelle.Value & "*.pdf"), arrDateien, 0)
ElseIf Idx < LBound(arrDateien) Or Idx > UBound(arrDateien) Then
Else
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

root2k · 9. Februar 2021

von RalfP.

zuerst suchst du nach vollständiger Übereinstimmung
Match((Zelle.Value & ".pdf")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit
Code:

Idx = Application.Match((Zelle.Value & ".pdf"), arrDateien, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

läuft zwar alles durch aber es wird kein Hyperlink hinzugefügt ...?

RalfP. · 31. Januar 2021

die code-zeile mit hyperlinks.add musst du natürlich einfügen, das sollte aber klar sein, siehe die unteres Beiträge

root2k · 9. Februar 2021

von RalfP.

die code-zeile mit hyperlinks.add musst du natürlich einfügen, das sollte aber klar sein, siehe die unteres Beiträge
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja das habe ich gemacht.
So sieht mein Code jetzt aus: Code:

For Each Zelle In Bereich
If Zelle "" And Zelle.Hyperlinks.Count = 0 Then
Idx = Application.Match((Zelle.Value & ".pdf"), arrDateien, 0)
If IsError(Idx) Then
Idx = Application.Match(("*" & Zelle.Value & "*.pdf"), arrDateien, 0)
ElseIf Idx < LBound(arrDateien) Or Idx > UBound(arrDateien) Then
Else
DateiName = arrDateien(Idx)
BackSlash = InStrRev(arrDateien(Idx), "", , vbTextCompare)
If BackSlash Then DateiName = Mid(DateiName, BackSlash + 1)
.Hyperlinks.Add Zelle, CStr(arrDateien(Idx)), , DateiName, CStr(Zelle.Value)
CPP Zaehler
End If
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und da geht er alles durch aber fügt keine Hyperlinks ein.

RalfP. · 1. Februar 2021

er kann nicht alles durchgehen, das ist die Logik hinter If Elseif Else.
Du hast offenbar meinen Tipp, den Code mit F8 im Einzelschritt durchzugehen nicht beachtet. Wenn du Code nicht verstehst, ist das die Lösung es zu lernen. siehe unten.

Office: (Office 2019) VBA für automtaische Hyperlinks erweitern ...

VBA für automtaische Hyperlinks erweitern ...

VBA für automtaische Hyperlinks erweitern ...

VBA für automtaische Hyperlinks erweitern ...

VBA für automtaische Hyperlinks erweitern ... - Similar Threads - VBA automtaische Hyperlinks

VBA HTTP Post - Probleme JSON Payload

Kombinationsfeld in VBA auswerten

Download per VBA nicht aktuell

Autofilter bei Zelländerung automatisch aktualisieren – ohne VBA

Bereich mit VBA zusammenhalten

bedingte Formatierung Schriftgröße (VBA?)

VBA-Code überspringt einzelne Zeilen