Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei aus Dropdown-Liste in Combobox öffnen

Datei aus Dropdown-Liste in Combobox öffnen
Jörg

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datei aus Dropdown-Liste in Combobox öffnen
20.07.2010 14:35:24
Jörg
Hallo,
habe eine Lösung gefunden:
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")
Ergebnis = Ergebnisfeld.Text
Workbooks.Open (Ergebnis)
End Sub

Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige