12.03.2020, 17:02
Hallo
Ich will einen Ordner im ":P Laufwerk" Öffnen und das soll so ablaufen
ich habe in Spalte "A = 8500024." in Spalte "C = München" in Spalte "E = Röntgenstr.6"
So sind die Namen von Ordner im "Laufwerk :P" "A"_"C","E" ("8500024._München,Röntgenstr.6")
ich will wenn ich auf eine Zelle in Spalte "A" Doppelklick mache das er mir im "Laufwerk :P" Ordner nur nach den Namen Von Spalte "A" Sucht nicht den ganzen namen heiß 8500024. und den natürlich öffnet.
Danke
ich habe mit diesem Code Probiert
Ich will einen Ordner im ":P Laufwerk" Öffnen und das soll so ablaufen
ich habe in Spalte "A = 8500024." in Spalte "C = München" in Spalte "E = Röntgenstr.6"
So sind die Namen von Ordner im "Laufwerk :P" "A"_"C","E" ("8500024._München,Röntgenstr.6")
ich will wenn ich auf eine Zelle in Spalte "A" Doppelklick mache das er mir im "Laufwerk :P" Ordner nur nach den Namen Von Spalte "A" Sucht nicht den ganzen namen heiß 8500024. und den natürlich öffnet.
Danke
ich habe mit diesem Code Probiert
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Es muß ein Verweis auf das "Windows Script Host Objekt Model" gesetzt sein
'Der Pfad muß den Computernamen oder die IP des Computers mit der Freigabe enthalten
Const PFAD As String = "P:\Daten\B053071_ERIK HÖCHST\Baustellen\"
Dim StrOrdner As String
StrOrdner = Dir(PFAD, vbDirectory)
Do
If StrOrdner = "" Then
MsgBox "Verzeichnis nicht gefunden", vbCritical + vbOKOnly,
GoTo Raushier 'Verzeichnis komplett durchsucht>>raushier
End If
If InStr(1, StrOrdner, Target.EntireRow.Columns("A"), vbTextCompare) > 0 Then 'Nummer im Pfad?
Exit Do ' Ja>>Schleife abbrechen
End If 'Nein >> nächste Verzeichnis im Ordner
StrOrdner = Dir
Loop
StrOrdner = PFAD & StrOrdner
Shell "Explorer.exe " & StrOrdner, vbNormalFocus
Raushier:
End Sub