Laufzeitfehler 1004
30.12.2021 22:21:16
Romy
Option Explicit
Dim R As Long
Dim rngZeile As Range
Dim BlattName1 As String, BlattName3 As String, BlattName2 As String
Dim strSuchFormel As String, strSuchWert As String
Sub test()
BlattName2 = "Kopie"
BlattName1 = "Projekte"
BlattName3 = "Zusatzinfo"
For Each rngZeile In Range(Range("Struktur[[Lfd. Nr.]]").Address)
R = rngZeile.Row
strSuchFormel = Sheets(BlattName3).Cells(R, Range(Range("Struktur[[Ort2]]").Address).Column).Value
With Sheets(BlattName1)
.Range("Personal[Hilfsspalte]").FormulaR1C1 = _
"=IF(AND([@[zu Ort2, Ort3]]=" & strSuchFormel & ",[@Beginn]TODAY(),[@Ende]="""")),""Ja"",""Nein"")"
strSuchWert = "Ja"
'Weiterer Code...
End With
Next rngZeile
End Sub