Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahlfelder und Textfelder

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlfelder und Textfelder
29.01.2004 21: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 21: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
Anzeige
AW: Auswahlfelder und Textfelder
29.01.2004 22:01:53
Maren
Danke, funktioniert bestens. Ich bastel nun deine Lösung ein.
Schönen Abend noch Maren

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige