Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textfelder

Forumthread: Textfelder

Textfelder
29.11.2007 20:36:23
foresthome
Hallo,
Ich möchte gern alle Textfelder ( beginnen alle mit Textfeld .. ) in der ganzen Mappe Löschen, hab im Forum einemn Beitrag von 2002 gefunden aber das dortige Macro funktioniert nicht wie auch der damalige User bemerkte. Weiss jemand von euch Rat? mir würde es auch schon langen wenn das auf ein Arbeitsblatt gelänge. Werde halt dann jedes Arbeitsblatt bearbeiten.
Gruß schon mal in voraus
Werner

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfelder
29.11.2007 20:43:00
Josef
Hallo Werner,
probier mal.
Sub TextfelderLoeschen()
Dim objShp As Shape
Dim objSh As Worksheet

For Each objSh In ThisWorkbook.Worksheets
    For Each objShp In objSh.Shapes
        If objShp.Type = msoTextBox Then objShp.Delete
    Next
Next

End Sub

Gruß Sepp

Anzeige
AW: Textfelder
30.11.2007 08:08:00
foresthome
Danke Sepp,
die Welt kann so einfach sein. Gut das es euer Forum gibt, jedesmal kompetent und freundlich. Das gibt es nicht überall.
Gruß Werner
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige