title image


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



anbei die bessere/richtigere Lösung:



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

If Worksheets("Angebot").Shapes.Count > 0 Then

For i = 1 To Worksheets("Angebot").Shapes.Count

If Worksheets("Angebot").Shapes(i).Name = "Hinweise" Then

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

End If

Next i

End If

End Sub



viele Grüße

Herby







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: