Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

(Hyper)-Links per Makro einbinden

(Hyper)-Links per Makro einbinden
Jockel
Hallo,
ich habe ein Verzeichnis, in dem liegen ziemlich viel einzelne Dateien drin (an die 500, xls und html). Ich möchte nun eine Excel Mappe machen und alle einzelnen Dateien per Hyperlink in die Excelmappe einfügen. Also, das was ich eigentlich über das Menü EINFÜGEN / HYPERLINKS mache.
Pro Zeile praktisch eine Verknüpfung.
Da ich nun nicht über 500 Links von Hand einfügen will, Frage: gibt es die Möglichkeit, sowas mit einem Makro (vielleicht einer Schleife) alle Dateien, die in einem entsprechenden Verzeichnis sind, per Hyperlink in eine Mappe einzubinden ?
Danke mal für alle Tipps
Gruß
Jockel

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

Betreff
Benutzer
Anzeige
AW: (Hyper)-Links per Makro einbinden
13.12.2010 09:28:04
hary
Hallo
meinst Du so? Code von Ramses. 

Sub Liste()
'(C) Ramses
Dim checkFolder As String
Dim myShell As Object, myFolder As Object
Dim chkFileName
Dim startRow As Long, tarCol As Integer
Dim SuchDialog As FileDialog, sInt As Integer
Set SuchDialog = Application.FileDialog(msoFileDialogFolderPicker)
tarCol = 1
startRow = 1
With SuchDialog
.Title = "Bitte wählen Sie ein Verzeichnis aus"
.InitialFileName = Application.DefaultFilePath
.ButtonName = "Auswahl übernehmen"
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Sie haben keine Auswahl getroffen", vbInformation
Set SuchDialog = Nothing
Exit Sub
Else
For sInt = 1 To .SelectedItems.Count
checkFolder = .SelectedItems(sInt)
Next sInt
End If
End With
Application.ScreenUpdating = False
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace("" & checkFolder & "")
If Right(checkFolder, 1)  "\" Then
checkFolder = checkFolder & "\"
End If
Cells.Clear
Cells(startRow, tarCol) = "Filename"
Rows(startRow).Font.Bold = True
startRow = startRow + 1
For Each chkFileName In myFolder.Items
With Cells(startRow, tarCol)
.Value = myFolder.GetDetailsOf(chkFileName, 0)
.Hyperlinks.Add Anchor:=Cells(startRow, tarCol), Address:=checkFolder & .Value,  _
TextToDisplay:=.Value
End With
startRow = startRow + 1
Next
Application.ScreenUpdating = True
End Sub

gruss hary
Anzeige
Danke, genau das wollte ich owT
13.12.2010 14:18:48
Jockel
AW: (Hyper)-Links per Makro einbinden
13.12.2010 09:30:24
Beverly
Hi Jockel, 
Sub HyperlinksEintragen()
Dim strVerzeichnis As String
Dim strTyp As String
Dim strDateiname As String
Dim loZeile As Long
strTyp = "*.xls"
Application.ScreenUpdating = False
strVerzeichnis = "C:\Test\"
strDateiname = Dir(strVerzeichnis & strTyp)
loZeile = 1
With ThisWorkbook.Worksheets("Tabelle1")
Do While strDateiname  ""
.Cells(loZeile, 1) = strVerzeichnis & strDateiname
.Cells(loZeile, 1).Hyperlinks.Add anchor:=.Cells(loZeile, 1), Address:=Cells( _
loZeile, 1).Value, _
TextToDisplay:=strDateiname
strDateiname = Dir
loZeile = loZeile + 1
Loop
End With
Application.ScreenUpdating = True
End Sub


Anzeige
Danke, genau das wollte ich owT
13.12.2010 14:19:18
Jockel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige