Laufzeitfehler 91 - Hilfe
01.04.2021 08:12:19
Edis
Public Sub Texterstellen2()
Dim finden As Range
Dim lngZeile As Long
Dim lngEndeZeile As Long
Dim strAusgabeText As String
Set finden = Worksheets("Email-Doku").Range("A1:A200").Find(what:="Ende")
lngEndeZeile = finden.Row
For lngZeile = 1 To lngEndeZeile
strAusgabeText = strAusgabeText & Worksheets("Email-Doku").Cells(lngZeile, 1) & vbLf
Next
strAusgabeText = Left(strAusgabeText, Len(strAusgabeText))
Worksheets("Email").TextBox3.Value = strAusgabeText
End Sub
Es kommt der Laufzeitfehler 91 bei Zeile "lngEndeZeile = finden.Row"
Wo kann hier der Fehler liegen?
vielen Dank!