Code läuft nur im Einzelschrittmodus
18.05.2005 17:06:07
{Boris}
folgender Mini-Code:
Option Explicit
Sub suchen()
Dim C As Range
Dim Einkommen As Variant
Einkommen = Application.InputBox("Bitte Einkommen eingeben", "Einkommen", Type:=1)
If Einkommen = False Then Exit Sub
Set C = Cells.Find(Einkommen)
If C Is Nothing Then
MsgBox "Nicht gefunden"
Else
C.Select
End If
End Sub
Funktioniert nur im Einzelschritt (F8), mit F5 (oder auch via Button) gibt´s Mecker - und zwar hier:
If Einkommen = False Then Exit Sub
Kommentiere ich testweise diese Zeile aus, denn meckert er bei
Set C = Cells.Find(Einkommen)
Kurzer und nüchterner Hinweis jeweils:
Ausführung des Codes wurde unterbrochen
Bestätige ich dann mit , läuft der Code wie gewünscht fehlerfrei zu Ende.
Was ist denn hier bitte schön los?
Das Blatt ist nicht geschützt, zudem ist es aktiv, der gesuchte Wert ist definitiv vorhanden, alle Zellen sind als Zahl formatiert, Haltepunkte habe ich nicht gesetzt...?!
Wie gesagt - im Einzelschritt geht´s problemlos...
Danke und verwirrte Grüße
{Boris}