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

Forumthread: Aus der Tabelle in die TextBox übernehmen!

Aus der Tabelle in die TextBox übernehmen!
04.08.2005 14:25:44
Wuntschi
Hallo an alle,
wie kann man ein Zellen inhalt einer Tabelle in einer TextBox zuordnen?
wo soll ich diesen Code denn eingeben!
Wenn ich ein UserForm starte möchte ich gerne
das dieser Text in die TextBox übernommen wird.
und später auch wieder in die Tabelle übernommen wird
wenn der Text geändert wird.
Gruß
Wuntschi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus der Tabelle in die TextBox übernehmen!
04.08.2005 14:48:37
Erich
textbox anklicken, auf eigenschaften, unter Linkedcell gibst du die zelle ein
gruß
erich
AW: Aus der Tabelle in die TextBox übernehmen!
04.08.2005 14:57:09
Wuntschi
Hallo,
wie sage ich ihm welches Tabellenblatt gemeint ist?
Wann über nimmt er den Wert dann immer?
gruß
wuntschi
AW: Aus der Tabelle in die TextBox übernehmen!
04.08.2005 15:35:43
Leo
Hi,
in die Eigenschaft ControlSource der Textbox den Bezug eingeben:
Tabelle1!A1
mfg Leo
Anzeige
AW: Aus der Tabelle in die TextBox übernehmen!
04.08.2005 15:36:43
Beni
Hallo Wuntschi,
füge diesen Code direkt in die UserForm ein.
Gruss Beni

Private Sub UserForm_Initialize()
With Sheets("Tabelle1")
TextBox1.Value = Range("A1")
End With
End Sub

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Daten aus einer Tabelle in eine TextBox übernehmen


Schritt-für-Schritt-Anleitung

  1. UserForm erstellen:

    • Öffne Excel und gehe zu den Entwicklertools. Klicke auf "Visual Basic" und erstelle eine neue UserForm.
  2. TextBox hinzufügen:

    • Ziehe eine TextBox aus der Toolbox auf die UserForm.
  3. Eigenschaften einstellen:

    • Klicke auf die TextBox, gehe zu den Eigenschaften und setze die ControlSource auf den Zellbezug, z.B. Tabelle1!A1. Dies sorgt dafür, dass die TextBox mit der Zelle A1 des Tabellenblatts „Tabelle1“ verknüpft wird.
  4. Code einfügen:

    • Füge den folgenden VBA-Code in die UserForm ein, um den Wert beim Start der UserForm zu übernehmen:
    Private Sub UserForm_Initialize()
       With Sheets("Tabelle1")
           TextBox1.Value = Range("A1")
       End With
    End Sub
  5. Änderungen zurückspeichern:

    • Um Änderungen, die du in der TextBox vornimmst, wieder in die Tabelle zu übertragen, kannst du den folgenden Code in das TextBox-Ereignis Change einfügen:
    Private Sub TextBox1_Change()
       Sheets("Tabelle1").Range("A1").Value = TextBox1.Value
    End Sub
  6. UserForm testen:

    • Starte die UserForm und teste, ob die Daten korrekt übernommen und zurückgeschrieben werden.

Häufige Fehler und Lösungen

  • Fehler: TextBox bleibt leer.

    • Lösung: Überprüfe, ob der ControlSource korrekt gesetzt ist. Vergiss nicht, dass das Tabellenblatt genau so benannt sein muss, wie du es im Code angegeben hast.
  • Fehler: Änderungen werden nicht in die Tabelle übernommen.

    • Lösung: Stelle sicher, dass der Change-Ereignis für die TextBox korrekt implementiert ist.

Alternative Methoden

  • Verwendung von LinkedCell:

    • Du kannst die Eigenschaft LinkedCell der TextBox nutzen, um eine direkte Verbindung zu einer Zelle herzustellen. Gib einfach den Zellbezug in die Eigenschaften der TextBox ein, z.B. Tabelle1!A1.
  • Datenübertragung durch Schaltflächen:

    • Anstatt die Daten automatisch zu übernehmen, kannst du auch eine Schaltfläche hinzufügen, die die Werte beim Klicken überträgt.

Praktische Beispiele

  • Beispiel 1: Übernahme von Daten aus Zelle B2 in TextBox2.

    Private Sub UserForm_Initialize()
      TextBox2.Value = Sheets("Tabelle1").Range("B2").Value
    End Sub
  • Beispiel 2: Rückübertragung von Änderungen in Zelle C3.

    Private Sub TextBox2_Change()
      Sheets("Tabelle1").Range("C3").Value = TextBox2.Value
    End Sub

Tipps für Profis

  • Nutze die Eigenschaften der TextBox, um die Benutzeroberfläche zu verbessern, z.B. durch Anpassung der Schriftarten oder Farben.
  • Experimentiere mit weiteren Ereignissen der TextBox wie Exit, um zusätzliche Validierungen durchzuführen, bevor die Daten in die Tabelle geschrieben werden.
  • Verwende Datenüberprüfungen in der Excel-Tabelle, um sicherzustellen, dass die Benutzer korrekte Werte in die TextBox eingeben.

FAQ: Häufige Fragen

1. Wie kann ich einen anderen Zellbezug verwenden? Du kannst den Zellbezug in der ControlSource oder im Code anpassen, z.B. Tabelle1!B2 statt Tabelle1!A1.

2. Kann ich mehrere TextBoxen verwenden? Ja, du kannst beliebig viele TextBoxen erstellen und jede mit verschiedenen Zellbezügen verknüpfen.

3. Was mache ich, wenn der Code nicht funktioniert? Überprüfe, ob du die richtigen Referenzen für das Tabellenblatt und die Zellen angegeben hast. Achte auch auf mögliche Tippfehler im Code.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige