Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1156to1160
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
ComboBox mit Daten aus anderer Datei füllen
siegfried
Hallo zusammen,
ich habe in einer Userform eine ComboBox installiert und greife bei der RowSource Eigenschaft auf eine Liste (PLZ der BRD) zu, die sich in dem entsprechenden Arbeitsblatt der aktiven Datei befindet.
Jetzt will ich diese Liste in eine separate Datei packen und dennoch die ComboBox mit den Daten aus der separaten Datei füllen.
Geht das? Und Wie?
Gruß Siegfried

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ComboBox mit Daten aus anderer Datei füllen
24.05.2010 16:14:57
Beverly
Hi Siegfried,
versuche es mal so:
    ComboBox1.RowSource = "[Mappe2.xls]Tabelle1!A1:A10"


AW: ComboBox mit Daten aus anderer Datei füllen
24.05.2010 18:19:35
fcs
Hallo Siegfried,
alternativ zu Karin's Vorschlag, der erforderdert, dass die PLZ-Datei während der Arbeit mit dem Userform geöffnet ist, kannst du die benötigten PLZ-auch in ein Datenarray laden mit dem die Combobox mit Auswahldaten gefüttert wird. Dazu wird die Die PLZ-Datei nur kurzzeitig geöffnet, wenn im Datenarray noch keine Daten vorhanden sind.
Nachfolgend ein entsprechendes Beispiel zur Anzeige eines Userforms. Für die RowSource der Combobox darf dann nichts eingetragen sein.
Gruß
Franz
Option Explicit
Public arrPLZ
Sub UF_Anzeigen1()
Dim sDateiPLZ As String, wbPLZ As Workbook
If Not IsArray(arrPLZ) Then
sDateiPLZ = "C:\Users\Public\Test\PLZ_DE.xls"
Application.ScreenUpdating = False
Application.StatusBar = "PLZ-Datei wird geladen"
Set wbPLZ = Application.Workbooks.Open(Filename:=sDateiPLZ, ReadOnly:=True)
With wbPLZ.Worksheets(1)
arrPLZ = .Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell))
End With
wbPLZ.Close savechanges:=False
Application.ScreenUpdating = True
Application.StatusBar = False
End If
UserForm2.ComboBox1.List = arrPLZ
UserForm2.Show
End Sub

Anzeige
AW: ComboBox mit Daten aus anderer Datei füllen
24.05.2010 18:55:20
siegfried
Danke Fcs,
Dein Code funktioniert so, wie ich es wollte.
Im übrigen, der Vorschlag von Karin führte zu einer Fehlermeldung "ungültiger Eigenschaftswert"
Gruß Siegfried
AW: ComboBox mit Daten aus anderer Datei füllen
25.05.2010 00:53:10
fcs
Hallo Siegfried,
der Vorschlag von Karin funktioniert grundsätzlich, kann aber sein, dass zusätzliche Hochkommata erforderlich sind, wenn im Dateinamen und/oder Tabellennamen Leerzeichen oder bestimmte Sonderzeichen enthalten sind.
Gruß
Franz

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige