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

Textfeld mit Zeile löschen

Textfeld mit Zeile löschen
13.09.2006 11:57:57
volker
Hai Excels,
ich lösche bestimmte Zeilen mittels makro. Manchmal sitzt in so einer Zeile noch ein Textfeld. Dieses wird momentan leider nicht gelöscht.
Wie bekomm ich es hin?
Danke Gruss volker

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld mit Zeile löschen
13.09.2006 12:10:56
Josef
Hallo Volker!
Z.B. so.
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


Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige