Auswahlfelder und Textfelder

Forumthread: Auswahlfelder und Textfelder

29.01.2004 22:25:32

Maren

Hallo liebe Gemeinde,
wie kann man mit einem Makro ca. 40 Auswahlfelder und 80 Textfelder löschen???
Kann mir jemand helfen??

Betreff

Datum

Anwender

AW: Auswahlfelder und Textfelder

29.01.2004 22:38:41

Matthias G

Hallo Maren,
so kannst Du ALLE OLEObjects der aktiven Blatts löschen:


Sub AllesLöschen()
Dim i As Integer
For i = 1 To ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(i).Delete
Next i
End Sub

Oder sind es nicht alle?
Matthias

AW: Auswahlfelder und Textfelder

29.01.2004 22:40:03

Nepumuk

Hallo Maren,
Beispiel:


Option Explicit
Public Sub loeschen()
Dim myShape As Shape
For Each myShape In Worksheets("Tabelle1").Shapes
myShape.Delete
Next
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

AW: Auswahlfelder und Textfelder

29.01.2004 23:01:53

Maren

Danke, funktioniert bestens. Ich bastel nun deine Lösung ein.
Schönen Abend noch Maren

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

14.05.2026 09:50:42

13.05.2026 19:14:18

13.05.2026 14:24:56

13.05.2026 08:49:41

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum