Thema Datum  Von Nutzer Rating
Antwort
19.03.2019 18:50:43 Michi
**
Solved
20.03.2019 11:11:40 Ulrich
Solved
20.03.2019 12:42:16 Gast53183
Solved
20.03.2019 13:38:19 Ulrich
Solved
20.03.2019 15:50:09 Gast74318
NotSolved
20.03.2019 19:51:43 Ulrich
****
NotSolved
20.03.2019 20:49:37 Gast91390
NotSolved
01.04.2019 14:29:24 Gast53114
NotSolved
01.04.2019 15:26:59 Gast13451
NotSolved
01.04.2019 18:50:05 Ulrich
NotSolved
Rot noch offene Fragen?
 02.04.2019 07:54:34 Michi
Solved
02.04.2019 09:06:06 Ulrich
Solved

Ansicht des Beitrags:
Von:
Michi		 Datum:
02.04.2019 07:54:34		 Views:
307		 Rating:
     
Antwort:
 Nein
Thema:
noch offene Fragen?

hat sich erledigt. Ich hab die Lösung!

Sub OrdnerOeffnen()
Dim fso As Object
Dim unterordner As Object
Dim ordner As Object
Dim quellordner As String
Dim suchname As String
Dim objno As String


project = ActiveCell.Value

Set fso = CreateObject("Scripting.FileSystemObject")

quellordner = "C:\Ordner\projekte\20" & Left(project, 2) & "\"
suchname = project

Set unterordner = fso.GetFolder(quellordner).Subfolders
For Each ordner In unterordner
    If Left(ordner.Name, Len(suchname)) = suchname Then Projektpfad = quellordner & ordner.Name
Next
Shell "explorer.exe /e, " & Projektpfad, vbMaximizedFocus

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.03.2019 18:50:43 Michi
**
Solved
20.03.2019 11:11:40 Ulrich
Solved
20.03.2019 12:42:16 Gast53183
Solved
20.03.2019 13:38:19 Ulrich
Solved
20.03.2019 15:50:09 Gast74318
NotSolved
20.03.2019 19:51:43 Ulrich
****
NotSolved
20.03.2019 20:49:37 Gast91390
NotSolved
01.04.2019 14:29:24 Gast53114
NotSolved
01.04.2019 15:26:59 Gast13451
NotSolved
01.04.2019 18:50:05 Ulrich
NotSolved
Rot noch offene Fragen?
 02.04.2019 07:54:34 Michi
Solved
02.04.2019 09:06:06 Ulrich
Solved