Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1128to1132
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
Problem mit ListBox Daten einlesen
ray
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Die Lösung, wen es interessiert...
13.01.2010 09:47:16
ray

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

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige