Pfad von exccel auf Word
01.04.2021 10:54:32
exccel
wir haben eine Art zugriff damit listen schneller kommen.:
Private Sub cmd_Button_5_Click()
Dim indx As Long
With Me.Lst5
indx = getselectedIndx(.Name)
If indx > -1 Then
' On Error Resume Next
If Dir(.List(indx, 1)) "" Then
Workbooks.Open Filename:=.List(indx, 1)
Else
MsgBox "Datei '" & .List(indx, 1) & "' nicht vorhanden"
End If
Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End If
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range, sName As String, i As Long, cnt As Long
i = 1
For cnt = 0 To Me.Controls.Count - 1
If Me.Controls(cnt).Name Like "Lst*" Then
sName = Right(Me.Controls(cnt).Name, Len(Me.Controls(cnt).Name) - 3)
With Me.Controls("Lst" & sName)
.ColumnCount = 2
.ColumnWidths = "150;0"
Set rng = Tabelle2.UsedRange.Cells(1, i) 'Spalte wähle
Debug.Print rng.Address
Set rng = rng.Offset(1).Resize(rng.End(xlDown).Row - 1, 2) 'bereich vergrößern
.List = rng.Value 'liste zuweisen
Me.Controls("Label_" & sName).Caption = rng.Cells(1, 1).Offset(-1).Value
'Text in Beschriftungsfeld schreiben
i = i + 2
End With
End If
Next
End Sub
Das heißt wir wählen über User Form den Namen aus und anschließend kommt die Liste.
Tabelle2 Spalte A schreiben wir den Namen und in Spalte B den Pfad.
Momentan ist es so, das nur Excel Dateien geöffnet werden. Kann man das irgendie ändern, das man auch Word und PDF usw.. Datei öffnen kann ?
Dankeschön
LG Dieter