AutoShape (Makro ausführen - Text ändern)?
Sergej
ich habe ein AutoShape mit Text erstellt.
Beim Klick auf das Autoshape soll ein Makro ausgeführt werden und der Shapetext soll geändert werden.
Das ganze vier Mal.
Was habe ich im Code falsch gemacht?
Sub AutoShape1_Click()
Dim objShp As Shape
On Error GoTo ErrExit
Application.ScreenUpdating = False ' "Bildschirmflackern" vermeiden
Set objShp = ActiveSheet.Shapes(Application.Caller)
If objShp.TextFrame.Characters.Text = "Gesamt-Tabelle darstellen" Then
Call Gesamttabelle
objShp.TextFrame.Characters.Text = "Heim-Tabelle darstellen"
End If
If objShp.TextFrame.Characters.Text = "Heim-Tabelle darstellen" Then
Call Heimtabelle
objShp.TextFrame.Characters.Text = "Auswärts-Tabelle darstellen"
End If
If objShp.TextFrame.Characters.Text = "Auswärts-Tabelle darstellen" Then
Call Auswaertstabelle
objShp.TextFrame.Characters.Text = "Alle-Tabelle darstellen"
End If
If objShp.TextFrame.Characters.Text = "Alle-Tabelle darstellen" Then
Call Alletabellen
objShp.TextFrame.Characters.Text = "Gesamt-Tabelle darstellen"
End If
ErrExit:
Application.ScreenUpdating = True
End Sub
Danke vorab!
Gruß,
Sergej