Laufzeitfehler 91-Objektvar. oder With-Blockvar.
16.12.2018 19:24:47
STeve
in der Do/While-Schleife von Spalte 4 soll eine weitere Do/While-Schleife in Zeile 16 laufen........aber ich denke es hängt mit der With Anweisung zusammen, dass
Set rng = .FindNext(rng)
immer Nothing ist?
Meldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt
Bitte um eure Hilfe. Danke und mfg STeve
Sub F1_en()
Dim rng As Range
Dim LC As Range
Set LC = ActiveSheet.UsedRange.SpecialCells(11)
With Columns(4)
Set rng = .Find("Endzeit", , xlValues, xlWhole)
Anf = rng.Address
Do
With Rows(16)
Set Fr = .Find("Fr", , xlValues, xlWhole)
SuchedieWochenenden = Fr.Address
Do
Set Fr = .FindNext(Fr)
Loop Until SuchedieWochenenden = Fr.Address
End With
Set rng = .FindNext(rng) 'hier ist rng immer Nothing
Loop Until Anf = rng.Address
End With
End Sub