Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textfeld_1 nicht anklickbar machen ?

Textfeld_1 nicht anklickbar machen ?
30.01.2019 19:18:15
wolfgang
Guten Abend zusammen,
kann man ein Textfeld nicht anklickbar machen,
wie ein CommandButton:
ActiveSheet.CommandButton5.Enabled = False
Das geht nicht:
ActiveSheet.Shapes("Textfeld13").Enabled = False
Laufzeitfehler438
mfg wolfgang
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textfeld_1 nicht anklickbar machen ?
30.01.2019 19:31:33
Mullit
Hallo,
Du hast da eine Formular-Box am Wickel, nimm 'ne ActiveX-Box, dann genau wie beim Button:
ActiveSheet.TextBox1.Enabled = False

Gruß, Mullit
AW: Textfeld_1 nicht anklickbar machen ?
30.01.2019 19:35:53
wolfgang
Guten Abend Mullit,
das geht nicht, da ich dem Textfeld einem Makro zugeordnet habe.
gruss wolfgang
Anzeige
AW: Textfeld_1 nicht anklickbar machen ?
30.01.2019 21:14:49
Mullit
Hallo Wolfgang,
hm ok, ich hätt jetzt daran gedacht, bleib bei der Formularbox, setz einen Blattschutz rein, entsperr dabei vorher die Zellen Deines Arbeitsbereiches und sperr die Box, das geht auch über Code:
Option Explicit
Public Sub test()
With ActiveSheet
.UsedRange.Locked = False
.Shapes("Textfeld 1").Locked = True
Call .Protect
End With
End Sub

Aber Du hast da ja auch was gefunden, prima, wenn's passt...
Gruß, Mullit
Anzeige
AW: Textfeld_1 nicht anklickbar machen ?
31.01.2019 09:59:57
wolfgang
Guten Morgen Mullit,
danke nochmals für die Info.
Habe mal dein Makro laufen lassen, leider keine Aktion.
Die Textbox kann ich auswählen und das Makro dahinter wird ebenfalls
ausgeführt !
mfg
wolfgang
AW: Textfeld_1 nicht anklickbar machen ?
31.01.2019 17:10:06
Mullit
Hallo Wolfgang,
hm wie jetzt, ich dachte Du wolltest das Makro immer ausführen lassen ?, andernfalls wäre eine ActiveX-Box noch zielführender, der kannst Du selbstverst. über ein Click-Event auch Code zuweisen und keine Aktion kann eigentl. nicht sein, auswählen kannst Du Deine Box ja sowieso nur über die rechte Maustaste wegen des zugwiesn. Makros, das wird bei Locked eben auch noch unterbunden, aber egal ich lad Dir mal was mit beiden Varianten hoch......
https://www.herber.de/bbs/user/127344.xlsm
Gruß, Mullit
Anzeige
Tausend Dank Mullit --))
31.01.2019 17:50:28
wolfgang
Guten Abend Mullit,
da hast Du viel Arbeit gemacht.
Ich werde dies mal reinziehen und auf meine Anwendung anwenden.
Danke
mfg wolfgang
So gehts... ! -)
30.01.2019 19:55:51
wolfgang
Hallo Mullit,
so gehts :
ActiveSheet.Shapes("Textfeld14").Visible = False
MsgBox "wieder einblenden"
ActiveSheet.Shapes("Textfeld14").Visible = True
mfg
wolfgang
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Textfeld in Excel nicht anklickbar machen


Schritt-für-Schritt-Anleitung

Um ein Textfeld in Excel nicht anklickbar zu machen, kannst Du folgende Schritte befolgen:

  1. Formular-Box verwenden: Stelle sicher, dass Du eine Formular-Box und keine ActiveX-Box verwendest, da Formular-Boxen einfacher zu handhaben sind.

  2. Makro erstellen: Öffne den VBA-Editor (ALT + F11) und erstelle ein neues Modul.

  3. Code einfügen: Verwende den folgenden Code, um das Textfeld zu sperren:

    Option Explicit
    Public Sub SperreTextfeld()
        With ActiveSheet
            .UsedRange.Locked = False
            .Shapes("Textfeld1").Locked = True
            Call .Protect
        End With
    End Sub
  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um das Textfeld zu sperren. Jetzt lässt sich das Textfeld nicht mehr anklicken und auch nicht mehr bearbeiten.


Häufige Fehler und Lösungen

  • Fehler: Laufzeitfehler 438
    Dies geschieht häufig, wenn Du versuchst, ein Shape oder ein Textfeld mit einem falschen Namen zu sperren. Überprüfe den Namen des Textfeldes und stelle sicher, dass er korrekt im Code angegeben ist.

  • Problem mit ActiveX-Box
    Wenn Du eine ActiveX-Box verwendest, kannst Du sie nicht über das gleiche Verfahren sperren. Stattdessen solltest Du den Code für ActiveX-Boxen verwenden:

    ActiveSheet.TextBox1.Enabled = False

Alternative Methoden

Wenn Du das Textfeld nicht vollständig sperren möchtest, gibt es alternative Methoden:

  • Sichtbarkeit ändern: Du kannst das Textfeld einfach unsichtbar machen, wenn es nicht genutzt werden soll:

    ActiveSheet.Shapes("Textfeld14").Visible = False
  • Blattschutz aktivieren: Aktiviere den Blattschutz, um zu verhindern, dass Benutzer das Textfeld anklicken oder ändern. Stelle sicher, dass die relevanten Zellen vorher entsperrt sind.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du Textfelder in Excel anpassen kannst:

  1. Textfeld unsichtbar machen:

    ActiveSheet.Shapes("Textfeld14").Visible = False
    MsgBox "Das Textfeld wurde ausgeblendet."
  2. Textfeld bei Bedarf wieder einblenden:

    ActiveSheet.Shapes("Textfeld14").Visible = True
    MsgBox "Das Textfeld ist jetzt sichtbar."

Tipps für Profis

  • Verwende Kommentare im Code: Füge Kommentare in Deinen VBA-Code ein, um später zu verstehen, was jeder Teil des Codes bewirken soll.

  • Teste den Code: Teste Deinen Code in einer Kopie Deiner Excel-Datei, um keine wichtigen Daten zu verlieren.

  • Verwaltung von Makros: Halte Deine Makros organisiert und benenne sie klar, damit Du sie leicht wiederfinden und anpassen kannst.


FAQ: Häufige Fragen

1. Wie kann ich ein Textfeld wieder anklickbar machen?
Du kannst das Textfeld wieder anklickbar machen, indem Du den Lock-Wert auf False setzt und den Blattschutz aufhebst.

2. Warum funktionieren meine Änderungen nicht?
Stelle sicher, dass Du den richtigen Namen für das Textfeld verwendest und dass der Blattschutz nicht aktiv ist, wenn Du Änderungen vornimmst.

3. Gibt es eine Möglichkeit, die Textfelder nur für bestimmte Benutzer nicht anklickbar zu machen?
Ja, Du kannst dies über Berechtigungen und den Blattschutz steuern, indem Du bestimmte Zellen und Formen entsperrst oder sperrst.

Mit diesen Anleitungen und Tipps solltest Du in der Lage sein, Textfelder in Excel effektiv zu verwalten und ihre Interaktivität zu steuern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige