Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: RowSource extern verlinken

RowSource extern verlinken
28.07.2005 19:41:12
Henrik
Liebe Forumer,
ich möchte gerne die RowSource einer Listbox extern auf eine andere Excel-Datei und Sheet verlinken.
Wie geht das?
Könntet ihr mir da auch einen Sample geben?
Ich habe leider eine lange Leitung.
Euer
Henrik
(AS)
(Honduras)
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry, falscher Button :-) o.T.
28.07.2005 19:47:16
Henrik
natürlich...ist klar o.T.
28.07.2005 19:51:05
AS
.
Anzeige
AW: RowSource extern verlinken
28.07.2005 20:53:24
Peter
Servus,
so könnts gehen, ist allerdings ziemlich primitiv. Da der Pfad vorgegeben ist, etc.
Soll dir nur nen Anhaltspunkt geben wie es gehen kann.


      
Private Sub UserForm_Initialize()
Dim i As Integer, x As Integer
Dim strquelle As String
Dim wbk As Workbook
Dim wbk2 As String
'On Error GoTo fehler
wbk2 = InputBox("Bitte geben Sie den genauen Dateinamen der einzulesenden Datei ein", "DATEI EINLESEN !!!")
For Each wbk In Application.Workbooks
If wbk.Name = wbk2 Then x = x + 1
Next
If x = 0 Then Application.Workbooks.Open (ThisWorkbook.Path & wbk2)
For i = 1 To 5 ' Zeile 1 bis 5
strquelle = Workbooks(wbk2).Worksheets("Tabelle1").Cells(i, 1)
Me.ListBox1.AddItem (strquelle)
Next
Application.Workbooks(wbk2).Close
Exit Sub
'fehler:
'MsgBox ("Die Datei konnte nicht geöffnet werden !!!")
End Sub 


MfG Peter
Anzeige
AW: RowSource extern verlinken
28.07.2005 21:39:02
Henrik
Vielen Dank!
Henrik
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige