Office: Inhalt einer TextBox mittels VBA markieren

User · 9. Oktober 2004

Hallo Ihr,

ich lege den Focus auf eine TextBox und möchte dann deren Inhalt markieren.

Vielen Dank
Matthias

TextBox.SetFocus
TextBox. .....

:)

User · 11. Oktober 2004

Hallo Matthias

Code:

Private Sub UserForm_Activate()
TextBox1 = "Test"
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem NT4SP6 und Excel Version 2000 SP3

Kimoel · 23. November 2014

Hallo zusammen,
ich habe eine Frage, ich möchte gerne alle Textbox's per command B. Markieren und in Zwischenablage kopieren, geht das? und wie? :-) Vielen Dank im Voraus

Hajo_Zi · 23. November 2014

warum muss man so einen alten Beitrag wieder aktivieren, wenn es um ein anders Problem geht?
Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim objCache As New DataObject
objCache.SetText TextBox1
objCache.PutInClipboard

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kimoel · 23. November 2014

Erstmal Vielen Dank für die Antwort.
sorry bin neu hier und hatte keine Ahnung wie ich meine Frage stellen kann.
Ich habe den Code eingegeben funk. aber nicht!!

Hajo_Zi · 23. November 2014

dazu kann ich nichts schreiben was wohl daran liegt das ich die Datei nicht sehe. In meiner Datei geht es.

Kimoel · 23. November 2014

:-) und wie kann ich Ihnen die Datei zeigen? ist mein erstes und ich habe echt kaum Erfahrung damit.
vielen Dank für Ihren Geduld mit mir.
Gruß Rudi

Kimoel · 24. November 2014

Hier ist die Datei.

Hajo_Zi · 24. November 2014

Hallo Rudi,

benutze nicht die Kurzantwort, sondern Erweitert. dort Anhänge verwalten.
Es ging nur darum in Zwischenablage und mit Strg+V dann später einfügen.

Kimoel · 24. November 2014

Ich habe es gerade auch entdeckt, und die Datei gesendet.
ich möchte alle Text Box's markieren und in Zwischenablage kopieren, es sind etwa 17 text Box vorhanden.
Gruß Rudi

Hajo_Zi · 24. November 2014

Hallo Rudi,

auch in Deiner Datei geht der Code.
Vielleicht solltest Du genauer schreiben warum er nicht gehen sollte?

Kimoel · 24. November 2014

es geht nur für Text Box 1, also in Zwischenablage gibt 's nur der Inhalt aus Textbox1.
Ich möchte aber dass alle TEXT BOX's mit ein CommandB. gleichzeitig markiert werden damit ich die später diesen Inhalt in SAP Maske einfügen kann.

Hajo_Zi · 24. November 2014

das mit alle hatte ich überlesen, Du hast die Aufgabe nicht komplett beschrieben, da Du die Lösung selber an Deine Bedingungen anpassen wolltest. Ich habe jetzt die Aufgabe aus Beitrag #3 komplett erfüllt.
Ich bin dann raus, da erledigt.

Code:

Private Sub CommandButton1_Click()
Dim objCache As New DataObject
Dim StrText As String
Dim ObCb As Object
For Each ObCb In Me.Controls
Select Case TypeName(ObCb)
Case "TextBox"
StrText = StrText & ObCb.Value
End Select
Next ObCb
objCache.SetText StrText
objCache.PutInClipboard
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kimoel · 24. November 2014

Vielen Dank Hajo

Office: Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren

Inhalt einer TextBox mittels VBA markieren - Similar Threads - Inhalt TextBox mittels

Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

Inhalt ActiveX TextBox positionieren

Inhalt von Textbox auf Userform in Zahl umwandeln

Inhalt aus textbox in nächste freie Zelle schreiben

Textbox Inhalt von einer Userorm in mehrere Userform kopieren

Inhalt aus mehreren Textboxen in Tabelle suchen und in Listbox ausgeben

Excel VBA Userform Textbox Inhalt variabel