ich habe ein Problem beim befüllen einer Listbox.
Ich habe eine Routine geschrieben, die mittels Button- oder Listbox-Klick aufgerufen werden kann.
Wenn ich die Routine mit diesem Button-Klick aufrufe funktioniert das einwandfrei:
Private Sub CommandButton5_Click()
Anfang.Caption = DateValue(Anfang.Caption) + 1
Label8.Caption = Format(Anfang.Caption, "DDDD")
call listeaktuell
End Sub
Nach einem Aufruf durch diesen Listbox-klick (in die Listbox, die neu aufgebaut werden soll) wird die Listbox jedoch nicht wieder mit daten gefüllt:
abox = Termine.Kunden.List(Termine.Kunden.ListIndex, 0)
Sheets(abox).Range("H4") = DateValue(Datum.Caption)
Call listeaktuell
Die Routine die Aufgerufen wird, wird vollständig abgearbeitet, bis auf das neue befüllen der Listbox. Deshalb habe ich diesen Teil weggelassen.
Bis zum .Clear läuft es und die Listbox wird gelöscht. Die neuen daten (Terminliste2) werden dann aber nicht eingetragen.
terminliste2 = Sheets("Kundendetails").Range("FA1:FK" & boxü) '.Value
With Termine.Kunden
.Clear
.ColumnCount = 10 '2 = Anzahl Spalten
.ColumnWidths = "0;0;4cm;3cm;3cm;2,5cm;1cm;3cm;1,8cm;1,8cm"
.List() = terminliste2
End With
Es scheint so, als wäre Terminliste2 leer, dies ist aber nicht der Fall, da im zugewiesenen Bereich daten stehen und beim Button-Klick-Aufruf klappt das ja auch.
Hat jemand dafür eine Erklärung? Liegt es daran, das die Prozedur durch ein Klick in die selbe Listbox aufgerufen wird, die befüllt werden soll?
Ich wäre für jeden Hinweis dankbar.
Grüße
Sascha