Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1620to1624
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
Inhaltsverzeichnis

Fehlermeldung in Kombinationsfeld

Fehlermeldung in Kombinationsfeld
20.04.2018 10:06:52
Jan
Guten Morgen,
ich habe schon einmal eine ähnliche Frage gestellt, nur leider scheint der Beitrag verschwunden zu sein :-/ Deshalb nun nocheinmal :P
Ich habe in jede Zelle der Spalte C ein ActiveX Kombinationsfeld, wo der Benutzer einen von mir definierten Lieferanten auswählen soll. Ich habe dazu an anderer Stelle eine Liste angelegt.
Klickt der Nutzer nun auf die Zelle, erscheint ein Dropdownmenü mit den definierten Lieferanten. Alles soweit in Ordnung. Leider kann der Nutzer aber auch Werte eintragen, die ich nicht definiert habe. Springt der Nutzer nun eine Zelle weiter und anschließend wieder auf die Ursprungszelle (mit einer Falscheingabe) erscheint folgende Meldung:
Userbild
Klicke ich dabei auf Debuggen, wird "ComboBox1.Value = ActiveCell.Value" markiert.
Ich habe für das ActiveX Kombinationsfeld übrigens folgenden Code eingefügt:
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C1000")) Is Nothing Then
ComboBox1.Visible = False
Exit Sub
Else
ComboBox1.Visible = True
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
ComboBox1.Value = ActiveCell.Value
End If
End Sub

Vielen Dank für eure Hilfe!
Mit freundlichen Grüßen
jan

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

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung in Kombinationsfeld
20.04.2018 13:40:54
EtoPHG
Hallo Jan,
Verändere im Entwurfsmodus die ComboBox in der Eigenschaft Style auf 2 - fmStyleDropDownList, dann kann man keine Werte in der Combobox erfassen!
Gruess Hansueli
AW: Fehlermeldung in Kombinationsfeld
20.04.2018 14:06:37
Jan
Hallo Hansueli,
danke für deine Hilfsbereitschaft!
Die Einstellung habe ich bereits vorgenommen, funktioniert aber leider nicht :(
Gruß
Jan
AW: Fehlermeldung in Kombinationsfeld
20.04.2018 14:18:19
Daniel
Hi
ist es zulässig, dass der Anwender Lieferanten eingibt, die nicht in der Liste stehen?
Wenn ja, müsstest du den Fehler vermeiden
Wenn nein, müsstest du verhindern, dass ein falscher Lieferantenname in die Zelle übernommen wird.
falls nein:
gibt es einen bestimmten Grund, warum du hier das DropDown-Feld einsetzt?
nutze doch die DatenGültigkeit.
- Zellen C2:C1000 markiern
- Daten - Datentools - Datenüberprüfung - Datenüberprüfung klicken, "Liste" auswählen und die Lieferantenliste als Quelle angeben.
dann bekommst du auch in jeder Zelle ein DropDown-Feld, ohne dass du was programmieren musst.
hier kann der Anwender auch nur zulässige Werte eingeben.
Gruß Daniel
Anzeige
AW: Fehlermeldung in Kombinationsfeld
20.04.2018 14:41:50
mmat
Hallo,
Das der Anwender einen beliebigen wert abspeichern kann ist Problem.
Das Auftauchen der Fehlermeldung ein anderes. Wahrscheinlich wird der Fehler durch die Zeile im SelectionChange (ComboBox1.Value = ActiveCell.Value) ausgelöst. Dies ist ein Ereignis, das ComboBox1_Change aufruft ... Ich weiss jetzt so aus dem Stand nicht, was nun zu diesem Zeitpunkt Activecell ist.
Erstmal eine Frage: Dir ist bekannt, dass man die Inhalte von Zellen (mit Dropdown) direkt auf Zellebene einschränken kann und damit den ganzen Kuddelmudel mit Ereignisgesteuerten Makros umgehen kann ?
vg, MM
Anzeige
AW: Fehlermeldung in Kombinationsfeld
23.04.2018 08:54:34
Jan
Hallo MM,
erstmal Dank für deine Hilfe :)
Ich würde das ganze auch lieber über eine Datenüberprüfung machen, aber soweit ich weiß, gibt es hier keine Autovervollständigung. Wenn sich das über ein Makro lösen ließe, wäre ich auch bereit mich vom ActiveX zu verabschieden :P
Beste Grüße
Jan
AW: Fehlermeldung in Kombinationsfeld
23.04.2018 12:37:42
mmat
Hallo
nein, ein Autovervollständigen im klassischen Sinne gibt's wohl nicht.
Probier mal ob dies den Fehler zum verschwinden bringt
Dim DoOnChange As Boolean
Private Sub ComboBox1_Change()
If Not (DoOnChange) Then Exit Sub
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C1000")) Is Nothing Then
ComboBox1.Visible = False
Exit Sub
Else
ComboBox1.Visible = True
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
DoOnChange = False
ComboBox1.Value = Target.cells(1,1).Value
DoOnChange = True
End If
End Sub

Anzeige
AW: Fehlermeldung in Kombinationsfeld
25.04.2018 11:16:11
JS
Hallo mmat,
ich habs mal ausprobiert, leider kommt die Meldung nach wie vor.
Der Debugger markiert folgende Zeile, falls das etwas hilft:
ComboBox1.Value = Target.Cells(1, 1).Value
Danke für deine Hilfe :)
Grüße
Jan
Alles eine Frage des Stils?
25.04.2018 14:28:29
mmat
Nun gut, nächste Runde, wobei das von mir bisher gesagte nicht unbedingt falsch ist :-)
Wenn die Eigenschaft "Style" des DropDowns auf fmStyleDropDownList steht, dann kommt immer dann der Fehler 380, wenn man versucht einen Wert zuzuweisen, der in der Liste nicht vorhanden ist. Die Zuweisung einer leeren Zeichenfolge ("") ist aber erlaubt.
Bei der Einstellung fmStyleDropDownCombo wird jeder Wert genommen.
Ich vermute mal, du versuchst einen unbekannten Wert bei gesetztem fmStyleDropDownList zuzuweisen
Anzeige
AW: Alles eine Frage des Stils?
25.04.2018 14:39:00
JS
Hallo MMAT
Hab Style jetzt auf fmStyleDropDownCombo umgestellt und es scheint zu funktionieren :D
Ich hoffe das bleibt so^^
Vielen, vielen Dank für deine Hilfe! Ich war wirklich kurz vorm Verzweifeln :P
Noch einen wunderschönen Resttag :)
Beste Grüße
Jan
Gerne oT
25.04.2018 14:59:04
mmat

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige