Frohes Neues Jahr !
Mit dem folgenden Makro wir eine Userform gestartet,was mir die Listbox mit den Werten aus dem Tabellenblatt "Druck" füllt (Spalten A>Datum & B>Wert).Der ausgewählte Werte kann per Click übernommen werden.
An erster Stelle steht in der Listbox das Datum des Tages welcher bearbeitet werden soll. Der "ListBox1.ListIndex" ist
auf den Wert "1" gestellt,so das immer der zweite Eintrag der Listbox markiert ist.
Meine Frage:
Der "ListBox.ListIndex=1" soll den Vortag des an der ersten Stelle stehenden Datums enthalten, so das der dazugehörige Wert übernommen werden kann.(z.B. erste Stelle >10.12.02 zweite Stelle > 09.12.02)
Das Makro muß also die Listbox so aktualisieren, das zum Ausgangsdatum(Stelle1) das Datum des Vortages(Stelle2)steht.
Wie muß ich das Makro umschreiben ?
Vielen Dank für die Hilfe !!
Option Explicit
________________________________________
Private Sub CommandButton2_Click()
'ausblenden von Userform1
Unload Me
Sheets("TBD").Select
End Sub
________________________________________
Private Sub übernehmen_Click()
Worksheets("Auswertung").Range("L23") = ListBox1.List(ListBox1.ListIndex, 1)
Sheets("TBD").Select
Unload Me
End Sub
________________________________________
Private Sub UserForm_Initialize()
Dim LoLetzte As Long
Dim LoI As Long
With Worksheets("Druck")
If .[a65536] = "" Then
LoLetzte = .[a65536].End(xlUp).Row
Else
LoLetzte = 65536
End If
ListBox1.ColumnCount = 2
For LoI = 1 To LoLetzte
ListBox1.AddItem Format(.Cells(LoI, 1), "dd.mm.yyyy")
ListBox1.List(LoI - 1, 1) = .Cells(LoI, 2)
Next LoI
End With
ListBox1.ListIndex = 1
Sheets("Druck").Select
TextBox1.Text = Cells(1, 5)
End Sub