Textfelder löschen
18.10.2006 16:39:30
volker
ich hab schon einige male angefragt komm aber nicht hin.
Folgendes: Ich hab ein makro welches mir Zeilen löscht wenn der Wert in Spalte "E" der Jeweiligen Zeile kleiner 1 ist. (das passt)
In diesen Zeilen gibt es teilweise auch Textfelder. Diese werden von meinem makro leider ignoriert, sollen aber auch gelöscht werden.
Hierzu habe ich ein makro (von Sepp) aber das klappt so nicht.
Kann mir jemand helfen?
Anmerkung:
Im meiner Datei ist das makro zum löschen der Zeilen enthalten.
Das makro von Sepp:
Sub TextfeldWeg()
Dim objShp As Object
Dim lngR As Long
lngR = 15 'Zu löschende Zeile nur als Beispiel
For Each objShp In ActiveSheet.OLEObjects
If TypeName(objShp.Object) = "TextBox" Then
If objShp.TopLeftCell.Row = lngR Then objShp.Delete: Exit For
End If
Next
End Sub