ich möchte per VBA die Spalte D in allen erstellen Sheets nach einem Wert aus einer TextBox in einer Userform durchsuchen. Ich habe dazu unten stehendes Makro, das den Wert zwar findet, aber mit Laufzeitfehler 91 (with-block-Variabel nicht festgelegt) abbricht.
Hat jmd eine Idee, was geändert werden muss?
Schon mal Danke.
Dim I As Integer
Dim lngzelle As String
For I = 1 To Sheets.Count
lngzelle = Sheets(I).Range("D:D").Find(What:=UserForm1.TextBox1.Value, LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious).Row
Sheets(I).Range("D" & lngzelle).Activate
Sheets(I).Range("D" & lngzelle).Interior.Color = RGB(255, 255, 0)
Next