Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Selection.Find im VBA

Selection.Find im VBA
27.06.2003 15:39:25
Thomas
Ich versuche mit folgendem VBA bestimmte Tage zu finden. Das funktionier aber nur einmal. Beim zweiten durchlaufen der Schleife bekomme ich eine Fehlermeldung:

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Selection.Find im VBA
27.06.2003 16:29:27
RAnton

Hallo Thomas,

mit dieser Anweisung löscht du deine Selection.

Selection.Delete Shift:=xlUp

Damit hat er keine Selection mehr.

Gruß
RAnton

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige