Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordnerinhalte anzeigen.

Forumthread: Ordnerinhalte anzeigen.

Ordnerinhalte anzeigen.
Matthias
Hallo Wissende,
ich habe folgendes Problem.
Ich würde auf eine Schaltfläche gerne ein Makro legen, welches einen
bestimmten Ordnerinhalt anzeigt.
Ich habe schon hier etwas ähnliches gefunden, bin aber nicht in der Lage
dies abzuändern.
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
If Target.Address  "$A$1" Then Exit Sub
Cancel = True
Shell "explorer " & Target.Value, vbMaximizedFocus
End Sub
wie gesagt, das Ergebnis ist ok, nur würde ich dies gern
durch das Benutzen einer Schaltfläche erreichen.
Danke im Voraus.
Matthias
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Ordnerinhalte anzeigen.
17.05.2010 12:12:04
Rudi
Hallo,
Private Sub CommandButton1_Click()
If Range("A1") = "" Then Exit Sub
Shell "explorer " & Range("A1").Value, vbMaximizedFocus
End Sub

Gruß
Rudi
AW: Ordnerinhalte anzeigen.
17.05.2010 16:37:16
Matthias
Hallo Rudi,
super vielen Dank. Funktioniert gut.
P.S. noch eine kurze Nachfrage, ist es auch möglich, dass man sich den Inhalt eines Ordners in einem DropDown Feld Anzeigen lassen kann und die Datei, die man wählt geöffnet wird?
Schöne Grüsse
Matthias
Anzeige
AW: Ordnerinhalte anzeigen.
18.05.2010 13:33:11
Rudi
Hallo,
das kann man ganz anders machen.
Sub test01()
'ab Version 2000:
If Range("A1") = "" Then Exit Sub
With Application.FileDialog(3)   '1=Open; 2=SaveAs; 3=FilePicker; 4=FolderPicker
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = Range("A1")
.InitialView = 2 '1=Liste; 2=Details; 3=properties; 4=Preview; 5=Thumbnail; 6=LargeIcons;  _
7=SmallIcons
If .Show = -1 Then
Workbooks.Open .SelectedItems(1)
End If
End With
End Sub

Gruß
Rudi
Anzeige
;

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