Office: Neue Datensätze in Combobox

Hallo zusammen,

ich bräuchte mal wieder Eure Hilfe. Ich habe mir eine Art Kassenbuch gebastelt. Zum Teil sollen die Daten über eine Eingabemaske eingegeben werden. Soweit funktioniert das auch alles. Aber ich habe eine ComboBox, in der ich den Auftraggeber (oder eigentlich den Empfänger) auswählen kann. Somit brauche ich den nicht jedesmal eintippen.
Allerdings kann ich dort nur die vorhandenen auswählen. Kann mir jemand helfen, wie ich den VBA-Code umstellen muss, damit ich in diese Combobox auch neue Auftraggeber reinschreiben kann, die dann der "Quelltabelle" (also der Liste, die die Auftraggeber enthält) angehangen werden.


Ich erwähne es mal gleich mit, ich bin noch ziemlich unerfahren, was VBA angeht. Achso, und ich nutze Excel 2010.


Vielen Dank schon mal für Eure Hilfe

Gruß
Michael

 

Hi Michael,

benutze für deine Auftraggeber-Liste keinen festen Zellbereich sondern definiere einen Namen, der sich dynamisch an die Anzahl der belegten Zellen anpasst: Auftrag =Listen!$E$1:INDEX(Listen!$E:$E;ANZAHL2(Listen!$E:$E);1).

Ergänze außerdem den Code für den CommandButton um diese Zeilen, damit der neue Auftraggeber in die Liste eingetragen wird:

Code:

If IsError(Application.Match(cboAuftrag, Range("Auftrag"), 0)) Then
   Worksheets("Listen").Cells(Range("Auftrag").Rows.Count + 1, Range("Auftrag").Column) = cboAuftrag
End If

Bis später,
Karin

 

Hallo Karin,

danke für Deine Antwort. Mit der Eintragung in die Ursprungsliste klappt das noch nicht so richtig. Wahrscheinlich stell ich mich zu blöd an und habe den Code dafür falsch eingefügt. Der übernimmt den neuen Auftraggeber nicht erst beim Klicken auf "Übernehmen" sondern bei jedem Tastatureintrag. Kannst Du Dir das bitte noch einmal anschauen. Ich habs mal drangehangen.

Danke Dir

 

Hi Michael,

ich hatte nichts vom Change-Ereignis der ComboBox geschrieben.

Bis später,
Karin

 

Hallo Karin,

habs geändert. Jetzt funkioniert es. Danke nochmal für Deine Hilfe.

Gruß Michael