title image


Smiley Re: Daten mittels Userform aus ungeöffneter Tabelle anzeigen
Hallo!



Mit VBA kann man das z.B. so realisieren:



Private Sub UserForm_Initialize()

Dim obj_Liste As Object

Dim r_Liste As Range

Set obj_Liste = GetObject(ActiveWorkbook.Path & "\test.xls")

Set r_Liste = obj_Liste.Names("Telefonliste").RefersToRange

With ListBox1

.ColumnCount = r_Liste.Columns.Count

.RowSource = r_Liste.Address(external:=True)

End With

obj_Liste.Close

Set obj_Liste = Nothing

End Sub



In die Listbox1 werden hier Daten aus der Datei test.xls (im selben Verzeichnis) geholt, die dort im Zellbereich mit dem Namen Telefonliste stehen.



Ok, mit Getobject wird strenggenommen die Quelldatei geöffnet. Aber der Anwender merkt nichts davon.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: