max. Speichervolumen einer Objektvariablen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Leute,
erst einmal vielen Dank für die Rückmeldungen die mir allerdings nicht weiter geholfen haben, vielleicht habe ich das Problem auch nicht eindeutig geschildert.
Aus diesem Grund habe ich die Tabelle und das Makro auf das Wesentliche abgespeckt.
https://www.herber.de/bbs/user/132466.xlsb
Die hier verfremdeten Telefonnummern werden -im Original- aus einer Telefonanlage mit Datum und Uhrzeit ausgelesen.
Nach dem Öffnen wird durch Betätigung der Schaltfläche "Formular Öffnen" ein Makro ausgeführt. Dabei werden die Datensätze im (im Original variabel) Bereich "H 4 bis L 104" in eine Combo-Box (auf der UF) eingelesen und gleichzeitig in der Zelle "R10" im rot umrandeten Bereich der Tabelle aufgelistet und gespeichert.
Bei voller Funktionsfähigkeit des Makros können nun durch Klicken auf einen Eintrag der cbo weitere Aktionen ausgelöst werden; ist hier aber nicht erforderlich.
Mir fiel auf dass lediglich die Datensätze bis zur Zeile 95 aufgelistet werden, die Datensätze von Zeile 96 bis 104 werden ignoriert, daraus resultiert auch meine gestrige Anfrage.
Woran mag es also liegen dass lediglich die Datensätze 4 bis 95 geleistet sind? Ist das max. Speichervolumen der Zelle "R10" (ersatzweise einer Variablen) erreicht?
Wie kann ich erreichen dass SÄMTLICHE (Maximal 500) Datensätze aufgelistet werden?
mfG
reiner

For Anzahl = 1 To Nummern strNummern = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng.Cells(Anzahl, _ 1).Resize(, 5))), "|") If InStr(Range("R10").Value, strNummern) = 0 Then cboNummern.AddItem rng.Cells(Anzahl, 1) For j = 2 To 6 cboNummern.List(cboNummern.ListCount - 1, j - 1) = rng.Cells(Anzahl, j) Next j Range("R10").Value = Range("R10").Value & strNummern End If Next Anzahl

Hi Reiner
Danke für die Rückmeldung.
Hier ein Alternativvorschlag:

Private Sub UserForm_Initialize()
Dim objDic As Object: Set objDic = CreateObject("Scripting.Dictionary")
Dim lngAnzahl As Long, lngLetzte As Long, strNummern As String
With Worksheets("Telefonnummern")
lngLetzte = .Cells(Rows.Count, 12).End(xlUp).Row
For lngAnzahl = 4 To lngLetzte
strNummern = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(.Cells( _
lngAnzahl, 8).Resize(, 5))), "")
If Not objDic.exists(strNummern) Then
objDic(strNummern) = strNummern
cboNummern.AddItem .Cells(lngAnzahl, 8)
cboNummern.List(cboNummern.ListCount - 1, 2) = .Cells(lngAnzahl, 9)
cboNummern.List(cboNummern.ListCount - 1, 3) = .Cells(lngAnzahl, 10)
cboNummern.List(cboNummern.ListCount - 1, 4) = .Cells(lngAnzahl, 11)
cboNummern.List(cboNummern.ListCount - 1, 5) = .Cells(lngAnzahl, 12)
cboNummern.List(cboNummern.ListCount - 1, 6) = lngAnzahl
End If
Next lngAnzahl
lblIndex.Caption = "Anzahl Einträge:  " & lngLetzte - 3
lblAnzahlZeilen.Caption = "Anzahl Zeilen: " & objDic.Count
End With
'Spaltenanzahl und -breite sh. Eigenschaften cboNummern --> columnwidths
With cboNummern
.Width = 426
.ColumnCount = 6
.ColumnWidths = "50;70;70;70;120;25"
End With
End Sub

cu
Chris

Beliebteste Forumthreads (12 Monate)

max. Speichervolumen einer Objektvariablen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

max. Speichervolumen einer Objektvariablen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread