Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlink in VBA kopieren
 10.12.2013 12:38:44 Marcel
NotSolved
10.12.2013 12:40:28 Marcel
NotSolved

Ansicht des Beitrags:
Von:
Marcel		 Datum:
10.12.2013 12:38:44		 Views:
1756		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink in VBA kopieren

Hallo VBA-Forum,

ich habe ein spezielles Problem und hoffe hier auf Hilfe.

1. Wir haben eine Inventurliste mit vielen Daten.

2. In der Inveturliste befindet sich auch eine Spalte mit Info, welche Hyperlinks zu PDF-Dokumenten enthält.

3. Ich habe nun per VBA eine Suchfunktion erstellt, welche mir die Ergebnisse in einem bestimmten Bereich der Tabelle ausspuckt.

Jedoch werden die Hyperlinks nicht als Links sondern nur als Text in den Suchergebnissen angezeigt.

Es handelt sich um folgende Zeile: 

?
1
Cells(intgef - 1, 10) = Cells(intbereich, 6)

Diese besagt. dass beim gefundenen Eintrag der Hyperlink aus Spalte 6 in die Suchergebnisse der Zeile 10 kopiert wird. Es wird aber leider nur der Text kopiert.

Hier der gesamte Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Instrsuche()
    Dim intwort, intbereich, intergebnis, intgef As Integer
    Dim loletzte As Long
 
    Range("F2:L25").ClearContents
    intgef = 2
    loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
    intwort = InputBox("Suchbegriff")
    For intbereich = 1 To loletzte
        If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
            Cells(intgef, 6) = Cells(intbereich, 3)
            intergebnis = intbereich
             
            intgef = intgef + 1
            Cells(intgef - 1, 7) = Cells(intbereich, 2)
            Cells(intgef - 1, 8) = Cells(intbereich, 4)
            Cells(intgef - 1, 9) = Cells(intbereich, 5)
            Cells(intgef - 1, 10) = Cells(intbereich, 6)
            Cells(intgef - 1, 11) = Cells(intbereich, 7)
            Cells(intgef - 1, 12) = Cells(intbereich, 8)
        End If
    Next intbereich
End Sub


Vielen Dank für eure Hilfe!

Marcel

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlink in VBA kopieren
 10.12.2013 12:38:44 Marcel
NotSolved
10.12.2013 12:40:28 Marcel
NotSolved