Hallo zusammen,ich habe die Menüleiste um eine eigene erweitert. Im ersten Feld der neuen Menüleiste gebe ich _
den Anfang eines Dateinamens ein. Die Dateien werden in einem Verzeichnis gesucht und im zweiten Feld der neuen Menüleiste in einem DropDown-Feld incl. Pfad aufgelistet. Nun möchte ich eine dieser Dateien durch Anklicken im DropDown-Menü öffnen. An dieser Stelle komme ich nicht weiter (Unterprogramm Datei_laden) und benötige Eure Hilfe...
Option Explicit
Dim NeueMenüleiste As CommandBar
Dim Menüerweiterung1 As CommandBarControl
Dim Menüerweiterung2 As CommandBarComboBox
Dim Pfad, Dateiname, Zellenbezeichnung, Zelleninhalt As String
Dim Zellenreihe As Integer
Sub Befehlsleiste_erweitern()
' erweitert die oberste Befehlsleiste um den Eintrag "Formblätter"
' blendet die Datei aus
Windows("Jörgs Menüleiste 2010.xls").Activate
ActiveWindow.Visible = False
' erzeugt neue Menüleiste
Set NeueMenüleiste = CommandBars.Add(Name:="Jörgs Menüleiste 2010", _
Position:=msoBarTop, _
MenuBar:=False, _
Temporary:=True)
NeueMenüleiste.Visible = True
' erweitert die Menüzeile
Set Menüerweiterung1 = CommandBars("Jörgs Menüleiste 2010").Controls.Add(Type:=msoControlEdit, _
_
_
Before:=1)
With Menüerweiterung1
.Caption = "StID für Formblattsuche eingeben"
.Text = "StID"
.OnAction = "Formblatt_suchen"
End With
Set Menüerweiterung2 = CommandBars("Jörgs Menüleiste 2010").Controls.Add(Type:= _
msoControlDropdown, Before:=2)
With Menüerweiterung2
.Caption = "Suchergebnis der Formblattsuche"
.DropDownLines = 25
.Width = 400
.OnAction = "Datei_laden"
End With
End Sub
' sucht das Formblatt auf dem Datenträger
Sub Formblatt_suchen()
Dim Textfeld As CommandBarComboBox
Set Textfeld = CommandBars("Jörgs Menüleiste 2010").Controls("StID für Formblattsuche eingeben") _
_
_
Textfeld.Clear
Dim Ergebnisfeld As CommandBarComboBox
Set Ergebnisfeld = CommandBars("Jörgs Menüleiste 2010").Controls("Suchergebnis der _
Formblattsuche")
Ergebnisfeld.Clear
Dim Verzeichnis$, FBNr%, Zähler%, i%
Verzeichnis = "C:\Data\06000799"
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.Filename = Text & "*.xls"
.SearchSubFolders = True
If .Execute() > 0 Then
Textfeld.Text = "Fund"
For i = 1 To .FoundFiles.Count
Ergebnisfeld.AddItem (.FoundFiles(i))
Next i
Else
Textfeld.Text = "kein Fund"
End If
End With
End Sub
Sub Datei_laden()
'Dim Textfeld As CommandBarComboBox
Dim Ergebnisfeld As CommandBarComboBox
'Dim Ergebnis$
Set Ergebnisfeld = CommandBars("Jörgs Menüleiste 2010").Controls("Suchergebnis der _
Formblattsuche")
HIER KOMME ICH NICHT WEITER
Workbooks.Open
End Sub