VBA: Fragezeichen nicht als Platzhalter werten
22.10.2004 19:56:07
KlausF
ich möchte gerne am Ende eines Satzes einen Punkt per VBA
gesetzt haben. Wenn bereits ein Punkt oder Fragezeichen
am Satzende steht, soll nichts gesetzt werden.
Wie schaffe ich es, dass Excel das Fragezeichen nicht als
Platzhalter wertet? Bisher habe ich:
Sub Punkte()
For Each Cell In Selection
Tstring = Right(Cell.Value, 1)
If Tstring <> "." Or Tstring <> "[?]" Then
Cell.Value = Cell.Value & "."
End If
Next Cell
End Sub
Funktioniert aber leider nicht. Auch "*[?]*" geht nicht ...
Für Antworten im voraus ein Danke
Klaus
Anzeige