Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dictionary Object mit mehreren Items je Key/Arrays

Dictionary Object mit mehreren Items je Key/Arrays
22.05.2009 10:54:09
Florian
Hi Excel-Gemeinde!
Mein Ziel ist es, eine Datenbank (n Zeilen, m Spalten) aus n einzelnen Dateien zu erstellen. Um den Erstellungsprozess so schnell wie möglich zu machen gehe ich über Arrays. Da verschiedene Ordner (pdf, xls) mit Dokumenten ausgelesen werden, habe ich bereits mehrere Dictionary-Objekte (jeweils 1 Key, 1 Item je Auftragsnummer, sofern Dokument für die Auftragsnummer vorhanden ist). Die Merkmale "pdf-Dokument x vorhanden j/n" sollen für alle n Auftragsnummern in der Datenbank stehen.
Meine Frage an Euch: kann ich einem Dictionary-Objekt mehrere Items je Key zuweisen oder muss ich, um einem Key (=Auftragsnummer) mehrere Eigenschaften zuzuweisen einen neuen multidimensionalen Array schaffen, in den ich die Werte reinschreibe?
Vielen Dank an alle schon mal im Voraus!
Florian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dictionary Object mit mehreren Items je Key/Arrays
22.05.2009 11:19:11
ransi
Hallo
Du kannst einem Key ein Array zuweisen.
DAs kannst du dann ganz einfach wieder auslesen.
Mal ein kleines Beispiel:
Option Explicit


Public Sub Aufruf()
Dim MyDic As Object
Dim L As Long
Set MyDic = CreateObject("Scripting.Dictionary")
For L = 1 To 100
    MyDic(L) = machs(Cells(L, 1))
Next
MsgBox MyDic(1)(5)
End Sub



Public Function machs(rng As Range) As Variant
Dim tmp(1 To 5) As Variant
With rng
    tmp(1) = .Value
    tmp(2) = .Top
    tmp(3) = .Height
    tmp(4) = .Interior.ColorIndex
    tmp(5) = .Address
End With
machs = tmp
End Function

Die Zeilennummer von A1:A100 in ein Dictionary.
Das zugehörige Item besteht aus einem Array (1 to 5) in dem einige Zelleigenschaften abgelegt sind.
Das kannst du mühelos auf dein Problem anpassen.
ransi
Anzeige

24 Forumthreads zu ähnlichen Themen

VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:24:52
Thread-ID: 1076085
3 Beiträge
Anzeige
frage zu Array zählen("Scripting.dictionary") Join
chris

Hallo VBA Profis,
wünsche allen einen schönen Tag.
Habe eine frage und hoffe ihr könnt mir weiterhelfen.
Wo ich mir aber sicher bin.
ich habe unten einMakro das ich gerne erweitern möchte.
ich habe in Spalte J verschiedene namen stehen.
Alf
Robert
usw..
mit d...
04.08.2009 15:13:46
Thread-ID: 1093543
4 Beiträge
[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Anzeige
Schreibzugriff auf Array in Dictionary Object-Item
Martin

Hallo liebe Excelfreunde,
es ist möglich im Dictionary Object auch Arrays als Items abzulegen: Dim MyDic As Object Set MyDic = CreateObject("Scripting.Dictionary") MyDic.Add "Obst", Array("Äpfel", "Birnen", "Kirschen", "Weintrauben", "Johannisbeeren")
Die einzelnen Array-Werte können...
18.07.2011 08:48:04
Thread-ID: 1222541
13 Beiträge
mit VBA Array oder String neu mischen
hary

Einen schoenen Exceltag
Komme nicht weiter. Ich habe eine Namensliste unterschiedlich lang hoechstens 20.
Nun moechte ich die Namen auslesen, mischen und gemischt zurueckschreiben.
Mit Formel kein Prob. nur moechte ich es in VBA machen, da ich diese Liste mit VBA weiterverteile(das...
21.02.2012 09:27:54
Thread-ID: 1251702
3 Beiträge
mit VBA Array-Formel einsetzen - Fehlermeldung
Peter

Guten Tag
rDestin ist ein Spaltenbereich und ich möchte mittels VBA eine komplexe Array-Formel (pro Zelle im Spaltenbereich) einsetzen
Die Formel habe ich im Excel eingetragen und funktioniert.
Dann habe ich im Direktbereich die Formel abgefragt und diese so übernommen
Ich setze...
01.03.2013 08:31:46
Thread-ID: 1301655
9 Beiträge
Worksheets in dreidimensionales Array einlesen VBA
Jane

Hallo,
ich bin hier noch neu und auch noch nicht so geuebt in VBA.
Vielleicht stehe ich nur auf der Leitung, aber ich wuerde eigentlich gerne nur wissen, wie ich schnellstmoeglich ein ganzes Worksheet in ein dreidimensionales Array einlesen lassen kann ohne jede einzelne Zelle aufrufen...
20.03.2014 04:42:35
Thread-ID: 1354132
6 Beiträge
VBA: Werte aus Array mit Eingangswert auslesen
Walter

Hallo Zusammen,
schreibe heute das erst Mal einen Eintrag. Bisher konnte ich hier sehr viel Wissen abholen, doch mit einer akuellen Aufgabenstellung komme ich auch damit nicht zurecht.
Ich habe eine lange Liste an Tickets aus einem Ticketsystem. Es gibt unterschiedliche Kunden, alle hab...
15.11.2014 18:07:33
Thread-ID: 1392591
2 Beiträge
Anzeige

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
2
1
3
4
4
12
2
8
5
1
7
2
16
8
4
2
2
13
6
5
3
3
5
3