Office: Textbox per VBA löschen

hellraiser · 2. Juni 2008

Hallo zusammen,

in meiner Exceldatei habe ich es durch den Tipp
http://www.digital-inn.de/ms-excel/3...ich-legen.html
geschafft eine Textbox über einen bestimmten Zellbereich zu legen.
Hintergrund hierfür ist ein einfacher "Bearbeitungsschutz" einzelner Zellen in einer z.T. passwortgeschützten Datei, wenn bestimmte Personen diese Datei bearbeiten.

Wie kann ich nun diese Textbox wieder per VBA löschen damit wieder alle Zellen bearbeitet werden können?

Der Makrorekorder liefert mir zwar erste Ansätze, aber irgendwie wills nicht funktionieren.*mad.gif*

Für ne Unterstützung wär ich sehr dankbar.*cool.gif*

Gruß
hr

:)

chris-kaiser · 4. Juni 2008

hiho

wenn du sonst keine Zeichenobjekte in der Mappe hast

ActiveSheet.Shapes(1).Delete

hellraiser · 4. Juni 2008

Hi Chris,

danke für die schnelle Antwort.
In meinem Sheet sind mehrere Schaltflächen und Diagramme.
Deshalb ist dein Lösungsvorschlag nicht ganz das was ich gesucht habe.*tongue.gif*

Es müßte doch irgendwie möglich sein genau dieses Textfeld anzusprechen und zu löschen, oder?

Gruß
hr

chris-kaiser · 4. Juni 2008

hi

Code:

Sub x()
Dim rngTopLeft As Range, rngBottomRight As Range
Dim dblTop#, dblLeft#, dblHeight#, dblWidth#
Dim myTextBox As TextBox

Set rngTopLeft = Range("B10")
dblTop = rngTopLeft.Top
dblLeft = rngTopLeft.Left

Set rngBottomRight = Range("F14")
dblHeight = rngBottomRight.Top + rngBottomRight.Height - dblTop
dblWidth = rngBottomRight.Left + rngBottomRight.Width - dblLeft

Set myTextBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
dblLeft, dblTop, dblWidth, dblHeight).OLEFormat.Object
myTextBox.Name = "myboxerl"
myTextBox.Characters.Text = "Hallo Welt"
End Sub

Sub loesche()
ActiveSheet.Shapes("myboxerl").Delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

falls Du obigen Code verwendest
vergebe einen Namen für die Textbox
nun kann sie leicht über den Namen gelöscht werden

hellraiser · 4. Juni 2008

Hi Chris,

genau das was ich gesucht habe.*Smilie
Irgendwie bin ich nicht von selber drauf gekommen.

Bis demnächst
hr

Office: Textbox per VBA löschen

Textbox per VBA löschen

Textbox per VBA löschen

Textbox per VBA löschen

Textbox per VBA löschen - Similar Threads - Textbox VBA löschen

VBA Kopieren von Zelleninhalte in Textbox

VBA Textbox macht was sie will

Excel VBA - ListBox mit TextBox Filtern

Excel VBA Userform Textbox Inhalt variabel

userform textbox mit vba belegen

Excel VBA :: Klassenmodul für Textboxen :: Teil 2 :: Selektion Text

Excel VBA :: Klassenmodul für Textboxen :: Unterschiedliche Operationen je Textbox