Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

System.collections.arraylist

System.collections.arraylist
Born
Guten Tag,
ich versuche, ein Array dynamisch zu füllen. Im Internet an verschiedenen
Orten wird das über die VB-ArrayList gemacht. Muß man
dazu eine bestimmte Library einbinden?
Ich bekomme schon am Anfang bei Set objArraylst= CreateObject("System.Collections.arraylist")
eine Fehlermeldung:
"Laufzeitfehler.... Automatisierungsfehler"
Herzlichen Dank
Born

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
VBA<>VB
10.12.2009 11:30:39
Rudi
Hallo,
was hast du genau vor?
Gruß
Rudi
AW: System.collections.arraylist
10.12.2009 12:41:39
Reinhard
Hallo Born,
von Ransi fand ich auf
http://www.office-loesung.de/ftopic142856_0_0_asc.php?sid=4e93697d3adb47ff6ae63533fd69f986#595267
den nachfolgenden Code. Er läuft problemlos durch. 
Public Sub test()
Dim objArrLst
Dim Mein_Array()
Dim L As Long
Dim scrDic
Set objArrLst = CreateObject("System.collections.arraylist")
Set scrDic = CreateObject("Scripting.dictionary")
Mein_Array = Array(1, 1, 1, 1, 2, 1, 4, 5, 4, 5)
On Error Resume Next
For L = 0 To UBound(Mein_Array) - 1
If Not scrDic.exists(Mein_Array(L)) Then
scrDic.Add Mein_Array(L), L
objArrLst.Add Mein_Array(L)
End If
Next
On Error GoTo 0
Erase Mein_Array
With objArrLst
.Sort
Mein_Array = .ToArray
End With
'Jetzt ist Mein_Array sortiert ohne Duplikate
Set objArrLst = Nothing
Set scrDic = Nothing
End Sub

Gruß
Reinhard
Anzeige
läuft bei mir nicht
10.12.2009 13:04:39
Rudi
Automatisierungsfehler.
Gruß
Rudi
AW: läuft bei mir nicht
10.12.2009 14:03:52
Born
Ja genau, Rudi,
ja, was heißt "Automatisierungsfehler"?
Ich will ReDim/Presever umgehen.
Born
AW: läuft bei mir nicht
10.12.2009 17:20:32
ransi
HAllo Born
Ich habe auch Excel 2007.
DA läuft das auch.
Das Problem war schonmal in irgendeinem Thread.
Das System.Collections hatte sich irgendwie mit SQL-Server gebissen...
Es wurde damals keine Lösung erarbeitet.
Ich will ReDim preserve umgehen.

Auch dafür gibt es mit Arrays oder Dictionarys Lösungen.
Was hast du genau vor ?
ransi
AW: läuft bei mir nicht
10.12.2009 18:12:16
Born
Hallo ransi,
danke fürs Schreiben.
Ich will eine Spalte aus Excel, die bei jedem Durchgang um ein paar Zahlen erweitert wird,
in ein Array packen.
Bisher habe ich einfach alle Werte in ein zweidimensionales Array gepackt:
AR = ActiveSheet.Range(Cells(9, 8), Cells(Range("B1000").End(xlUp).Row, 8))
Jetzt ist mir aufgefallen, daß nicht alle Werte aus der Spalte im Array sein sollten,
deshalb die Schleife:
For i = 1 to lrow
If Cells(i + 8, 8) 0 Then
s = s + 1
AR(s) = Cells(i + 8, 8)
End If
Next i
Aber da kriege ich Probleme eben damit, daß jetzt nicht nur lrow, sondern auch die
Menge der Werte im Array jedesmal anders ist. Und ich verstehe nicht, warum man
ein Array nicht mit
Dim AR(Range("B5")) dimensionieren kann.
Gruß und Dank,
Born
Anzeige
AW: läuft bei mir nicht
10.12.2009 15:13:56
Reinhard
Hallo Rudi,
tut mir leid, mein Fehler die Version nicht anzugeben.
Ich habe es auf XL2000 getestet, da lief es.
Gruß
Reinhard
AW: läuft bei mir nicht
10.12.2009 15:15:22
Born
Hallo Reinhard,
ich habe die XL2007.
Gruß,
Born
System.collections.arraylist ?
10.12.2009 17:51:20
Born
Hat noch jemand eine Idee?
Anzeige
AW: System.collections.arraylist ?
10.12.2009 18:31:41
ransi
HAllo
Die ArrayList ist in der mscorlib.dll enthalten.
Versuch mal den Verweis händisch zu setzen und dann so:
Public Sub machs()
Dim objAL As New ArrayList
objAL.Add 123
MsgBox objAL.Count
End Sub


