Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
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
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige