Hallo,
Ich habe das Problem, dass mein Code mit ganzen Wörtern funktioniert. Wenn ich aber nur ein Teil eines Wortes eingebe, klappt das Script nicht.
wenn ich nur " portanlage" reinschreibe. Klappt das Script nicht. Warum ist das so, und was muss ich ändern, dass es funktioniert?
MfG Martin
*Topic verschoben, Code formatiert*
Ich habe das Problem, dass mein Code mit ganzen Wörtern funktioniert. Wenn ich aber nur ein Teil eines Wortes eingebe, klappt das Script nicht.
Visual Basic-Quellcode
- Sub Objekt_ID()
- Dim STR As String
- Dim i, j As Long
- Dim OBJ_ID As Long
- For i = 2 To 9987
- STR = Cells(i, 3).Value
- If InStr(1, STR, "Sportanlage") > 0 Then
- OBJ_ID = Cells(i, 1).Value
- For j = 2 To 99999
- If (Cells(j, 1).Value = OBJ_ID) And (Cells(j, 4).Value = "") Then Cells(j, 4).Value = "6"
- Next j
- End If
- Next i
- End Sub
wenn ich nur " portanlage" reinschreibe. Klappt das Script nicht. Warum ist das so, und was muss ich ändern, dass es funktioniert?
MfG Martin
*Topic verschoben, Code formatiert*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()