Selection.Find im VBA
27.06.2003 15:39:25
Thomas
Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt.
Warum?
Hier das VBA
Sub test()
Dim Zähler As Byte, Tag As Date
Tag = Date
2:
Zähler = Zähler + 1
If Zähler = 5 Then GoTo 3:
Do
Columns("J:J").Select
On Error GoTo 1:
Selection.Find(What:=Tag, After:=ActiveCell).Activate
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
Loop
1:
Tag = Worksheets("Leihe").Range("A1") - Zähler
GoTo 2:
3:
Range("A1").Select
End Sub
Danke für die Hilfe!!
Thomas