Dropdown Abhängigkeit Userform

[Rogue]

Hallo Klaus-Dieter,

ich hoffe du kannst mir nochmal helfen...
Ich habe deinen VBA Code angewendet. Der Klappt auch.
Aber wenn ich noch zusätzlich CommandButton & andere Felder mit eingefügt und sie zum Abspeichen oder löschen Programmiere.
Es kommt aber eine Fehler Meldung von Initialize da sie ja schonmal vorhaden ist, was auch normal ist.


Gibt es eine Möglichkeit beide Initialize zu kombinieren ???
oder eine Alternative?

Datei habe im Angang mit hochgeladen.

Dir noch einen schönen Sonntag...

Gruß
PS: Datei ist als  Rohfassung Hochgeladen oder es zu Packen...

[Klaus-Dieter]

Hallo,

du darfst Initialize natürlich nur einmal verwenden. Die Objekte brauchst du da drin ohnehin nicht leeren, die sind leer wenn du das UserForm öffnest. Was die Listbox betrifft, da schreibst du in der Beschreibung Inhalte aus Tabelle 5 sollen eingelesen werden, der Quelltext verweist aber auf Tabelle 2, was denn nun?

[Rogue]

guten Abend,

nein Tabelle5 war die alte von mir.
Richtig ist, dass es Tabelle 2 = Mission ist.
Hatte ja wohl nicht alle umbenannt.

So habe es noch mal hochgeladen, jetzt dürfte alle Beschreibungen richtig sein.

gruß

[Klaus-Dieter]

Hallo,

dann reicht das so:

Code:

Private Sub UserForm_Initialize()
   Dim intAnz As Integer
   Dim i As Integer
   Dim hshA As Object
   Set hshA = CreateObject("Scripting.Dictionary")
   With Tabelle1
       For i = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row
           hshA(.Cells(i, 3).Text) = 0
       Next
       ComboBox1.List = hshA.Keys
   End With
   Set hshA = Nothing
   
   'In dieser Routine laden wir alle vorhandenen
   'Eintr?ge in die ListBox1
    ListBox1.Clear 'Zuerst einmal die Liste leeren
    ListBox1.List = Tabelle2.Range("B2:B" & Rows.Count).Value
End Sub

Den 2. Quelltext mit Userform_Initialize kannst du löschen.

[Rogue]

Guten Morgen Klaus-Dieter,

danke hat sofort mit kleine Fehler meiner seits geklappt.

Aber woran kann es liegen, wenn ich einen Neuen Eintrag speichere oder lösche das Excel sich kurz aufhängt und 
dann wieder ok ist?

Aber nur beim Erstellen und Löschen...

Gruß

[Klaus-Dieter]

Hallo,

tritt bei mir nicht auf.

[schauan]

Hallöchen,

wenn Excel sich "kurz aufhängt", kann es sein, dass da kurz was berechnet wird oder kurz ein Ereignismakro läuft?

[Kuwer]

Hallo,

https://www.ms-office-forum.net/forum/sh...p?t=357156

[Rogue]

Hallo Klaus-Dieter,

also wenn ich im Userform einen neuen Eintrag erzeuge oder etwas Speichere bzw Lösche,
dann hängt es sich kurz auf, bzw Excel der ganze Hintergrund wird weis... ich nenne das aufhängen.
Bitte sag mir, dass ich falsch liege....
Dann großes Sorry....

Und jetzt ist es auch so, das man in der ListeBox  doppelte ID erlaubt sind, was vorher nicht so war....
Sag ruch wenn ich mich Täusche...

Bin dir trotzdem für deine Hilfe Dankbar..


Und mit dem Doppelten Post war nicht mit Absicht..
Würde gerne nur den Fehler finden, woran es liegen kann.

Rechner Daten:
Excel Version: 2016 64bit
Arbeitsspeicher: 32.0GB
Windows Version Win10 
CPU: intel[R] Core[TM]i7-6700K CPU @ 4.000GHz 4.00 GHz
Graftigkarte: NAVIDIA Geforce GTX 1070
Excel Datei größe: 64kb

Dir noch einen schönen Abend, Klaus-Dieter

Gruß
Rogue