Makro funktioniert nicht
05.02.2019 15:49:58
wolfgang
ich habe folgendes Makro:
(Teilausschnitt)
Dim Sh As Shape, bol As Boolean
For Each Sh In ActiveSheet.Shapes
If Sh.Name = "Textfeld 13" Then '"CommandButton2" Then
bol = True
Exit For
End If
Next
If bol Then
MsgBox "Die vorhandenen Button werden jetzt gelöscht ! " & Chr(13) _
& Chr(13), 64, " Information !"
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveSheet.Shapes("Textfeld15").Delete ' löschen
so klappt es nicht, wenn ich aber anstelle
von Sh.Name = "Textfeld 13"
Sh.Name ="CommandButton2" einsetze wird die
MsgBox "Die vorhandenen Button werden jetzt gelöscht ! " & Chr(13) _
& Chr(13), 64, " Information !"
angezeigt und es geht weiter.
Das "Textfeld15" wird auch dann gelöscht.
gruß wolfgang