Sub Hochkomma()
If ActiveCell = "'" Then
MsgBox "Nicht"
Else
Exit Sub
End If
' hier weiterer Code
End Sub
Sub Hochkomma()
If InStr(ActiveCell, "'") > 0 Then
MsgBox "Nicht"
Else
Exit Sub
End If
' hier weiterer Code
End Sub
Sub MitHochkommaOdernNicht()
On Error GoTo hell
Debug.Print WorksheetFunction.Find("'", Selection.Value)
MsgBox "Nicht"
hell:
End Sub
Sub Hochkomma_Pruefen()
If InStr("'", ActiveCell) Then
MsgBox "Nicht"
Else
Exit Sub 'nur erforderlich, wenn weiterer Code folgt
End If
'Hier weiter Code
End Sub
Sub Hochkomma_Pruefen()
If InStr(ActiveCell, "'") Then
MsgBox "Nicht"
Else
Exit Sub 'nur erforderlich, wenn weiterer Code folgt
End If
'Hier weiter Code
End Sub
Option Explicit
Sub Hochzeichen()
If Len(ActiveCell.PrefixCharacter) = 1 Or Len(ActiveCell.Value) - Len(Application. _
WorksheetFunction.Substitute(ActiveCell.Value, "'", "")) > 0 Then
MsgBox "Nicht"
Else
End If
End Sub
Sub FritzHochkomma()
If Len(ActiveCell.PrefixCharacter) Or InStr(ActiveCell, "'") Then
MsgBox "Nicht"
Else
Exit Sub
End If
'weiterer Code
End Sub