Office: Dictionary auslesen

Björn_vbxls · 13. Oktober 2010

Hallo,

ich weiß es gibt bereits eine Menge Beiträge zum Dictionary-Objekt, die helfen mir allerdings nicht weiter bzw. es funktioniert nicht wie es soll.

Ich habe ein Dictionary wie folgt erzeugt:
Dict.add "Zahl", "Bezeichnung"

Das hat auch funktioniert. Nun habe ich eine Liste mit Zahlen. Diese sind alle im Dictionary Objekt enthalten und möchte die Bezeichnung in einer Zelle ausgeben lassen.

Es sollte wie folgt funktionieren
Cells(1,1).value = Dict.Item("Zahl")
'Hier sollte die "Bezeichnung" übergeben werden
'Aber die Zelle bleibt leer *frown.gif*

Mein bisheriger Code:
Code:

Sub VWZ()
Dim Dict, FeldE, FeldW, FeldF
Spalte = "M" 'Zielspalte für die Bezeichnung
SH = "G" 'Mit den Zahlen

'Hier werden die vorhandenen Zahlen aus dem Excelblatt eingelesen
FeldE = Array(Split(Range("P2").Value, ","))
FeldE = FeldE(0)
FeldW = Array(Split(Range("P3").Value, ","))
FeldW = FeldW(0)
FeldF = Array(Split(Range("P4").Value, ","))
FeldF = FeldF(0)

'Befüllen des Dictionary
Set Dict = CreateObject("Scripting.Dictionary")

Dict.Add "0", "Ohne"
For i = 0 To UBound(FeldE)
Dict.Add FeldE(i), "Ern. Energie"
Next
For i = 0 To UBound(FeldW)
Dict.Add FeldW(i), "Wohnbaudarl."
Next
For i = 0 To UBound(FeldF)
Dict.Add FeldF(i), "Firmenkunden"
Next

'Nun soll die Liste durchlaufen werden
'und die Bezeichnung zur Zahl eingetragen werden
For i = 2 To Cells(1000, "B").End(xlUp).Row
'Die Zelle bleibt allerdings leer
Cells(i, Spalte).Value = Dict.Item(Cells(i, SH).Value)
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank schonmal im Vorraus

Björn

:)

EarlFred · 15. Oktober 2010

Hallo Björn,

vorab: dieses Konstrukt
Code:

FeldE = Array(Split(Range("P2").Value, ","))
FeldE = FeldE(0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

läßt sich vereinfachen zu
Code:

FeldE = Split(Range("P2").Value, ",")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Am Ende des Codes bitte
Code:

Set Dict = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ergänzen.
Die Variablendeklaration könnte auch etwas hübscher ausfallen...

Durch Split erhältst Du ein Array mit Texten, also musst Du auch die Zahlen als Text behandeln:
Code:

Cells(i, Spalte).Value = Dict.Item(CStr(Cells(i, SH).Value))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergänzung:
Bei Verwendung der Add-Methode solltest Du das Dictionary auf Vorhandensein des betreffenden Schlüssels prüfen:
Code:

If Not Dict.Exists(Schlüssel) Then...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Björn_vbxls · 15. Oktober 2010

Hallo EarlFred,

vielen Dank für die schnelle Hilfe.

Es war der Fehler mit dem gesuchten "Text" und der vorhandenen "Zahl" *stupid

Manchmal steht man einfach auf dem Schlauch.

Die anderen Verbesserungen hab ich auch gleich eingebaut.

MfG

Björn

Office: Dictionary auslesen

Dictionary auslesen

Dictionary auslesen

Dictionary auslesen - Similar Threads - Dictionary auslesen

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

Liste ohne Duplikate erstellen mit Dictionary Object

VBA Dictionary nach Jahren aufsteigend sortieren

Hilfe!! Einlesen von Daten aus Tabelle in Dictionary

Dictionary :: Item zu einem Key auslesen

Custom Dictionary is not available