title image


Smiley Re: Frage zu einem SHAPE, bzw. Textfeld
Hallo Achim,



probiers mal so:



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

On Error Resume Next

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

End Sub



viele Grüße

Herby



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: