Ich stelle mit folgendem Code eine Datenbank in einer Listbox dar
Private Sub UserForm_Initialize()
Dim lR%
lR = Worksheets("Vkpreis").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "Vkpreis!D3:J26" & lR
ListBox1.ListIndex = 0
End Sub
Die Daten sind Formeln berechnet mit der Zelle A1
Ich möchte den Wert A1 in der Listbox ändern können und die Werte sollen dann aktuallisiert werden
Gibt es da eine Möglichkeit?
Gruß Alois