Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Hyperlink in Excel per VBA auslesen

Frage Microsoft Microsoft Office

Mitglied: Grave111

Grave111 (Level 1) - Jetzt verbinden

21.11.2014, aktualisiert 17:55 Uhr, 4430 Aufrufe, 2 Kommentare

Hallo und guten Abend zusammen,

ich hätte ein kleines Problem und werde nicht wirklich fündig bei Google.
Wie im Titel bereits steht möchte ich einen Hyperlink aus einer Zelle auslesen und in URL Schreibweise in einer anderen Zelle ausgeben.

Ich schilder mal kurz die Ausgangssituation von mir..

Es wird in in einer Zelle ein Hyperlink per Formel zusammengesetzt hier das beispiel:
=HYPERLINK("http:///ADRESSE/default.cfm?OrderField=Control_Report_Nbr%20asc&Orderdir=Desc&Part_Nr="&A2;"Link - Report")

zunächst gebe ich immer die gleiche Adresse (Intranet Anwendung) vor und verkette diese mit einer Nummer die in einer Zelle in Excel steht hier im Beispiel "A2". daraufhin folgt der Name der angezeigt wird.

So nun zum Problem ich möchte jetzt die komplette URL (in verketteter Form) in eine andere Zelle schreiben da ich diese zum Export in Access benötige.

Mit folgender einfacher VBA Funktion funktioniert es zwar bei normalen Links aber nicht bei den Zusammengesetzten URL aus dem Beispiel oben.

Function HyperlinkAdresse(Zelle As Range) As String
HyperlinkAdresse = Zelle.Hyperlinks(1).Address
End Function

die Formel im Excel selber würde dann z.B. so aussehen.
=HyperlinkAdresse(A5)


Gibt es hier VBA Lösungen um auch wie in diesem Beispiel die URL auszulesen?


Grüße,
Mitglied: 114757
21.11.2014, aktualisiert um 20:16 Uhr
Moin,
wieso schreibst du nicht in die andere Zelle
="http:///ADRESSE/default.cfm?OrderField=Control_Report_Nbr%20asc&Orderdir=Desc&Part_Nr="&A2
dann hast du doch was du brauchst ...

Da der Hyperlink als Formel erzeugt wurde, gilt er unter VBA nicht als richtiger Hyperlink, bzw. ist nicht über diese Eigenschaft ansprechbar.

Entweder du lässt den Benutzerdefinierten Namen des Hyperlinks weg, dann kannst du die URL mit Zelle.Value abrufen, oder machst es wie oben beschrieben, oder du extrahierst den Link aus der Eigenschaft Zelle.Formula.
01.
Function HyperlinkAdresse(Zelle As Range) As String 
02.
    Set regex = CreateObject("vbscript.regexp"): regex.Pattern = "[a-z]+\d+": regex.IgnoreCase = True 
03.
    arrParts = Split(Zelle.Formula, """", -1, vbTextCompare) 
04.
    HyperlinkAdresse = arrParts(1) & Range(regex.Execute(arrParts(2))(0).Value).Value 
05.
End Function
Gruß jodel32
Bitte warten ..
Mitglied: 116301
22.11.2014 um 08:22 Uhr
Hallo zusammen!

Oder so:
01.
Option Explicit 
02.
Option Compare Text 
03.
 
04.
Function GetLink(Target1 As Range, Target2 As Range) As String 
05.
    Application.Volatile 
06.
    If InStr(Target1.Formula, "hyperlink") > 0 Then 
07.
        GetLink = Split(Target1.Formula, Chr(34))(1) & Target2.Value 
08.
    End If 
09.
End Function
Wobei es damit nur funktioniert, wenn der Zellwert am Ende angefügt ist/wird...

Beispiel mit A1(=Hyperlink...) und A2(Value):
=GetLink(A1;A2)

Grüße Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Adressen aus Hyperlinks auslesen (3)

Frage von kluthi69 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst VBA zum auslesen von einem Zellbereich Excel (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (18)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...