EXCEL Dropdown-Menue "Luxusproblem" beheben.

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hallo Blum,

Wenn die Dropdownliste mit den Datenüberprüfungsfunktionen erstellt wird, ist es nicht möglich, mehr als ein Element auszuwählen. In Excel-Fällen, in denen Sie mehr als ein Element auswählen können, werden Kontrollkästchen an der Seite angezeigt, z. B. wenn Sie Daten filtern, enthält die Dropdownliste, die in der Kopfzeile angezeigt wird, Kontrollkästchen für die Daten.

Die andere Möglichkeit, dies anzugehen, wäre, VBA zu verwenden, es ist nicht bewiesen, aber siehe den Artikel in: https://www.bluepecantraining.com/how-to-make-m...
[Bitte beachten Sie, dass es sich um eine Nicht-Microsoft-Website handelt. Achten Sie auf Werbung und die Weitergabe personenbezogener Daten.]

Sie könnten dort einige Einblicke erhalten, wenn Sie bereit sind, etwas Programmierung auszuprobieren.

Lass mich wissen, wie es läuft.

Alles Gute Blum.

Hallo Karl

Geht leider nicht... Ich habe den Code wie von Dir erwähnt ergänzt:

Private Sub combInteresse2_NotInList(NewData As String, Response As Integer)

If MsgBox("Do you really want to add new data to the list?", vbYesNo) = vbYes Then

Response = acDataErrAdded

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("T_Interessen", dbOpenDynaset)

rs.AddNew

rs!I_Name = NewData

rs.Update

rs.Close: Set rs = Nothing

Set db = Nothing

Else

Response = acDataErrContinue

Me!combInteresse2.Undo

End If

End Sub

Vielen Dank für Deine Hilfe und herzliche Grüsse

Mike

Hallo

Vielen Dank für die erneute Hilfe...

Ich bin nun schon etwas weiter gekommen und konnte den folgenden VBA-Code für mein Kombinationsfeld im Internet finden. Dieser funktioniert auch. Einziger Makel ist, dass wenn ich einen neuen Wert in der Auswahl eintrage, dieser Wert zwar gespeichert und
als Vorlage hinterlegt wird, aber nach dem Prozedere (also nach Beantwortung der Frage) das Auswahlfeld wieder leer ist und ich den neuen Wert nochmals (aber nun aus der hinterlegten Liste, da es den Wert in der Tabelle "T_Interessen" ja abgelegt hat) einfügen
muss. Weisst Du, wie ich machen kann, dass wenn ein neuer Wert eingegeben wird, dieser nach der Beantwortung der Frage mit "Ja" dann auch gleich im Eingabefeld enthalten bleibt?

VBA-Code

Dim oRS As DAO.Recordset, i As Integer, sMsg As String

Dim oRSClone As DAO.Recordset

Response = acDataErrContinue

If MsgBox("Dieser Wert ist nicht in der Liste enthalten. Möchten Sie diesen auf der Interessenliste hinzufügen?", vbYesNo) = vbYes Then

Set oRS = CurrentDb.OpenRecordset("T_Interessen", dbOpenDynaset)

oRS.AddNew

oRS.Fields(1) = NewData

For i = 2 To oRS.Fields.Count - 1

sMsg = "What do you want for " & oRS(i).Name

oRS(i).Value = InputBox(sMsg, , oRS(i).DefaultValue)

Next i

oRS.Update

combInteresse1 = Null

combInteresse1.Requery

DoCmd.OpenTable "T_Interessen", acViewNormal, acReadOnly

DoCmd.GoToRecord acDataTable, "T_Interessen", acLast

End If

Vielen Dank und herzliche Grüsse

Mike

Hallo, Mike!

Die Rückfrage sollte so wie in Variante 2 des Artikels gezeigt funktionieren, also:

If MsgBox("Möchten Sie diesen Datensatz neu anlegen?", vbYesNo) = vbYes Then

'hier der ganze Code, den du bisher hattest

Else

Response = acDataErrContinue

Me!combInteresse1.Undo

End If

Hallo,

s. die Code- und Vorgehensbeispiele hier:

http://www.donkarl.com?FAQ4.13

Bei Variante 1 wird der neue Eintrag "automagisch" hinzugefügt und angezeigt. Bei Variante 2 ist wie im Artikel beschrieben ein Requery auf das Komb nötig.