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

Inhalt von TextBox kopieren

Forumthread: Inhalt von TextBox kopieren

Inhalt von TextBox kopieren
09.05.2008 11:25:19
TextBox
Hallo!
Ich möchte mittels CommandButton den Eintrag einer TextBox in die Zwischenablage kopieren. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt von TextBox kopieren
09.05.2008 11:28:34
TextBox
Hi Josef,
So: 

TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy


GreetZ Renée
P.S. 1:1 aus der VB-Hilfe!

AW: Inhalt von TextBox kopieren
09.05.2008 11:33:00
TextBox
Hallo Renee!
Danke für Deine Hilfe. Ich wünsche noch schöne Feiertage.
Josef

Anzeige
AW: Inhalt von TextBox kopieren
09.05.2008 11:41:33
TextBox
Hi Josef,
in einem allgemeinen Modul

Option Explicit
Public doInhalt As DataObject   ' Variable für die Objektübergabe an die Zwischenablage


und für den CommandButton


Private Sub CommandButton1_Click()
Set doInhalt = New DataObject
doInhalt.SetText TextBox1.Text
doInhalt.PutInClipboard
Me.Hide
End Sub



Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Inhalt von TextBox kopieren

Schritt-für-Schritt-Anleitung

Um den Inhalt eines Textfeldes in Excel zu kopieren, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den Visual Basic-Editor:

    • Drücke ALT + F11, um den Editor zu öffnen.

  2. Füge ein UserForm hinzu:

    • Klicke mit der rechten Maustaste im Projektfenster auf dein Projekt und wähle Einfügen > UserForm.

  3. Füge ein TextBox und einen CommandButton hinzu:

    • Ziehe ein Textfeld (TextBox) und einen Button (CommandButton) auf die UserForm.

  4. Füge den folgenden VBA-Code zum CommandButton hinzu:

    Private Sub CommandButton1_Click()
   Dim doInhalt As New MSForms.DataObject
   doInhalt.SetText TextBox1.Text
   doInhalt.PutInClipboard
   Me.Hide
End Sub

  5. Füge den folgenden Code in das allgemeine Modul ein:

    Option Explicit
Public doInhalt As DataObject   ' Variable für die Objektübergabe an die Zwischenablage

  6. Starte das UserForm:

    • Du kannst das UserForm nun anzeigen, um den Inhalt des Textfeldes zu kopieren.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Stelle sicher, dass Du die Microsoft Forms 2.0 Object Library referenziert hast. Gehe zu Extras > Verweise im VBA-Editor und aktiviere das Kontrollkästchen.

  • Problem: Text wird nicht in die Zwischenablage kopiert

    • Überprüfe, ob die DataObject-Variable korrekt deklariert ist und ob Du die richtigen Bibliotheken verwendest.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

  • Manuelles Kopieren: Markiere den Text im Textfeld und drücke Strg + C, um den Inhalt zu kopieren.

  • Verwendung von Excel-Funktionen: Du könntest auch den Inhalt des Textfeldes in eine Zelle kopieren und dann die Zelle kopieren.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du mit dem Code den Inhalt eines Textfeldes kopierst:

  1. Erstelle ein Textfeld mit dem Namen TextBox1.
  2. Klicke auf den CommandButton, nachdem Du Text eingegeben hast.
  3. Überprüfe, ob der Text in der Zwischenablage ist, indem Du ihn in ein anderes Dokument einfügst.

Tipps für Profis

  • Verwende Application.CutCopyMode: Nach dem Kopieren des Textes kannst Du Application.CutCopyMode = False verwenden, um den Kopiermodus zu beenden.

  • Fehlerbehandlung einbauen: Implementiere eine Fehlerbehandlung im VBA-Code, um Probleme beim Kopieren zu erkennen und den Benutzer zu informieren.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Inhalt eines Textfeldes in eine Zelle kopieren?
Antwort: Du kannst den Text einfach so zuweisen: Range("A1").Value = TextBox1.Text.

2. Frage
Welche Excel-Version benötige ich für die Verwendung von VBA?
Antwort: VBA ist in Excel-Versionen ab 2000 verfügbar, aber für die besten Ergebnisse empfehle ich eine neuere Version wie Excel 2016 oder höher.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige