Datei starten wenn Laufwerk im Netz übereinstimmt
15.03.2009 13:05:16
Wolfgang
Tino hat mir gestern geholfen diesen Code richtig zu stellen und er funktioniert auch tadellos auf dem PC.
Sobal ich aber dies im Netzwerk machen will geht es nicht.
Der Laufwerksbuchstabe im Netz heißt:
Data auf "sbscom" (I:)
Gibt es hierfür auch eine elegante Lösung?
Private Sub UserForm_Initialize()
Dim objCon As Control
Dim sPathZelle As String
'Pfad in Zelle A3
sPathZelle = Worksheets("LagerHolz").Range("A3")
If Dir(sPathZelle, vbDirectory) = "" Then
For Each objCon In Controls
If TypeName(objCon) = "CommandButton" Then
If objCon.Name "CommandButton16" And objCon.Name "CommandButton9" Then
objCon.Visible = False
End If
End If
Next objCon
End If
End Sub
Gruß
Wolfgang