Forums Neueste Beiträge
 

Left -Funktion

23/02/2010 - 16:25 von Jürgen Stadermann | Report spam
Hallo,
ich bin bald am verzweifeln,
Folgender Sachverhalt:
In Zelle ("B5") steht > Test BNC <
Die Zelle ist ausgewàhlt, also aktiv.

Jetzt mein Versuch:

Sub lefttest)

For i = 1 To 50

If Left(ActiveCell.Value, 3) = "BNC" Then

MsgBox "geht doch"
End If

i = i + 1
Next

End Sub

Leider immer, bei allen möglichen Versuchen u.s.w. keine Reaktion,
der Fokus springt nie zur msgbox.also immer über die If-Abfrage drüber.

Was ist hier los, was mache ich falsch, wo sehe ich den Wald vor lauter
Bàume nicht?
Danke für hilfreiche Antworten.



WinXP, Excel2007 Sp2
Jürgen
 

Lesen sie die antworten

#1 Peter Schleif
23/02/2010 - 16:32 | Warnen spam
Jürgen Stadermann schrieb am 23.02.2010 16:25 Uhr:

Was ist hier los, was mache ich falsch, wo sehe ich den Wald vor lauter
Bàume nicht?



Wenn es unbedingt so kompliziert sein muss, dann verwende Mid() statt
Left(). Oder Du guckst Dir mal InStr() an.

Peter

Sub lefttest()
Dim i As Integer

For i = 1 To 50
If Mid(ActiveCell.Value, i, 3) = "BNC" Then
MsgBox "geht doch"
End If
i = i + 1
Next
End Sub

Ähnliche fragen