Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige