Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsmappen

Forumthread: Arbeitsmappen

Arbeitsmappen
11.03.2003 16:19:16
Stefan
Hallo,

kann man sich Arbeitsmappen in einer Art Übersicht anzeigen lassen und wenn man diese in der Übersicht anklickt, daß automatisch die Arbeitsmappe geöffnet wird?

Vielen Dank im voraus

Stefan


Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsmappen
11.03.2003 16:37:50
th.heinrich

hi Stefan,

wo willst Du die uebersicht erstellen ?

vielleicht bringt Dich HYPERLINK weiter.

gruss thomas

Re: Arbeitsmappen
11.03.2003 16:51:53
Lutz

Hallo Stefan,

folgende Code in ein Modul und Pfad anpassen:

Sub DateienEinlesen()

Dim arrFiles As Variant, z As String
Dim intRow As Integer, cnt As Integer, i As Integer
Dim wks As Worksheet
Dim strPath As String
strPath = "d:\privat\visualbasic\lösungen\"
arrFiles = FileArray(strPath, "*.xls")
strPath = WorksheetFunction.Substitute(strPath, "\", "/")
Set wks = ActiveSheet
For intRow = 1 To UBound(arrFiles)
With wks
.Cells(intRow, 1).Value = arrFiles(intRow)
.Cells(intRow, 2).Value = strPath & arrFiles(intRow)
.Cells(intRow, 3).FormulaR1C1 = "=HYPERLINK(RC[-1])"
End With
Next intRow
Application.ScreenUpdating = False
End Sub


Private Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function

Gruß
Lutz

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige