Office: Combobox aktualisieren

Hi,
ich habe mich an mein erstes Formular gewagt und prompt habe ich wieder etwas für's Forum. Ich habe eine Combobox, die ich mit daten aus einer Spalte füttere. Und zwar so: Code:

Die Daten der Spalte werden von Zeit zu Zeit manuell aktualisiert mit Daten aus einer Vielzahl weiterer Exceldateien. Dies geschieht über einen Button auf dem Formular. Wenn ich die Daten in der Spalte aktualisiert habe, muss ich das Formular aber schließen und neu starten, damit auch die Daten in der Combobox aktualisiert werden. Ich habe schon mit show, hide, load, unload rumexperimentiert aber ich bekomme es einfach nicht hin. Wie kann ich das Problem lösen?

:)

 

Hallo Andre

ich würde es so machen:

Im Modul:
Code:

In der Form:
Code:

Im Worksheet:
Code:

und/oder im Button
Code:

Gruß
VCG

 

Moin viruscg,
danke für deine Tipps. Ich hatte es so schon versucht, allerdings habe ich bisher die Liste nicht gelöscht... Code:

... Das ist scheinbar notwendig. Nun tut es so wie es soll *Smilie

 

Hall Andre, so mache ich das
Private Sub ComboBox2_AfterUpdate()
Dim var As Variant
Dim intRow As Integer, intLastRow As Integer, Endrow As Integer, I As Integer
Dim txt As String, Name As String
If frmMaterial.ComboBox2.Value = "" Then GoTo Ende
Application.ScreenUpdating = False
With Sheets("Listen")
var = Application.Match(frmMaterial.ComboBox2.Value, .Columns(2), 0)
End With
If IsError(var) Then
txt = frmMaterial.ComboBox2.Value

With Sheets("Listen")
intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(intRow, 2) = txt
End With
frmMaterial.ComboBox2.List = Sheets("Listen").Range("B1").CurrentRegion.Columns(2).Value
For intRow = 0 To frmMaterial.ComboBox2.ListCount - 1
If frmMaterial.ComboBox2.List(intRow) = txt Then Exit For
Next intRow
frmMaterial.ComboBox2.Clear

Endrow = Sheets("Listen").Cells(Rows.Count, 2).End(xlUp).Row
For I = 1 To Endrow
Name = Sheets("Listen").Cells(I, 2)
frmMaterial.ComboBox2.AddItem Name
Next I
frmMaterial.ComboBox2.Value = txt
End If
Ende:
End Sub
Somit wird die ComboBox automatisch nach dem verlassen aktualisiert.
Gruß