Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

TextBox leeren - Excel 365

Forumthread: TextBox leeren - Excel 365

TextBox leeren - Excel 365
21.07.2025 10:08:33
Jule
Hallo,

ich habe Excel auf die Version 365 umgestellt und musste feststellen, dass z.B. folgende Code-Ausschnitt jetzt einen Fehler "produziert":

.TextBox1_Neu = ""

Laufzeitfehler 438


Hat jemand eine Idee? Bisher hat das leeren der TextBox reibungslos auf die Art funktioniert ...

Vielen lieben Dank !!!

Jule
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox leeren - Excel 365
21.07.2025 12:30:57
RPP63
Moin!
Eine einzige Codezeile ist durchaus wenig … ;)
Fehlender Verweis in Extras, Verweise?
Jedenfalls sollte man auch in VBA die Eigenschaft angeben, die man ändern will.
(auch wenn VBA da seeehr großzügig ist) 
Me.TextBox1.Text = Empty

Gruß Ralf
Anzeige
AW: TextBox leeren - Excel 365
21.07.2025 15:23:50
GerdL
Moin Jule!

Versuche mal. 



Option Explicit





Sub test()



Dim Tf As Shape

Sheets("NEU").Activate

Set Tf = ActiveSheet.Shapes("TextBox1_NEU")

Tf.OLEFormat.Object.Text = ""



End Sub

Gruß Gerd
Anzeige
AW: TextBox leeren - Excel 365
21.07.2025 12:57:04
Jule
Hallo Ralf,

Verweise :) ... daran habe ich nicht gedacht, was müsste ich ggf. noch aktivieren?

... und das ist der vollständige Code ... 

Sub Inhalt_löschen_NEU_1()



With Application

.ScreenUpdating = False

.Calculation = xlCalculationManual

.EnableEvents = False

End With



    With Sheets("NEU") 

        .Range("H19:H20").ClearContents

        .Range("V5").ClearContents

        .Range("H11").ClearContents

        .Range("H25:H35,H37:H41,H43:H49,H51:H54,H56:H57,H59:H63").ClearContents

        .Range("M5:N10").ClearContents

        .Range("O5:O10").ClearContents

        .Range("O15").ClearContents

        .Range("T5:U5").ClearContents

        .TextBox1_NEU = ""

   

    End With

With Application

.EnableEvents = True

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

End With



End Sub



... mit "Empty" kam bei mir dieselbe Fehlermeldung ...

vielen Dank und liebe Grüße

Jule
Anzeige
AW: TextBox leeren - Excel 365
21.07.2025 13:05:17
RPP63
Ich habe das mal kurz mit einer ActiveX-Textbox nachgestellt.
Tabelle2.Textbox1 = ""
funktioniert problemlos.
Handelt es sich denn um ActiveX?
Zeigst Du mal die Datei?

Gruß Ralf
AW: TextBox leeren - Excel 365
21.07.2025 13:36:01
Jule
Es ist die Textbox aus der oberen Reihe des Menüs ... ich glaube nicht ActiveX ...
AW: TextBox leeren - Excel 365
21.07.2025 15:18:11
schauan
Hallöchen,

es könnte auch das Thema mit der durch MS geänderten Einstellung für ActiveX im Trustcenter zusammenhängen.
Wenn es aus dem oberen Block ist, da sind die Formularsteuerelemente und da liegt es dann an was anderem...
Anzeige
AW: TextBox leeren - Excel 365
21.07.2025 15:46:35
Jule
Hallo Schauan,

es scheint tatsächlich mit dem Trust-Center zusammenzuhängen ... ich habe Einstellungen verändert ... und es funktioniert. :)

sehr interessant ...

Vielen herzlichen Dank an Alle !!!

LG Jule
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum