Userform Pfad öffnen
27.05.2021 07:04:18
Dieter
ich habe diesen Code .
Damit klicke ich auf dem Button ( Userform ) und er macht eine Excel Datei auf.
Der Pfad befindet sich im Tabellenblatt
Private Sub cmdvereinbarungen1_Click()
Dim strQuelle As String
Dim Treffer As Range
Dim s As String
If UserForm1.Txt1_MAvereinbarungen.Value = "" Then
Exit Sub
Else
s = UserForm1.Txt1_MAvereinbarungen.Value
Set Treffer = Tabelle9.Columns(1).Find(s, LookAt:=xlWhole)
If Not Treffer Is Nothing Then
strQuelle = Treffer.Offset(0, 35)
If strQuelle = "" Then
Exit Sub
Else
Workbooks.Open Filename:=strQuelle
End If
End If
End If
End Sub
Gibt es einen Code, der alles aufmacht, egal welche Datei ? z.B. Word .
Danke euch.
Dieter