Code in Schleife ablaufen lassen funktioniert nicht

Sub Test()
Dim Where As Range, Here As Range
Dim x As Long
Dim searchstr As String

Set Where = Intersect(Selection, ActiveSheet.UsedRange)
If Where Is Nothing Then
MsgBox "Zelle(n) im benutzen Bereich wählen"
Exit Sub
End If

searchstr = Range("S2").Value

'Alle Zellen durchlaufen
For Each Here In Where.Cells
'Suche
x = InStr(1, Here.Value, searchstr, vbTextCompare)
'Solange gefunden
Do While x > 0
'Färben
Here.Characters(x, Len(searchstr)).Font.Color = vbGreen
'Suche nächstes
x = InStr(x + 1, Here.Value, searchstr, vbTextCompare)
Loop
Next
End Sub

<br />

Hallo,

dann lasse die Schleife nur bis Zeile 9 gehen:

For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To [b]
9 [/b]Step -1

Claus

Hallo daniel98_725,

stelle deine Frage in einem speziellen Access-Forum (http://dbwiki.net/wiki/Access_Links),
und stelle deinen Code nicht als Bild, sondern als Text - in Code-Tags eingeschlossen - ein.

Und beschreibe genau, an welcher Stelle des Codes der Fehler auftritt bzw. wie du den Fehler auslöst (z.B. durch Ablaufen lassen des Codes, oder durch Kompilieren des Codes, oder?).

Gruß

Josef

Hallo,

ich habe das gleiche Problem, und daher beim Support angerufen. Eigentlich nicht nötig, da sie mir auch nur eine Info geben konnten, aber nicht direkt helfen.

Diese Info gebe ich nun hier gern weiter:

- Die Prepaid Karten sind keine Abos, daher lassen sie sich nicht verlängern

- Man soll sich laut MS am selben Tag des Ablaufs anmelden, und dann einen neuen Code eingeben.

- Früheres Eingeben, birgt das Risiko, dass man die ungenutzte Zeit verliert

- Zu spätes Eingeben des Codes führt zu einem Read-Only Zugriff auf die Dateien in der Übergangszeit ohne Code und schaltet danach einen neuen Zeitraum frei.

Ich warte nun also bis zu dem Zeitpunkt, wenn ich Schreibzugriff nach Ablauf des letzten Codes brauche und gebe dann den neuen Code ein. Übrigens mit 67€ viel günstiger als das normale Abo.

Hallo Norbert,

um etwas genaues zu sagen, müssten wir schon deinen Code kennen.

Kann es sein, dass du nicht sauber referenziert hast und daher der Performance-Einbruch kommt? Geht deine Schleife über ein Tabellenblatt? Wenn ja, dann lies deine Daten in ein Array und mache dann die Schleife über dieses Array. Wenn im Speicher gearbeitet
wird, ist das schneller als eine Schleife durchs Blatt.

Claus