Über Kombinationsfeld - Datei öffnen (HILFE)

Hallo Miteinander,
ich habe jetzt länger versucht ein bestimmtes Problem zu lösen aber ich schaffe es einfach nicht. Ich habe schon rauf und runter gegoogelt und auch hier im Archiv gesucht und auch schon im Forum um Hilfe erbeten (siehe Links unten), aber ich komme nicht weiter.
Ich hoffe Ihr könnt mir bitte weiterhelfen und zwar BITTE mit AUSFÜHRLICHEN Anweisungen, da ich absoluter Beginner bin. Am Besten wenn Ihr es mir anhand von meinem / einem Beispiel aufzeigen könnt, wär es perfekt.
Noch mal kurz zu meiner Vorstellung:
Ich will in einem Excel-Dokument ein Kombinationsfeld (ComboBox) platzieren, indem 3 Dokumente hinterlegt sind (in einem eigenen Bereich) und wenn man ein Dokument auswählt soll diese Datei geöffnet werden.
Das hat auch geklappt in der reinen Form (d.h. wenn die 3 Dokumente vom gleichen Ordner kommen). Aber wenn jetzt die 3 Dokumente aus unterschiedlichen Ordnern kommen schaffe ich es nicht.
Ich weiß, dass ich 2 Spalten hinterlegen muss (in der Theorie) aber in der Praxis will es nicht so wie ich will :(
Also meine Fragen zusammengefasst:
1. Ich habe 2 Spalten, allerdings wird nur der Pfadname im Auswahlfeld angezeigt. Was muss ich bei den Eigenschaften ändern, dass der Dateiname eingeblendet wird?
2. Wie muss man das Makro gestalten, damit unterschiedliche Dokumente aus unterschiedlichen Ordnern geöffnet werden können?
3. Was muss man tun, wenn man nicht nur Excel-Dateien, sondern auch Dokumente mit anderen Formaten (Word) öffnen will? Das wäre perfekt wenn das auch gehen würde, ansonsten ist es in erster Instanz auch ok wenn zurzeit nur Excel-Dateien geöffnet werden.
Wie gesagt ich BITTE Euch mir zu helfen, da ich Anfänger bin und mich erst in das Thema einlese, aber das muss ich jetzt leider lösen, da meine Zeit knapp wird.
Vielen Dank im Voraus.
GLG miss18
Hier meine Beispieldatei:

Die Datei https://www.herber.de/bbs/user/61452.xls wurde aus Datenschutzgründen gelöscht

Hier meine früheren Anfragen:
https://www.herber.de/forum/archiv/1068to1072/t1069924.htm
https://www.herber.de/forum/archiv/1068to1072/t1070949.htm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Denise,
so sollte es auch mit Exceldateien klappen.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long

Private Sub ComboBox1_Click()
  Dim strDatei As String

  With ComboBox1
    If .ListIndex > -1 Then
      strDatei = .List(.ListIndex, 1) & IIf(Right(.List(.ListIndex, 1), 1) = "\", "", "\") & .List(.ListIndex, 0)
      If Dir(strDatei) <> "" Then
        If Mid(strDatei, InStrRev(strDatei, ".") + 1) Like "*xl*" Then
          Workbooks.Open strDatei
        Else
          ShellExecute Application.hwnd, "Open", strDatei, vbNullString, vbNullString, 0
        End If
      End If
    End If
  End With
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Über Kombinationsfeld - Datei öffnen (HILFE)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Über Kombinationsfeld - Datei öffnen (HILFE)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread