Textboxen aus Excel Blatt löschen!

[Guido Erik B.]

Hallo,

stehe im Moment ziemlich auf dem Schlauch. Ein Kollege hat ein Excel Blatt
kreirt und unheimlich viele unnötige Textboxen eingefügt. Ich will/muß die
jetzt alle auf einmal entfernen lassen (Makro).
Ich hatte schon mal etwas in der Art geschrieben, aber nicht gespeichert.
Jetzt bekomme ich es nicht mehr hin. Ist echt dringend.

Kurz:
Excel Blatt nach Textboxen durchsuchen und gnadenlos löschen!

Danke für einen Tipp eurerseits!

Gruß,
Guido

[Jörn Lütjens]

Hi, Guido Erik!

Versuch's mal so:
(Code nach eigenem Makro geändert, in dieser Form nicht getestet)


' alte Textfelder etc löschen
for each s in Charts(mychart).Shapes
If s.Type = msoTextBox Then s.Delete
end with

Gruß,
Jörn

Post by Guido Erik B.
Hallo,
stehe im Moment ziemlich auf dem Schlauch. Ein Kollege hat ein Excel Blatt
kreirt und unheimlich viele unnötige Textboxen eingefügt. Ich will/muß die
jetzt alle auf einmal entfernen lassen (Makro).
Ich hatte schon mal etwas in der Art geschrieben, aber nicht gespeichert.
Jetzt bekomme ich es nicht mehr hin. Ist echt dringend.
Excel Blatt nach Textboxen durchsuchen und gnadenlos löschen!
Danke für einen Tipp eurerseits!
Gruß,
Guido

[Guido Erik B.]

Hallo Jörn!

Post by Jörn Lütjens
Hi, Guido Erik!
(Code nach eigenem Makro geändert, in dieser Form nicht getestet)
' alte Textfelder etc löschen
for each s in Charts(mychart).Shapes
If s.Type = msoTextBox Then s.Delete
end with
Gruß,
Jörn

Vielen Dank für Deine Hilfe!

Ich habe den Code wie folgt geändert und nun klappt es.

Dim s
Sub TextBoxEntfernen()

For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then
s.Delete
End If
Next s

End Sub


Danke & Gruß,
Guido