Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink-Adressen auslesen?

Hyperlink-Adressen auslesen?
17.02.2008 10:10:56
Selma
Hallo Leute,
wie kann ich alle Hyperlink-Adressen des aktives Arbeitsblattes in das Arbeitsblatt "Hyperlinks" auslesen / eintragen?
Arbeitsblatt "Hyperlinks":
In Spalte A soll der Zellname stehen, wo der Hyperlink gefunden wurde
In Spalte B soll die Hyperlink-Adresse stehen
zum Beispiel:
A2 = D20
B2 = D:\angebote\2058\2058\Eingang\Müller GmbH\2007-10-28\GUTSCHRIFT_26_07_07.doc
A3 = F54
B3 = D:\angebote\2058\2058\Eingang\Fa. Müller\2007-10-27\Abnahmeprozedere_20060426.mpp
Vielen Dank im Voraus !
Viele Grüße,
Selma

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink-Adressen auslesen?
17.02.2008 10:30:45
Josef
Hallo Selma,
probier mal.
Sub readLink()
Dim hLink As Hyperlink
Dim lngR As Long

lngR = 2
With Sheets("Hyperlinks")
    .Range("A2:B" & Rows.Count).Clear
    For Each hLink In ActiveSheet.Hyperlinks
        .Cells(lngR, 1) = hLink.Parent.Address(0, 0)
        
        'als Text eintragen
        ' If hLink.Address = "" Then
        ' .Cells(lngR, 2) = hLink.SubAddress
        ' Else
        ' .Cells(lngR, 2) = hLink.Address
        ' End If
        
        'oder als Hyperlink eintragen
        .Hyperlinks.Add Anchor:=.Cells(lngR, 2), _
            Address:=hLink.Address, _
            SubAddress:=IIf(hLink.SubAddress <> "", hLink.SubAddress, ""), _
            TextToDisplay:=IIf(hLink.Address = "", hLink.SubAddress, hLink.Address)
        
        
        lngR = lngR + 1
    Next
    .Columns.AutoFit
End With
End Sub


Gruß Sepp



Anzeige
AW: Hyperlink-Adressen auslesen?
17.02.2008 11:05:27
Selma
Hallo lieber Sepp,
vielen Dank es funktioniert prima. Ich habe eine Frage noch (siehe Beispieldatei): https://www.herber.de/bbs/user/49969.xls
Im Arbeitsblatt "Hyperlinks" steht unteranderem auch dies:
B3:B6 D:\angebote\2058\2058\Eingang\Fa. Müller\2007-10-27\
B8:B11 D:\angebote\2058\2058\Eingang\Müller GmbH\2007-11-01\
Diese Zellbereiche sagen mir nichts. Ansonsten ist alles andere wie immer richtig :-)
Vielen Dank !
Viele liebe Grüße,
Selma

AW: Hyperlink-Adressen auslesen?
17.02.2008 11:26:37
Josef
Hallo Selma,
in diesen Zellen stehen Hyperlinks genau wie in den anderen auch, nur erstrecken sie sich über mehrere Zellen.

Gruß Sepp



Anzeige
AW: Hyperlink-Adressen auslesen?
17.02.2008 11:33:00
Selma
Danke Sepp !
Liebe Grüße,
Selma

197 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Hyperlink-Adresse aus Zelle übernehmen
werner

Hallo,
ich habe in einer Datei div. Userforms Buttons, die Hyperlinks zu internen Dateien und Web- _ Sites öffnen und gelegentlich aktualisiert werden müssen, z.B. Private Sub CBt34_Click() ActiveWorkbook.FollowHyperlink Address:="http://www.xxx.html", NewWindow:=True End Sub
Damit ic...
02.09.2009 17:43:19
Thread-ID: 1100160
3 Beiträge
Wert aus Zelle herauslesen
Johannes

Hallo zusammen,
weiß jemand, wie man eine Zahl aus einer Zelle mittels einer Formel herauslesen kann und mit dieser auch weiter rechnen kann?
Beispiel:
In Zelle A1 steht (das ' signalsiert den Zellanfang und -ende):
' 600 Haushaltswaren'
Jetzt möchte in A2 nur den W...
28.09.2009 11:51:34
Thread-ID: 1105996
3 Beiträge
Datum aus Zelle auslesen
Thomas

Hallo zusammen,
ich suche einen Weg, um aus einer Tabellenzelle ein Datum auszulesen, welches zwischen anderen Begriffen/Wörtern/Zahlen/Buchstaben steht.
Es hat immer das selbe Format: zB 15.02.09.
Eine solche Zelle sieht aber jedes mal anders aus, zB so (steht immer in A2):
Hi...
10.11.2009 11:18:36
Thread-ID: 1115770
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
7
5
3
5
3
2
2
3
7
2
8
2
12
2
3
13
9
4
3
2
1
2
8