Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Problem mit ListBox Daten einlesen | Herbers Excel-Forum


Betrifft: Problem mit ListBox Daten einlesen von: ray
Geschrieben am: 13.01.2010 09:06:20

Hallo,

Ich starte ein frm mit diesem Code:

Private Sub UserForm_Initialize()
'VeListe öffnen, Daten in Listbox einlesen, VeListe close START
Dim lR%

Application.Workbooks.Open ("F:\daten\VeListe.xls")

With Workbooks("VeListe.xls")
.Sheets("mieterliste").Select

 lR = Worksheets("mieterliste").Cells(Rows.Count, 1).End(xlUp).Row
    ListBox1.RowSource = "mieterliste!a1:n" & lR
    ListBox1.ListIndex = 0 'oder 1?
    
.Close (False) 'Schließen mit speichern, sonst .Close (False)
End With
'VeListe öffnen, Daten in Listbox einlesen, VeListe close ENDE

Sheets("leer").Select
Application.ScreenUpdating = True

End Sub


Wenn ich das frm starte kommt folgende ErrMld:

msgbox"Für diesen Vorgang ist nicht genug Speicher verfügbar.",vbexclamation,"Microsoft Forms"

Was mach ich den nu wieder falsch?????

Viele Grüße aus kalten Hamburg ohne HarleyDays2010

Ray

  

Betrifft: Die Lösung, wen es interessiert... von: ray
Geschrieben am: 13.01.2010 09:47:16

Private Sub UserForm_Initialize()
'VeListe öffnen, Daten in Listbox einlesen, VeListe close START
   Dim wbk As Workbook
   Dim wks As Worksheet
 
   Application.ScreenUpdating = False
   
   Set wbk = Workbooks.Open("F:\daten\VeListe.xls")

   Application.ScreenUpdating = False
   
           Set wks = wbk.Sheets(3)
            With ListBox1
               .List = Range("A1").CurrentRegion.Value
               If .ListCount > 0 Then .ListIndex = 0
            End With
         
    wbk.Close SAVECHANGES:=False
            
   Set wbk = Nothing
   Set wks = Nothing
   
'VeListe öffnen, Daten in Listbox einlesen, VeListe close ENDE





End Sub



Beiträge aus den Excel-Beispielen zum Thema "Problem mit ListBox Daten einlesen"