Herbers Excel/VBA-Archiv

Datei Öffnen anzeigen

• Datei Öffnen anzeigen von Jan vom 16.09.2004 11:22:52
• AW: Datei Öffnen anzeigen - von Andre am 16.09.2004 11:29:38
• AW: Datei Öffnen anzeigen - von Dominic am 16.09.2004 11:36:40
• AW: Datei Öffnen anzeigen - von Jan am 20.09.2004 10:00:17
  • Gern geschehen! o.T. - von Andre am 20.09.2004 10:36:36

Betrifft: Datei Öffnen anzeigen von: Jan
Geschrieben am: 16.09.2004 11:22:52

Hallo zusammen,

ich habe in Excel eine Schaltfläche. Wenn ich auf die Schaltfläche klicke, soll sich die Datei Öffnen Anzeige öffnen und zwar soll auch noch ein bestimmtes Verzeichnis angezeigt werden.

Irgendwelche Ideen?

Gruss
Jan

Betrifft: AW: Datei Öffnen anzeigen von: Andre
Geschrieben am: 16.09.2004 11:29:38

Hi Jan,

mit folgendem Makro kannst du den Aufruf sämtlicher Dialoge herausfinden:

Sub Dialoge_finden()
Dim i As Integer

On Error Resume Next
   
   For i = 1 To Application.Dialogs.Count
      [Tabelle1!A1] = i
      Application.Dialogs(i).Show
   Next

End Sub

Um das Verzeichnis festzulegen und den Dialog aufzurufen, einfach folgenden Code:

Sub Aufruf()
   ChDir "C:\Test"
   Application.Dialogs(DeineNummer).Show
End Sub

Gruß Andre




Betrifft: AW: Datei Öffnen anzeigen von: Dominic
Geschrieben am: 16.09.2004 11:36:40

Oder:
ChDir "C:\"
Application.GetOpenFilename




Betrifft: AW: Datei Öffnen anzeigen von: Jan
Geschrieben am: 20.09.2004 10:00:17

Hallo Andre, hallo Dmonic,

vielen Dank für die Hilfe.

Hatte nur vergessen noch anzugeben, daß ich auch den Laufwerksbuchstaben wechseln will.
Aber dank ChDrive gehts ja.
Übrigens eine super Sache mit den ID's der Kontextmenüs. Hilft mir sehr in Zukunft.

Grüsse
Jan




Betrifft: Gern geschehen! o.T. von: Andre
Geschrieben am: 20.09.2004 10:36:36

Beiträge aus den Excel-Beispielen zum Thema "Datei Öffnen anzeigen"