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