Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Datein auslesen und verlinken

Forumthread: Excel Datein auslesen und verlinken

Excel Datein auslesen und verlinken
20.04.2005 09:37:01
Michael
Hallo zusammen!
Mal wieder ein Problem, bei dem ihr mir hoffentlich helfen könnt:
Ist es möglich, einen Ordner auf einem Netzwerkwerk per Excel auslesen zu lassen und die dort liegenden Dateien (automatisch) zu verlinken?
Ich denke, da ist ein Makro nötig, oder? Leider hab ich davon keine Ahnung (lang lang ists her...).
Wenn ihr mir helfen könntet, wär das echt super!
Gruß und danke schon jetzt
M
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Datein auslesen und verlinken
20.04.2005 10:08:51
Ralf
Hallo Michael,
habe dir mal ein Beispiel gebastelt:
https://www.herber.de/bbs/user/21396.xls
(Code für Ordnerauswahl von K.Rola)
Hoffe es hilft.
Gruß
Ralf
AW: Excel Datein auslesen und verlinken
21.04.2005 15:44:42
MIchael
Hallo!
So, ich habs ausprobiert, und das Makro läuft ja phantastisch! Vielen, vielen Dank!
Eine Frage noch: Wie ändere ich die Spalte, in der das Makro die Dateien auflistet?
Danke
Michael
Anzeige
AW: Excel Datein auslesen und verlinken
21.04.2005 19:15:59
Ralf
Hallo Michael,
so schreibt er es in Spalte3. Einfach alle Zeilen wo ein Cells dabei ist den zweiten Wert von 1 auf 3 ändern. Dann noch diese Zeile:
Worksheets(1).Columns("C:C").AutoFit von "A:A" nach "C:C" ändern und gut.
Wenn du nicht in der ersten Zeile anfangen willst, dann ändere folgende Zeile:
For i = 1 To icount
Mach hier einfach 2 für Zeile 2.
Option Explicit

Sub Hyperlinks_einfügen()
Dim strFolder As String
Dim icount As Integer
Dim i As Integer
Dim j As Integer
Worksheets(1).Columns(1).Clear
With Application.FileDialog(4)
.InitialFileName = "C:\"
.Title = "Ordner auswählen"
.ButtonName = "Auswahl"
.InitialView = 2
If .Show = -1 Then
strFolder = .SelectedItems(1)
Else
MsgBox "Keine Auswahl getroffen!"
End If
End With
With Application.FileSearch
.NewSearch
.LookIn = strFolder
.Filename = "*.*"
.SearchSubFolders = False
.Execute
icount = .FoundFiles.Count
For i = 1 To icount
Worksheets(1).Hyperlinks.Add anchor:=Worksheets(1).Cells(i, 3), Address:=.FoundFiles(i)
For j = Len(Cells(i, 3)) To 1 Step -1
If Cells(i, 3).Characters(j, 1).Text = "\" Then
Cells(i, 3) = Right(Cells(i, 3), Len(Cells(i, 3)) - j)
Exit For
End If
Next j
Next i
End With
Worksheets(1).Columns("C:C").AutoFit
End Sub

Gruß
Ralf
Anzeige
;

Forumthreads zu verwandten Themen

Zellinhalt in geschlossen Dateien suchen..
Uwe

Guten Tag an Alle,
ist folgendes möglich?
wenn ich z.b. in Zelle A1 als Beispiel "ABC123" eingebe und auf enter drücke, dass dann in
C:Testordner mit jede Menge Unterordner die dann Paul;Hans;Klaus u.s.w. heißen in den geschlossenen Dateien geschaut wird ob das selbe auch in Zelle A...
06.08.2010 12:27:07
Thread-ID: 1170893
16 Beiträge
Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick

Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE"...
10.05.2011 14:57:44
Thread-ID: 1213837
4 Beiträge
Link auf Desktop für Ordner
Dietmar

