den nachfolgenden Code erhielt ich hier aus dem Forum. Er läuft auch soweit wunderbar und problemlos. Nun würde ich gerne noch erreichen, dass aus der Zelle, aus der das jeweilige Datum in Textbox 9 angezeigt wird, aus der "benachbarten" Zelle in Spalte N der Inhalt in Textbox 10 dazu angezeigt wird. Wie ist der Code anzupassen? - Danke schon jetzt für die Rückmeldungen.- Herzliche Grüße - Wolfgang
Sub Abfrage()
Dim loLetzte As Long, loVon As Long, loBis As Long
Dim raFund As Range, raFund1 As Range, i As Long
Dim boFehler As Boolean
Application.ScreenUpdating = False
With Worksheets("Vormerkungen")
loLetzte = .Cells(.Rows.Count, "K").End(xlUp).Row
If WorksheetFunction.CountIf(.Columns("M"), Me.ComboBox4) > 0 Then
Set raFund = .Columns("M").Find(what:=Me.ComboBox4, LookIn:=xlValues, lookat:=xlWhole)
Set raFund1 = .Columns("M").Find(what:=Me.ComboBox4, LookIn:=xlValues, lookat:=xlWhole, _
_
searchdirection:=xlPrevious)
loVon = raFund.Row
loBis = raFund1.Row
Set raFund = .Columns("M").Find(what:=Me.ComboBox4, LookIn:=xlValues, lookat:=xlWhole)
Set raFund1 = .Columns("M").Find(what:=Me.ComboBox4, LookIn:=xlValues, lookat:=xlWhole, _
_
searchdirection:=xlPrevious)
loVon = raFund.Row
loBis = raFund1.Row
Me.TextBox9 = Format(WorksheetFunction.Max(.Range(.Cells(loVon, "K"), .Cells(loBis, "K") _
)), "DD.MM.YYYY")
If IsNumeric(Me.TextBox5) Then
If IsDate(Me.TextBox5) Then
For i = loVon To loBis
If .Cells(i, "K") > Date And CDate(Me.TextBox5)