Wenn das auch nicht funktioniert, hake den Versuch mit der Arraylist ab....
Dann versuch sowas:
Option Explicit


Public Sub test()
Dim AR As Variant
Dim objDic As Object
Dim L As Long
Dim vntOUT As Variant
Set objDic = CreateObject("Scripting.Dictionary")
AR = ActiveSheet.Range(Cells(9, 8), Cells(Range("B1000").End(xlUp).Row, 8))
For L = LBound(AR) To UBound(AR)
    If AR(L, 1) <> 0 Then objDic(L) = AR(L, 1)
Next
vntOUT = objDic.items
End Sub


DAs ist ebenfalls sehr schnell und sollte auf jedenfall funktionieren.
ransi
Anzeige
AW: System.collections.arraylist ?
10.12.2009 19:00:38
Born
Hallo ransi,
großartige Hilfe, vielen Dank.
Der erste Vorschlag brachte wieder den Automatisierungsfehler.
Vorschlag Nr. 2 wird in die Analen der Array-Erstellung eingehen.
Herzlichen Dank,
born

7 Forumthreads zu ähnlichen Themen

Für Array Spezialisten (VBA)
Peter

Hallo Forum,
lässt sich die beigefügte Prozedur vereinfachen?
Danke Peter
Private Sub CmdSpeichern_Click() Dim i As Long Dim ShQ As Worksheet Set ShQ = Worksheets("Test") With ShQ .Cells(2, 58).ClearContents '.Cells(2, 59).Clear '.Cells(2, 60).Clear '.Cells(2, 61).Clear For i = 1 To...
16.11.2009 23:53:28
Thread-ID: 1117799
2 Beiträge
Anzeige
Zellen, Gültigkeit mit VBA, Listen und Array
Markus

Hallo Forum,
ich habe ein Problem mit VBA und der Überprüfung von Zellen und deren Werten auf Gültigkeit.
Details:
Tabelle 1: enthält eine Liste mit Kunden und Projekten. Z.B.:
Kunde 1, Projekt 1
Kunde 2, Projekt 1
Kunde 3, Projekt 1
Kunde 2, Projekt 2
Kunde 1, P...
28.09.2012 15:50:20
Thread-ID: 1279908
3 Beiträge
VBA ListObject mit AutoFilter in Array
Christian

Hallo Leute,
leider komme ich mit einer Pivottabelle nicht zum gewünschten Ergebnis, daher der Versuch über VBA....
Es gibt zwei Sheets, wovon das eine die Daten hält (Sheet1) und in dem Anderen die Daten aufbereitet ausgegeben werden sollen (Sheet2).
Sheet1 enthält eine Liste namen...
02.06.2017 18:50:44
Thread-ID: 1562041
3 Beiträge
Anzeige
VBA Dictonary oder Array?
Andreas

Hallo zusammen,
ich hoffe ihr könnt mir helfen, da ich alleine leider nicht mehr weiterkomme.
Zu meiner Frage:
Ich habe eine Tabelle mit meinen Rohdaten die immer gleich ausgewertet aus dem System kommt. Nun muss ich die Daten für meine Verwendung weiter aufbereiten.
In Spalte...
16.03.2020 10:25:52
Thread-ID: 1746282
7 Beiträge
VBA Autofilter Criteria2 Array
Alen

Hallo!
Ich habe eine Liste, wo ich in der Spalte F nach dem Datum Filtern kann.
Ich filtere grundsätzlich nur nach Monate.
Wenn ich meine Schritte mit dem Makro aufzeichne erhalte ich folgendes Ergebnis: ActiveSheet.Range("$C$12:$AE$3000").AutoFilter Field:=6, Operator:= _ xlFilte...
26.08.2020 16:34:06
Thread-ID: 1778973
4 Beiträge

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
2
2
8
6
3