Einen schönen Samstag in die Runde,
Ich möchte für einen speziellen Ordner eine Verknüpfung auf dem Desktop erzeugen. Mit folgendem Code, den ich hier vor längerer Zeit bekommen habe geht das wunderbar, wenn es sich um eine DATEI handelt.
Wie erreiche ich, dass die Verlinkung für einen...
17.03.2012 15:49:46
Thread-ID: 1255420
4 Beiträge
Anzeige
Bitte um Hilfe einen Hyperlink zu erstellen
Peter

Hallo,
Ich möchte ein Makro schreiben, dass sobald eine neue Datei erstellt ist, in einem anderen Tabellenblatt einen Hyperlink erstellt.
Das Problem vor dem ich stehe, ist folgendes: Wie schreibe ich einen Hyperlink, desen Namen erst in der Zukunft festgelegt wird, aber der Pfad scho...
20.03.2012 08:11:33
Thread-ID: 1255593
2 Beiträge
In Dateien suchen und ersetzen, einschl. Unterverz
guebla

Hallo Leute!
ich suche eine Routine die mir in den Excel-Dateien Inhalte (Wort) sucht und dieses dann durch _
ein anderen Inhalt (Wort) ersetzt. Beim Stöbern im Forum habe ich folgende VBA-Routine _ gefunden: Sub DateienÄndern() Dim blnGeändert As Boolean Dim lngZähler As Long Dim r...
11.06.2014 15:52:50
Thread-ID: 1365461
3 Beiträge
Dateien in Pfad suchen und nacheinander öffnen
Robin

Hallo Leute,
ich habe ein Programm geschrieben, wo manuell Dateien geöffnet und dann Daten importiert werden.
Nun will ich das Öffnen und Verarbeiten automatisieren.
Im Quellpfad soll nach Dateien mit dem Namensinhalt *Benutzer* gesucht werden.
Dann sollen alle Dateien nacheinan...
28.07.2014 09:36:43
Thread-ID: 1372657
3 Beiträge
Anzeige
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Hyperlink auf Vorlagen in anderen Ordnern
MB12

Hallo zusammen,
erst mal ein großes Lob an die Kompetenz, die sich in diesem Forum zusammengefunden hat. Egal welches Excel-Problem ich habe: Am Schluss lande ich hier.
Problem Hyperlink:
Alle Ordner befinden sich auf unserem Abteilungs-Laufwerk.
Ordner (insg. 8), z.B.:
A ge...
11.10.2014 10:40:49
Thread-ID: 1386108
3 Beiträge
Excel Dateien in Verzeichnisstruktur durchsuchen
Uwe

Hallo zusammen,
ich möchte in einem Verzeichnis und deren Unterverzeichnissen alle Excel Dateien durchsuchen und wenn in einer Zeile z.B. U9559* vorkommt diese löschen.
Wie mache ich das?.
Vielen Dank für Eure Hilfe,
Uwe
02.06.2015 10:20:45
Thread-ID: 1428802
2 Beiträge
nur in definierten offenen Dateien suchen
Gregor

Hallo
Ich möchte alle offenen Dateien mit dem Textteil "1628" im Dateinamen nacheinander durchsuchen. Wie sieht der Code für diesen Loop aus. Dateinamen ohne Textteil "1628" ignorieren.
Vielen Dank und Gruss
Gregor
12.01.2016 12:19:19
Thread-ID: 1468413
3 Beiträge
Hyperlink in Excel zu Ordnern
Sascha H.

und eben nicht zu datein , sondern zur ansicht eines ordners samt inhalt
is sowas möglich oder nich ?
wenn ja , wie thx im vorraus @Sash
22.08.2002 11:37:32
Thread-ID: 151497
2 Beiträge
Kalenderblatt automatisch per Hyperlink erstellen
Schiermeier

Hallo zusammen,
ich habe da mal eine Frage, ob so was in Excel funktionieren könnte und wenn ja dann wie man es umsetzt.
Ich habe ein Tabellenblatt auf dem untereinander alle Monate in Jahren aufgeteilt stehen und für jedes Jahr ein Kalenderblatt was versteckt ist und mit einem Hyperlin...
11.11.2016 11:49:55
Thread-ID: 1524227
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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