wie kann ich einemn Menuepunkt einfügen, in dem alle Dateien eines bestimmten Verzeichnises zum Öffnen hinterlegt sind? Die Dateien in dem Verzeichnis ändern sich. Ich habe mal ein wenig probiert (s. u.) ich bekomme das Menue auch erstellt, aber leider startet immer nur die letzte Datei (was auch logisch ist). Wie kann ich die Datei starten, die Ausgewählt wurde???
Wäre echt super, wenn mir jemand helfen könnte.
Danke Robert
Const PfadBund = "v:\b1000\12\arch12\H.Ü.L\H.Ü.L.Bund\"
Dim FileName As String
Sub HülMenue()
Dim AnzahlMenue As Integer
Dim MenueHül As CommandBarPopup
Dim BundLand As CommandBarPopup
Dim Titel As CommandBarPopup
Dim HülButtonBund As CommandBarControl
Call EigeneMenuesAus
'Eigenen Hül-Punkt in Menue einfügen
AnzahlMenue = Application.CommandBars(1).Controls.Count
Set MenueHül = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With MenueHül
.Caption = "&Hül-Dateien"
End With
'Bund/Land PopMenues unter Leiste einfügen
Set BundLand = MenueHül.Controls.Add(msoControlPopup)
With BundLand
.Caption = "Bund"
End With
'Auswahlknöppe für Bund einfügen
With Application.FileSearch
.LookIn = PfadBund
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
FileName = .FoundFiles(i)
Set HülButtonBund = BundLand.Controls.Add(msoControlButton)
HülButtonBund.Caption = Mid(.FoundFiles(i), (Len(PfadBund) + 1), (Len(.FoundFiles(i)) - (Len(PfadBund) + 4)))
With HülButtonBund
.OnAction = "laden"
End With
Next i
Else
MsgBox "Keine Dateien vorhanden."
End If
End With
Sub EigeneMenuesAus()
Application.CommandBars(1).Reset
End Sub
Sub laden()
Workbooks.Open (FileName)
End Sub