String in Zeilen suchen
28.10.2008 14:20:00
Herbert
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String()
iRow = ActiveCell.Row
For i = iRow To 2 Step -1
Var = Cells(i, 1)
If VarType(Var) = vbString Then
teabt = Cells(iRow, 1).Offset(i - iRow, 0)
Exit For
End If
Next i
MsgBox teabt
End Sub
Aber alles wird anders: Jetzt gibt es eine Ausnahme in der Spalte: Es kann das Wort "Teil" vorkommen, wenn sich zwei Personen einen Posten teilen. Wie kann man in den Code diese Ausnahme einbinden um wieder den Abteilungsnamen auszulesen?
Vielen Dank im Voraus
Gruß Herbert