title image


Smiley Frage zu einem SHAPE, bzw. Textfeld
Ich habe dieses Makro geschrieben:



Sub All_Clean()

Meldung = MsgBox("Eintragungen im ANGEBOT und AUFTRAG, sowie die Eingabefelder im RECHNER werden gelöscht !", 48 + 4, "Angebot löschen")

If Meldung = vbNo Then

Exit Sub

End If

Worksheets("Angebot").Range("A10:I21").ClearContents

Worksheets("Angebot").Shapes("Hinweise").Delete

End Sub



Das Problem ist, wenn ich gar kein Textfeld, bzw. SHAPE erstellt habe, kommt es zu einer Fehlermeldung, weil das SHAPE "Hinweise" nicht existiert.



Was muss ich da hinzufügen, damit dieser Fehler nicht mehr kommt?



Gruß Achim

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: