Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner

Ordner
Andreas
Hallo und schönen Montag an alle
ich wollte mal fragen, ob es eine Möglichkeit gibt, mittels Macro und dazugehörigen Icon
bestimmte Ordner zu öffnen.
Kurz gesagt, ich möchte ein Icon mit einem Macro belegen, welches dann mir einen bestimmten
Ordner öffnet, so das ich dann mir die richtigen Dateien aussuchen kann.
Ich hoffe, ich hab es richtig beschrieben und würde mich über eien Hilfe freuen.
Andreas

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

Betreff
Benutzer
Anzeige
aus versehen 2 mal rein....... o.T.
07.05.2012 12:37:33
Andreas
AW: aus versehen 2 mal rein....... o.T.
07.05.2012 12:40:12
Reinhard
Hallo Andreas, 
Sub nn()
Dim fileToOpen
ChDrive "C"
ChDir "C:\test"
fileToOpen = Application.GetOpenFilename("Excel dateien (*.xls), *.xls")
If fileToOpen  False Then
Workbooks.Open fileToOpen
End If
End Sub

Gruß
Reinhard
AW: aus versehen 2 mal rein....... o.T.
07.05.2012 15:50:51
Andreas
Hallo Reinhard
leider funzt die Geschichte nicht richtig.
Er sucht immer die Datei "Test" - habe ich herausgenommen.
Das Macro öffnet aber immer den letzten Ordner....
Er soll aber einen bestimmten Ordner öffnen, den ich im Pfad festlege.
Geht das auch.
Danke
AW: aus versehen 2 mal rein....... o.T.
07.05.2012 16:25:49
Reinhard
Hallo Andreas,
test ist ein Ordner. Von mir aus ein Ordner-File.
Wo legst du das im "Pfad" fest?
So ginge das: 
Sub nn()
Dim fileToOpen
Const Pfad As String = "C:\test"
ChDrive Pfad
ChDir Pfad
fileToOpen = Application.GetOpenFilename("Excel dateien (*.xls), *.xls")
If fileToOpen  False Then
Workbooks.Open fileToOpen
End If
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige