ich habe folgendes Problem:
In einer Zelle steht ein sehr langer Text. ich möchte wissen, ob in diesem Text ein best. string ("200") enthalten ist. Falls ja, soll die Position des strings innerhalb des langen Textes ausgegeben werden.
Cells(i, 81 + j * 4 - 4).Select
ActiveCell.FormulaR1C1 = "=FIND(""200"",RC[-2],RC[-1])"
If IsError(ActiveCell.Value) Then ActiveCell.FormulaR1C1 = "falsches Release"
Cells(i, 81 + j * 4 - 4).Select
Das funktioniert wunderbar. Sofern der string "200" gefunden wird, steht nun in der Celle Cells(i, 81 + j * 4 - 4) eine Zahl, die die Position des strings ausgibt.
Nun möchte ich aber die "200" als Variable mit dem Variablennamen release übergeben.
Der Wert der Variable steht auf dem anderen Sheet "Makros".
Ich habe folgendes probiert: Ausschnitt aus dem gesamten Makro:
Dim release As String
Sheets("Makros").Select
Range("B1").Select
release = Range("B1")
release = Str(release)
Cells(i, 81 + j * 4 - 4).Select
ActiveCell.FormulaR1C1 = "=FIND(What:=release,LookIn:=RC[-2],LookAt:=RC[-1])"
If IsError(ActiveCell.Value) Then ActiveCell.FormulaR1C1 = "falsches Release"
Cells(i, 81 + j * 4 - 4).Select
Nun erhalte ich in der Zeile ActiveCell.FormulaR1C1 den Fehler 1004 (Anwendungs- oder objektorientierter Fehler).
Die relativen Zellbezüge RC[-2] und RC[-1] möchte ich gerne behalten, da ich eine Schleife durchlaufe und diese relativen Zellbezüge die Schleife sehr einfach machen.
Vielen herzlichen Dank für die Hilfe!
Viele Grüße,
Heike