Hallo ihr Excelspezialisten,
ich komme leider mit einer Zeile in dem mir vorliegenden Code nicht weiter.
Könnt ihr mir bitte helfen!
Der Code lautet wie folgt:
<pre>Sub Datumwert_finden_und_Wert_SpalteD_einfügen3() 'funktioniert
Dim dDatum As Date
Dim lZeile As Long
With Worksheets("Tabelle2")
For lZeile = 2 To Range("B65536").End(xlUp).Row
dDatum = .Cells(1, 13)
If dDatum >= (.Cells(lZeile, 2).Value) And _
dDatum <= (.Cells(lZeile, 3).Value) Then
.Cells(lZeile, 4).Value = .Cells(1, 16)
.Cells(lZeile, 4).Resize(.Cells(.Rows.Count, 2).End(xlUp) - Cells(.lZeile - 1)) = .Cells(1, 16) '<i>hier ist der Fehler</i>
Else
'' .cells(lZeile,4).Value = False
End If
Next lZeile
End With
End Sub</pre>
Es wird der vorgegebene Wert in die Spalte D eingefügt aber bis zum Ende der Tabelle. Ich benötige aber bis zur letzten beschriebenen Zelle in Spalte B.
Besten Dank für eure Hilfe.
Gruss
Peter