Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Combobox

Combobox
06.09.2006 07:50:49
Andreas
Guten Morgen.
In einer ComboBox kann ich mir ja eine vordefinierte Liste anzeigen lassen, sowie selbst einen Text hineinschreiben. Ist es in Excel eigentlich möglich, dass wenn ich da etwas neues eintrage und meinetwegen auf „Übernehmen“ klicke, dieser Text beim neuen Anzeigen der Liste da mit eingefügt ist, sodass man das nicht immer neu eintragen muss. Das hat aber etwas von Datenbank-Zeugs; bei Access funktioniert es ja.
Wenn es auch in Excel funktioniert würde ich mich darüber freuen, wenn mir jemand zeigen kann, wie genau das geht. Weil das müsste eigentlich in der Initialisierungsprozedur als Add gemacht werden, oder? Es muss ja auch überprüft werden, ob der Eintrag nicht bereits in der Liste steht, damit es zu keinen doppelten Begriffen kommt.
Gruss
Andreas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox
06.09.2006 10:15:24
EtoPHG
Hallo Andreas

'   Folgender VBA Code manipuliert Einträge in einer Combobox:
'   Addiert: Falls diese noch nicht vorhanden sind, nicht leer sind
'            und mit ENTER-Taste oder SHIFT-ENTER abgeschlossen werden.
'   Löscht:  Falls diese vorhanden sind, und mit SHIFT-ENTER abgeschlossen werden.
'   Achtung Combobox darf KEIN ListFillRange aufweisen !
Option Explicit
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bAdd As Boolean
Dim lItem As Variant
If KeyCode = 13 Then
bAdd = True
For Each lItem In ComboBox1.List
If lItem = ComboBox1.Value Then
bAdd = False
If Shift Then ComboBox1.RemoveItem (ComboBox1.ListIndex)
Exit For
End If
Next
If bAdd And ComboBox1.Value <> "" Then
ComboBox1.AddItem (ComboBox1.Value)
End If
End If
End Sub

Falls die Einträge auf einer ListFillRange beruhen, sieht der VBA-Code etwas komplizierter aus:
a) Die ListFillRange aus der Combox entfernen
b) Die Zellwerte der ListFillRange anpassen (Addieren [erweitern] oder Löschen [verkleinern] Excel-Zellen)
c) Die ListFIllRange der Combox wieder zuweisen.
Gruss Hansueli
Anzeige
Danke
06.09.2006 11:43:25
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige