|
Bin mit VBA nicht so vertraut, habe aber ein Problem mit einer Variablen bei der Suche in einer Textvariablen. Der erste Durchlauf funktioniert nicht. Ersetze ich aber "AIII" & Cstr(x) durch den Ausdruck AIII7 funktioniert der Durchlauf wieder. Hat jemand eine Lösung?
Option Explicit
Sub Berechnung_2_3Teile()
Dim AIII7 As String
Dim x As Integer
Dim zahl As String
zahl = "|5|"
x = 7
AIII7 = "|13|36|11|30|8|23|10|5|24|16|33|1|20|"
If InStr("AIII" & CStr(7), zahl) > 0 Then
MsgBox "OK"
End If
End Sub
********************************************************
Option Explicit
Sub Berechnung_2_3Teile()
Dim AIII7 As String
Dim x As Integer
Dim zahl As String
zahl = "|5|"
x = 7
AIII7 = "|13|36|11|30|8|23|10|5|24|16|33|1|20|"
If InStr(AIII7, zahl) > 0 Then
MsgBox "OK"
End If
End Sub
|