New Collection leeren

17/06/2008 - 09:47 von reinhold | Report spam
Hallo NG,

ich habe mehrere New Collections, die ich in einer Schleife fülle.
Anschliessend werden die Inhalte jeder Collection zusammengefasst und
in eine Zelle geschrieben. jetzt hànge ich an der Stelle, dass die
Collection geleert werden müssen, da innerhalb des VBA die Collections
wieder benötigt werden.

Zum besseren Verstàndnis hier einTeil des Codes:

o Until y = z
Blatt2.Select
Cells(y, 1).Select
a = ActiveCell.MergeArea.Cells.Count
If a = 1 Then
ActiveCell.EntireRow.Select
Selection.Copy
Blatt1.Select
Range("a65536").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else
x = 0
Do Until x = a
On Error Resume Next
strBeschreibung = ActiveCell.Offset(x, 0)
strBeschreibung1 = ActiveCell.Offset(x, 1)
strBeschreibung2 = ActiveCell.Offset(x, 2)
colBeschreibung.Add strBeschreibung, "RB" &
strBeschreibung
colBeschreibung1.Add strBeschreibung1, "RB" &
strBeschreibung1
colBeschreibung2.Add strBeschreibung2, "RB" &
strBeschreibung2
On Error GoTo 0
x = x + 1
Loop

n = colBeschreibung.Count
For i = 1 To n
If i = 1 Then
strContainer = colBeschreibung(1)
Else
strContainer = strContainer & vbLf &
colBeschreibung(i)
End If
Next i
n = colBeschreibung1.Count
For i = 1 To n
If i = 1 Then
strContainer1 = colBeschreibung1(1)
Else
strContainer1 = strContainer1 & vbLf &
colBeschreibung1(i)
End If
Next i
n = colBeschreibung2.Count
For i = 1 To n
If i = 1 Then
strContainer2 = colBeschreibung2(1)
Else
strContainer2 = strContainer2 & vbLf &
colBeschreibung2(i)
End If
Next i

Blatt1.Select
Range("A65536").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = strContainer
ActiveCell.Offset(0, 1).Value = strContainer1
ActiveCell.Offset(0, 2).Value = strContainer2
End If
y = y + a
Loop

Danke für Eure Hilfe und leiben Gruss
Reinhold
 

Lesen sie die antworten

#1 Peter Schleif
17/06/2008 - 10:04 | Warnen spam
reinhold schrieb am 17.06.2008 09:47 Uhr:

ich habe mehrere New Collections, die ich in einer Schleife fülle.
Anschliessend werden die Inhalte jeder Collection zusammengefasst und
in eine Zelle geschrieben. jetzt hànge ich an der Stelle, dass die
Collection geleert werden müssen, da innerhalb des VBA die Collections
wieder benötigt werden.



Set colBeschreibung = Nothing
Set colBeschreibung1 = Nothing
Set colBeschreibung2 = Nothing

Peter

Ähnliche fragen