Wie wähle ich automatisch Text eines Textfelds aus, wenn es in Excel ausgewählt wird?
Um Texte in einem Textfeld (ActiveX Control) zu löschen, müssen Sie zunächst alle Texte im Textfeld auswählen. In diesem Artikel wird die automatische Auswahl aller Texte eines Textfelds beim Klicken auf das Textfeld in Excel behandelt.
Automatische Auswahl des Textes eines Textfelds, wenn es mit VBA-Code ausgewählt wird
Automatische Auswahl des Textes eines Textfelds, wenn es mit VBA-Code ausgewählt wird
Bitte wenden Sie den folgenden VBA-Code an, um automatisch alle Texte eines Textfelds auszuwählen, wenn Sie das Textfeld in Excel auswählen.
1. Wenn ein Arbeitsblatt das Textfeld enthält, werden die Texte automatisch ausgewählt. Aktivieren Sie den Entwurfsmodus, indem Sie auf klicken Entwickler:in / Unternehmen > Entwurfsmodus. Siehe Screenshot:
Sie können auch ein Textfeld einfügen, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Textfeld (ActiveX-Steuerelement). Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf das Textfeld und klicken Sie auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
3. In der Öffnung Microsoft Visual Basic für Applikationen Bitte ersetzen Sie den ursprünglichen VBA-Code im Code-Fenster durch den folgenden VBA-Code.
VBA-Code: Wählen Sie beim Klicken automatisch die Texte eines Textfelds aus
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox1.Object)
End Sub
Sub SelTextBox(xTextBox As Object)
With xTextBox
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Notizen:
1. Im Code TextBox1 ist der Name des Textfelds, aus dem Sie Inhalte löschen möchten. Bitte ändern Sie es zu Ihrem eigenen.
2. Um beim Klicken automatisch Texte mehrerer Textfelder auszuwählen, fügen Sie zwischen den beiden Abschnitten im obigen Code den folgenden VBA-Code hinzu. Ändern Sie die TextBox2 in den Namen des gewünschten Textfelds.
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox2.Object)
End Sub
4. Drücken Sie die Taste Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.
5. Schalten Sie den Entwurfsmodus aus.
Wenn Sie von nun an auf das Textfeld klicken, werden alle Texte im Textfeld automatisch ausgewählt.
In Verbindung stehende Artikel:
- Wie vervollständige ich ein Textfeld beim Eingeben in Excel automatisch?
- Wie lösche ich den Inhalt des Textfelds, wenn ich in Excel klicke?
- Wie verkette ich Texte mehrerer Zellen in ein Textfeld in Excel?
- Wie deaktiviere ich die Bearbeitung im Textfeld, um Benutzereingaben in Excel zu verhindern?
- Wie formatiere ich ein Textfeld als Prozentsatz in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!