gefilterte Tabelle in eine ListBox
31.05.2004 16:54:56
Beni
ich habe einen Code geschrieben, mit dem ich eine gefilterte Tabelle in eine ListBox einlesen kann, das funktioniert bestens, aber sobald ich eine Zeile in der ListBox markiere, meldet er mir, "Für diesen Vorgang ist nicht genügend Arbeitsspeicher verfügbar".
Gibt es eine Möglichkeit, das zu unterbinden.
Gruss Beni
Private Sub CommandButton16_Click()
Dim rng As Range
Application.ScreenUpdating = False
Rows.Hidden = False
ListBox1.RowSource = ""
IZeile = -1
ListBox1.ColumnCount = 13
For r = 2 To Cells(65536, 1).End(xlUp).Row
For intIndex = 1 To 9
If Controls("CheckBox" & CStr(intIndex)) = True Then
Wert = Controls("TextBox" & CStr(intIndex)).Value & "*"
With Cells(r, intIndex)
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
Rows(r).Hidden = True
Exit For
End If
End With
End If
Next intIndex
Next r
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
ListBox1.RowSource = "A2:M" & r
ActiveWorkbook.Close savechanges:=False
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub