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

TextBox-Inhalt in anderes Tabellenblatt kopieren

Forumthread: TextBox-Inhalt in anderes Tabellenblatt kopieren

TextBox-Inhalt in anderes Tabellenblatt kopieren
14.12.2004 15:26:41
André
Hallo liebe Excel-Gemeinde,
ich habe folgendes Problem:
Aus einem TextBox-Feld soll der Inhalt (Text) in ein anderes Tabellenblatt in eine bestimmte Zelle automatisch (Echtzeit, sofern möglich)kopiert werden - wie mach ich das ?
Beste Grüße und vielen Dank im voraus für Eure Hilfe
André
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox-Inhalt in anderes Tabellenblatt kopieren
14.12.2004 18:26:49
Christoph M
Hi André,
füge zB. in Tabelle1 eine TextBox ein aus der Symbolleiste "Steuerelement-Toolbox"
Doppelklick (solange du noch im Bearbeitungsmodus bist) auf diese Textbox öffnet den VBA-Editor:
hier den folgenden Code einfügen:

Private Sub TextBox1_Change()
Sheets("Tabelle2").Range("A1") = TextBox1
End Sub

alle Änderungen aus Textbox1 werden in Tab2, Zelle A1 geschrieben
Gruß
Christoph
Anzeige
AW: TextBox-Inhalt in anderes Tabellenblatt kopieren
15.12.2004 08:43:22
André
Hallo Christoph,
ersteinmal vielen Dank - leider komme ich heute erst später dazu, Deinen Tipp auszuprobieren. Ich werde zu einem späteren Zeitpunkt nochmals mich melden.
Gruß
André
;

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

TextBox-Inhalt in ein anderes Tabellenblatt kopieren


Schritt-für-Schritt-Anleitung

Um den Inhalt einer TextBox in ein anderes Tabellenblatt zu kopieren, folge diesen Schritten:

  1. TextBox einfügen: Öffne Excel und füge in Tabelle1 eine TextBox aus der Symbolleiste "Steuerelement-Toolbox" ein.

  2. VBA-Editor öffnen: Doppelklicke auf die TextBox, während du im Bearbeitungsmodus bist. Dadurch öffnet sich der VBA-Editor.

  3. Code einfügen: Kopiere den folgenden VBA-Code und füge ihn in den Editor ein:

    Private Sub TextBox1_Change()
       Sheets("Tabelle2").Range("A1") = TextBox1
    End Sub
  4. Speichern: Schließe den VBA-Editor und speichere die Datei als Excel-Makro-fähige Arbeitsmappe (*.xlsm).

  5. Testen: Gib in die TextBox etwas ein. Der Text sollte automatisch in die Zelle A1 von Tabelle2 übernommen werden.


Häufige Fehler und Lösungen

  • Fehler: Die TextBox aktualisiert den Text in Tabelle2 nicht.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und die Arbeitsmappe als *.xlsm gespeichert ist.
  • Fehler: Die TextBox wird nicht angezeigt.

    • Lösung: Prüfe, ob du im richtigen Modus bist. Du musst im Bearbeitungsmodus der Steuerelemente sein, um die TextBox zu sehen.

Alternative Methoden

Wenn du keinen VBA-Code verwenden möchtest, kannst du auch Formeln nutzen, um Text aus einem anderen Tabellenblatt zu übernehmen. Hier ist eine einfache Methode:

  1. Gehe zu Tabelle2, wähle die Zelle A1 aus.
  2. Tippe die folgende Formel ein:

    =Tabelle1!TextBox1.Value

Diese Methode funktioniert jedoch nur, wenn die TextBox als verknüpfter Zellbereich definiert ist.


Praktische Beispiele

Angenommen, du hast in Tabelle1 eine TextBox erstellt, in die du Namen eingibst. Mit dem oben beschriebenen VBA-Code wird der eingegebene Name in Echtzeit in die Zelle A1 von Tabelle2 kopiert. Dies ist besonders nützlich, wenn du Daten schnell in ein anderes Tabellenblatt übertragen möchtest, ohne manuell kopieren und einfügen zu müssen.


Tipps für Profis

  • Echtzeit-Updates: Um Echtzeit-Updates zu gewährleisten, stelle sicher, dass die TextBox im Bearbeitungsmodus bleibt, während du Daten eingibst.
  • Datenüberprüfung: Implementiere einfache Datenüberprüfungen im VBA-Code, um sicherzustellen, dass nur gültige Eingaben in Tabelle2 gelangen.
  • Verwendung mehrerer TextBoxen: Du kannst mehrere TextBoxen erstellen und den VBA-Code entsprechend anpassen, um verschiedene Zellen in Tabelle2 zu aktualisieren.

FAQ: Häufige Fragen

1. Wie kann ich den Text in eine andere Zelle kopieren?
Ändere einfach die Zellreferenz im VBA-Code. Zum Beispiel:

Sheets("Tabelle2").Range("B1") = TextBox1

2. Funktioniert dies auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst Excel auf deinem Desktop verwenden, um diese Funktionalität zu nutzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige