Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Dictionary automatisch Key erstellen verhindern

Forumthread: Dictionary automatisch Key erstellen verhindern

Dictionary automatisch Key erstellen verhindern
29.01.2025 17:56:46
Spoiler
Hallo Zusammen,

wenn auf einen Key im Dictionary zugegriffen wird, den es noch nicht gibt, erstellt VBA diesen Key automatisch und belegt ihn mit einem leeren Wert (empty).

Beispiel: 



Set Dict = CreateObject("Scripting.Dictionary")



with Dict

    .add "eins", 1

    .add "zwei", 2

end with



MsgBox Dict("drei")


Danach gibt es 3 Einträge im Dictionary "eins", "zwei", "drei" ... wobei "drei" eben leer ist.

Ich möchte dieses Verhalten gerne verhindern oder zumindest darauf reagieren, denn ein leerer Eintrag bringt beim Rechnen im Anschluss nur Murks.
(es handelt sich um die Prüfung eines Schichtplans mit mehreren tausend Einträgen, warum da Werte drin stehen, die in der Zuordnung (Dict) nicht eingetragen sind, sei mal dahin gestellt)
Kann ich das irgendwie abfangen?

Vielen Dank im Voraus.

mit besten Grüßen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dictionary automatisch Key erstellen verhindern
29.01.2025 18:02:59
Onur 
If dict.exists("drei") Then MsgBox dict("drei")
AW: Dictionary automatisch Key erstellen verhindern
29.01.2025 18:20:56
Spoiler
Das Prüfen, ob ein Schlüssel existiert ist nicht das Problem. 

LastTime = Datum - 1 + oZuOrd(AktZelle.Offset(0, -1).value)


Wenn es hier in oZuord den Schlüssel AktZelle.Offset(0, -1).value nicht gibt, wird er erstellt, ist leer, wird also als 0 (Null) gewertet und ergibt eine falsche Zeit.

Von diesen Zeilen gibt es viele ... muss ich dann vor jeder Rechnung prüfen, ob der Schlüssel existiert?
Anzeige
AW: Dictionary automatisch Key erstellen verhindern
29.01.2025 18:40:47
Onur
Dann halt so: 
x = AktZelle.Offset(0, -1).Value

If x > "" Then

    LastTime = Datum - 1 + oZuOrd(x)

Else

    'MACH WAS

End If



'ODER ABER



x = AktZelle.Offset(0, -1).Text

If oZuOrd.exists(x) Then

    LastTime = Datum - 1 + oZuOrd(x)

Else

    'MACH WAS

End If

Anzeige
AW: Dictionary automatisch Key erstellen verhindern
30.01.2025 10:22:50
Spoiler
Das ist soweit richtig, führt aber dazu, dass ich bei 1000 Einträgen im Plan und sagen wir mal 10 Berechnungen pro Eintrag zusätzliche 10000 "If" ausführe.

Das macht die Sache doch unnötig langsam. Gibt es da keine bessere Lösung?
AW: Dictionary automatisch Key erstellen verhindern
30.01.2025 10:28:17
Onur
" 10 Berechnungen pro Eintrag" ???
Du kannst doch alle 10 innerhalb der IF-THEN-Schleife ausführen: 
x = AktZelle.Offset(0, -1).Text

If oZuOrd.exists(x) Then

    LastTime = Datum - 1 + oZuOrd(x)

Else

    'MACH WAS

End If
Anzeige
unnötig langsam
30.01.2025 11:26:59
Yal
Hallo Spoiler,

ich habe mir die Frage gestellt und geprüft: "Exists" führt zu keinem Caching, sodass sowohl bei "Exists" als auch bei dem Zugriff die volle Suche gemacht wird. Also die Zeiten werden doppelt.
Es ist bei 10.000 nicht messbar. Bei 10 Mio Betragt die Zeit 0,7 Sek (nur Zugriff) und 1,4 Sek (Exists + Zugriff). Die Argumentation "unnötig langsam" kann man getrost zur Seite stellen.

Schwierig ist eher, dass Du dein Code an zu vielen Stellen anpassen müsste, aber das wäre einen Zeichen, dass Du deinen Code besser strukturieren müsste. Gern unterstützen wir genau an dieser Stelle.

VG
Yal

Der Test-Code: 
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long



Sub Dictionary_Test()

Dim D As New Dictionary

Dim T, i, Elt



'Dictionary befüllen

    For i = 97 To 103 '"a" bis "g"

        D(Chr(i)) = i

    Next i

'Nur Zugriff

    T = GetTickCount

    For i = 0 To 10000000

        Elt = D("m") 'man greift absichtlich auf eine nicht vorhanden Key, um die vollständige Suche zu haben (binary tree)

    Next

    Debug.Print "Nur Zugriff: " & vbTab & GetTickCount - T & " ms"

'Exists + Zugriff

    T = GetTickCount

    For i = 0 To 10000000

        If D.Exists("m") Then Elt = D("m")

    Next

    Debug.Print "Ex. + Zugr.: " & vbTab & GetTickCount - T & " ms"

End Sub
Anzeige
AW: unnötig langsam
30.01.2025 11:32:24
Onur
Dichtionaries sind so schnell, dass sie in vielen (wenn nicht sogar in den meisten) Fällen Formellösungen in Sachen Tempo schlagen können, obwohl Formeln Multithread benutzen..
Geschwindigkeit der Dictionary
30.01.2025 15:34:15
Yal
Ja, aber die Geschwindigkeit wird dadurch erzeugt, dass die Schlüssel entlang eines binary Tree* abgelegt werden, dass heisst, diese werden beim Aufbau erzeugt (kostet Zeit), um dann bei der Suche wesentlich schneller zu sein.

Daher ist es abzuwägen, wieviel Suche in einem festen Bestand gemacht wird. Wenn nur eine einzige Wert gesucht wird, wird die Formel vermutlich schneller sein.
Aber um 2 Listen miteinander zu vergleichen oder zusammenzuführen, ist es sinnvoll die Liste gesuchte Liste in einem Dictionary zu packen. Voraussetzung ist, dass es eine eindeutigen Schlüssel gibt.

VG
Yal

*: https://www.geeksforgeeks.org/binary-search-tree-data-structure/
Anzeige
AW: unnötig langsam
30.01.2025 11:35:19
Spoiler
Ja, da ist auch noch Code dabei, der schon einige Jahre und Erfahrungsdefizite auf dem Buckel hat.
Ich hatte gehofft, es gibt eine "kostengünstige" Variante, wie es aussieht, werde ich den Code wohl entsprechend anpassen und strukturieren müssen.

Manchmal isses so und manchmal anders.

Vielen Dank für eure Hilfe und eine gute Zeit
Anzeige
AW: unnötig langsam
30.01.2025 20:13:13
daniel
Wenn du dir um die Verarbeitungsgeschwindigkeit Sorgen machst, solltest du erstmal alle benötigten Daten aus dem Tabellenblatt in ein Array laden und mit diesem arbeiten anstatt mit direktem Zellzugriff.

Auch Ergebnisse sollte man erst in ein Array schreiben und dann dieses am Schluss ins Tabellenblatt.

Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

VBA Combobox Liste
Freddy
Hallo,
ich habe Comboboxen in einem Formular, die mit Daten aus einer Excel Liste. Der Code ist wie folgt:
Private Sub UserForm_Initialize() 'ComboBoxes füllen ohne doppelte Einträge If ActiveSheet.Cells(2, 1).Text "" Then Dim hsh1 As Object, hsh2 As Object, hsh3 As Object, hsh4 As Object,...
02.02.2022 16:45:14
Thread-ID: 1868490
6 Beiträge
Anzeige
Codezeile einfügen
Helmut

Guten Morgen VBA'ler
Ich poste hier einen Code, der um eine Zeile erweitert werden soll. Jedoch weiß ich nicht wie die Zeile aussehen soll bzw. wo sie eingefügt gehört. Hier eine kurze Erklärung: es werden mehrere Spalten in List Box 2 eingelesen, nun möchte ich, wenn ich eine Zeile in der...
07.02.2019 11:09:37
Thread-ID: 1673909
5 Beiträge
Probleme mit VBA Code
Luzi76

Hallo,
habe eine USerForm mit folgendem Code erstellt.
Option Explicit
Dim D As Object Private Sub cmdClose_Click() Unload Me End Sub Private Sub ComboBox1_Change() ComboBox2.List = D(ComboBox1.Value).Keys ComboBox2.Value = Empty ListBox1.Clear End Sub Private Sub ComboBox2_Change...
17.10.2012 21:03:33
Thread-ID: 1282494
4 Beiträge
Fester Inhalt abhängiger ComboBoxen
Markus

Liebes Forum,
wie müsste man den Code anpassen, damit in der 3. Combobox (Kenntnisstand) , unabhängig vom jeweiligen Spalteninhalt, immer die 3 möglichen Kenntnisstände (schlecht - mittel - gut) erscheinen.
VBA-Code:
Option Explicit
Const C_mstrDatenblatt As String = "Tabelle1"<...
13.09.2016 00:27:28
Thread-ID: 1514017
2 Beiträge
VBA Dateien in anderen Ordner kopieren mit Bedingung
Christian
Hallo,

ich versuche seit Stunden mit Chatgpt ein Makro zu erstellen, aber es funktioniert einfach nicht.

Eigentlich ganz simpel, ich will alle Dateien von E:\Videos nach E:\U30 kopieren, die die beiden folgenden Bedingungen erfüllen.

1. Einer der 30 Texte in Rechnung!H2:H3...
16.01.2025 23:46:16
Thread-ID: 2002487
20 Beiträge
Anzeige
Alle Unterordner durchsuchen
Patrick
Hallo zusammen,
ich habe folgenden Code:
Sub ZeichnungsverteilungJAG() 'Zeichnungsverteilung im Projektordner JAG 'Quellverzeichnisse Const quellVerzeichnis As String = "\\proj-srv.kroegerwerft.de\Projekte\JAG\Technische_Unterlagen\Zeichnungen\Fertige Zeichnungen\" 'Zielverzeichnisse Const...
12.10.2022 11:23:05
Thread-ID: 1902393
8 Beiträge
Datei aufsplitten in Dateien mit gleichem Wert in Spalte A
Kedi0815
Hallo ihr VBA-Profis,

hoffentlich könnt ihr mir helfen!

In meiner Exceldatei stehen in Zeile 1 Überschriften und in Spalte A Zahlen, die als Text formatiert sind und mehrfach vorkommen können.
Ich suche ein Makro, dass jeweils die Überschrift und alle Zeilen von Spalte A bis A...
20.12.2023 15:25:41
Thread-ID: 1958262
4 Beiträge
Übersetzung von Gleitkommazahlen
Gleitkommazahlen

Hallo Forum.
Ich habe ein Programm, das Daten aus einer csv-Datei ausließt und diese in einem Array speichert.
Die Daten einzelnen Arrayfelder haben Formate wie z.B. "-2.11708671e-011, 1.00000005e-003, 1.00000005e-003, 5.21755600e+000 und 1.19435613e-003"
VBA verwendet für diese Za...
17.11.2013 13:40:21
Thread-ID: 1338849
2 Beiträge
Differenz durch Mittelwert in VBA
Michael

Hallo,
ich habe verschiedene Messungen in verschiedenen Jahren (siehe Datei unten):
https://www.herber.de/bbs/user/80679.xlsm
Dabei möchte ich folgendes in VBA berechnen:
=(E10-E9)/Mittelwert(E8:E33)
=(E11-E10)/Mittelwert(E8:E33)
...
für das Jahr 1996, dann 1997 usw...
22.06.2012 04:23:22
Thread-ID: 1268357
17 Beiträge
Differenz durch Mittelwert in VBA
Michael

Hallo,
ich hatte bereits eine Diskussion hier im Forum bzgl. dieses Themas und hatte am Ende versucht das Problem selber zu lösen aber bin leider gescheitert. Ich kann meine Alte Diskussion auch nicht mehr aufrufen bzw. weiss ich nicht ob die offene Frage noch gesehen werden kann. Ich möcht...
02.07.2012 13:16:03
Thread-ID: 1269605
7 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum