Hallo,
bei folgendem Makro zeigt er die Fehlermeldung beim ersten CHR
Sub ZeichenWechsel()
With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
If .Text = Chr(32) Then
.Text = Chr(208)
Else
.Text = Chr(32)
End If
End With
End Sub
Weiss jemand welches Projekt oder Bibliothek fehlt ?
Gruss Jürgen