Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

importieren in die favoriten

importieren in die favoriten
01.03.2006 14:55:11
Hans
ich hab eine excel-datei ( 6000 zeilen und 5 spalten ) .
jede zeile beginnt mit http://usw... (ist also eine internetadresse)
aus diesen 6000 zeilen hätte ich nun gerne 6000 favoriten in meinem internet explorer
was ich bisher mache, ist:
in kasten A6001 schreibe ich:
=HYPERLINK(A1&B1&C1&D1&E1;A1&B1&C1&D1&E1)
und ziehe mit dem kreuz den kasten runter bis in die 12tausendste zeile und kriege so 6000 hyperlinks.
die klick ich einzeln an und füge sie einzeln zu den favoriten hinzu
(als extra wäre es noch schön, wenn die einzelnen favoriten nach dem jeweiligen inhalt der spalte B benannt werden könnten. )

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: importieren in die favoriten
01.03.2006 16:03:03
u_
Hallo,
in ein Modul:

Sub addHyp()
Dim rng As Range, strHyp As String
For Each rng In Sheets(1).Range(Cells(1, 1), Cells(65536, 1).End(xlUp))
strHyp = rng & rng.Offset(0, 1) & rng.Offset(0, 2) & rng.Offset(0, 3) & rng.Offset(0, 4)
ActiveSheet.Hyperlinks.Add rng.Offset(0, 5), strHyp, "", , rng.Offset(0, 1).Value
rng.Offset(0, 5).Hyperlinks(1).AddToFavorites
Next
End Sub

vorher deineFormeln löschen.
Gruß
Geist ist geil!
AW: importieren in die favoriten
01.03.2006 18:45:59
Hans
danke, u_ !
ich werds so probieren ...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige