Re: daten importieren über eingegebenen Dateinamen
24.09.2002 11:53:50
Axel
Hallo,kein Problem.
Lege über die Oberfläche eine Combobox an der entsprechenden Stelle an. Dazu ist zunächst die Symbolleiste Steuerelemente-Toolbox einzublenden.
Klicke dann mit der Maus einmalig auf den linken Button der Symbolleiste. Damit wird der Entwurfmodus aktiviert.
Klicke jetzt einmal auf das Element "Kombinationsfeld", positioniere die Maus dorthin, wo die Box stehen soll und drücke erneut die linke Maustaste.
Lage und Größe der Box kann durch einfaches Ziehen verändert werden.
Mit einem rechten Mausklick wird das Kontextmenü geöffnet. Über den Eintrag "Eigenschaften" wird das Eigeschaftsfenster des Steuerelementes eingeblendet.
Im Feld ListFillRange ist der Adressbereich der Zellen einzugeben, mit deren Werten die Combobox gefüllt wird, z.B. A1:A10 oder Tabelle2!A1:A10.
Alle anderen Eigenschaften können unverändert bleiben.
Wähle anschließend im Kontextmenü der Combobox "Code anzeigen" aus. Excel wechselt daraufhin in die Entwicklungsumgebung und legt bereits die Codeschablone für das Change-Ereignis an.
Kopiere den folgenden Code unterhalb der Sub-Zeile hinein:
Die Konstanten sind entsprechend Deiner Umgebung anzupassen. Man kann auf die Konstanten und die Variable auch verzichten und das Ganze direkt in die Zuweisung packen, der Übersichtlichkeit wegen habe ich das hier aber aufgeteilt.
Zurück in Excel beendest Du den Entwurfmodus für das Steuerelement durch erneuten Click auf das Entwurf-Symbol in der Leiste.
Wichtig! Eigenschaften eines ActiveX-Elemente können erst dann bearbeitet werden, wenn der Entwurfmodus aktiv ist. Entsprechend kann eine Selektion in der Box nur bei deaktiviertem Entwurfmodus vorgenommen werden.
Achtung! Bei jeder Änderung der Zeilen, die dem ListFillRange zugewiesen sind, wird automatisch das Change()-Ereignis ausgelöst.
Gruß
Axel