Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Ordner öffnen


Betrifft: Ordner öffnen von: Stefan
Geschrieben am: 26.07.2018 11:17:27

Hallo,

ich brauche eure Hilfe.
Ich möchte aus Excel einen Ordner öffnen.
Folgendes, (siehe Tabelle) ich habe mehrere Orte in einer Liste, zu jedem Ort gibt es einen Ordner.
Der Ort kann in Ordner A oder B liegen (Ordner A und B sind im Ordner Orte).
Jetzt möchte ich, wenn in Zeile 1 bei einem Ort eine "1" steht, ich auf ein Button klicke und der Ordner entsprechend geöffnet wird.

Danke

https://www.herber.de/bb

  

Betrifft: der Link geht nicht. owT von: Rudi Maintaire
Geschrieben am: 26.07.2018 12:14:07




  

Betrifft: AW: der Link geht nicht. owT von: Stefan
Geschrieben am: 26.07.2018 12:29:06

Misst, da hat es den Rest nicht mit Kopiert.

https://www.herber.de/bbs/user/122914.xls


  

Betrifft: AW: Ordner öffnen von: Rudi Maintaire
Geschrieben am: 26.07.2018 12:48:36

Hallo,
teste mal

Private Sub CommandButton1_Click()
  Dim strOrt As String, strPfad As String, strOrdner As String, strFile As String
  strPfad = "c:\test\Orte\" 'anpassen
  strOrt = Application.HLookup(1, Range("1:2"), 2, 0)
  strOrdner = "\OrdnerA\"
  strFile = Dir(strPfad & strOrdner & strOrt, vbNormal)
  If strFile = "" Then
    strOrdner = "\OrdnerB\"
    strFile = Dir(strPfad & strOrdner & strOrt, vbNormal)
  End If
  If strFile <> "" Then
    Workbooks.Open strPfad & strOrdner & strFile
  Else
    MsgBox "Nicht da"
  End If
End Sub

Gruß
Rudi


  

Betrifft: AW: Ordner öffnen von: Stefan
Geschrieben am: 26.07.2018 13:12:24

Hallo Rudi,
danke erst mal, sieht schon gut aus. Aber irgendwas stimmt noch nicht.
Muss gestehen, dass die Orte eigentlich in Zeile 3 stehen. Und die Orte noch in einem Unterordner von A und B stehen, dies habe ich aber in der VBA so geändert:

Private Sub CommandButton3_Click()

  Dim strOrt As String, strPfad As String, strOrdner As String, strFile As String
  strPfad = "K:\AUFTRÄGE\Orte\" 'anpassen
  strOrt = Application.HLookup(1, Range("1:2"), 2, 0)
  strOrdner = "\OrtA\Objekte\"
  strFile = Dir(strPfad & strOrdner & strOrt, vbNormal)
  If strFile = "" Then
    strOrdner = "\OrtB\Objekte\"
    strFile = Dir(strPfad & strOrdner & strOrt, vbNormal)
  End If
  If strFile <> "" Then
    Workbooks.Open strPfad & strOrdner & strFile
  Else
    MsgBox "Nicht da"
  End If
End Sub

"Nicht da" -> find ich gut

Grüße
Stefan


  

Betrifft: AW: Ordner öffnen von: Rudi Maintaire
Geschrieben am: 26.07.2018 14:59:27

strOrt = Application.HLookup(1, Range("1:3"), 3, 0)


  

Betrifft: AW: Ordner öffnen von: Stefan
Geschrieben am: 26.07.2018 15:09:32

Geht leider nicht :-(
Kommt immer nur "Nicht da"


  

Betrifft: AW: Ordner öffnen von: Rudi Maintaire
Geschrieben am: 26.07.2018 16:04:19

ich kenne deine Struktur nicht


  

Betrifft: AW: Ordner öffnen von: Stefan
Geschrieben am: 27.07.2018 06:20:52

Naja, ich versuche es mal:

K:\AUFTRÄGE\Kunde1\OrtA\Orte\
K:\AUFTRÄGE\Kunde1\OrtB\Orte\


Beiträge aus dem Excel-Forum zum Thema "Ordner öffnen"