|
In welcher Anwendung? In Excel geht das nur mit komletten Zellinhalten, entweder ob sie gleich sind oder den Suchstring enthalten. Bei Word kann man mit Selection.Text arbeiten.
Beispiel:
If ActiveSheet.Range("A1") = "ABCDE" Then
oder, um Groß/KLeinschribung nicht zu beachten:
If UCase(ActiveSheet.Range("A1")) = "ABCDE" Then
oder, wenn es sich um eine ganze Zelle mit mehr Text handel:
If Instr(1, UCase(ActiveSheet.Range("A1")), "ABCDE", vbBinaryCompare) <> 0 Then
Severus
|