Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textbox in bestimmte Zelle übertragen

Forumthread: Textbox in bestimmte Zelle übertragen

Textbox in bestimmte Zelle übertragen
12.03.2004 02:57:13
Klaus
Hallo Excel-Profis!
Für Euch sicherlich trivial - für mich als VBA Anfänger ne große Hürde!

Ich bin grad am rumspielen und möchte den Text den ich über eine Userform in eine Textbox geschrieben habe in eine bestimmte Zelle schreiben lassen.
TextBox1.Text=Range("B5").Value
wie ich es im Forum gefunden habe funktioniert so aber nicht!
Es ist bestimmt ne KLeinigkeit aber für einen Anfänger wie mich ein Problem.
Wie bereits erwähnt, ist nur ne kleine Spielerei zum üben!
Danke bereits im Voraus!
Klaus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox in bestimmte Zelle übertragen
12.03.2004 03:02:41
Hans W. Herber
Hallo Klaus,
Dein Code macht genau das umgekehrte. Also in Deinem Fall:
Range("B5").Value = TextBox1.Text
Wenn es sich um einen Zahlenwert handelt:
Range("B5").Value = Cdbl(TextBox1.Text)
Wenn es sich um ein Datum handelt:
Range("B5").Value = Cdate(TextBox1.Text)
gruss hans
Anzeige
Klasse!
12.03.2004 03:10:10
Klaus
Hallo Hans!
Vielen Dank für die schnelle Rückmeldung! Auf Dich ist halt Verlass!
Gruß
Klaus
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Textbox in bestimmte Zelle übertragen


Schritt-für-Schritt-Anleitung

  1. Excel Userform erstellen:

    • Öffne Excel und gehe in den VBA-Editor (Alt + F11).
    • Füge eine Userform hinzu (Rechtsklick im Projektfenster > Einfügen > Userform).
    • Füge eine Textbox (Textbox1) und einen Button (CommandButton1) hinzu.
  2. Code zum Übertragen des Wertes:

    • Doppelklicke auf den Button und füge folgenden Code ein:
      Private Sub CommandButton1_Click()
      Range("B5").Value = TextBox1.Text
      End Sub
  3. Textbox in Zelle schreiben:

    • Jetzt kannst du den Text, den du in die Textbox eingegeben hast, in die Zelle B5 übertragen, indem du auf den Button klickst.
  4. Zahlen oder Datum verarbeiten:

    • Falls du sicherstellen möchtest, dass der Wert als Zahl oder Datum in die Zelle geschrieben wird, kannst du den Code anpassen:
      Private Sub CommandButton1_Click()
      If IsDate(TextBox1.Text) Then
         Range("B5").Value = CDate(TextBox1.Text)
      ElseIf IsNumeric(TextBox1.Text) Then
         Range("B5").Value = CDbl(TextBox1.Text)
      Else
         Range("B5").Value = TextBox1.Text
      End If
      End Sub

Häufige Fehler und Lösungen

  • Fehler: „Typ nicht übereinstimmend“:

    • Stelle sicher, dass die Eingabe in der Textbox dem entsprechenden Datentyp entspricht (Zahl oder Datum).
  • Fehler: Textbox bleibt leer:

    • Überprüfe, ob der Button-Click-Event korrekt verbunden ist und der Code in der richtigen Sub steht.
  • Tipp: Wenn du den Wert aus einer Zelle in die Textbox übernehmen möchtest, kannst du den folgenden Code verwenden:

    Private Sub UserForm_Initialize()
      TextBox1.Text = Range("B5").Value
    End Sub

Alternative Methoden

  • Direktes Einfügen einer Textbox:

    • In Excel kannst du auch eine Textbox direkt auf dem Arbeitsblatt einfügen (Entwicklertools > Einfügen > Textbox).
  • Formel verwenden:

    • Du kannst auch Formeln verwenden, um Werte zwischen Zellen zu übertragen, aber dies ist nicht so flexibel wie VBA.

Praktische Beispiele

  1. Einfaches Beispiel:

    • Du hast eine Userform mit einer Textbox, in die der Benutzer einen Namen eingeben kann. Dieser Name wird dann in die Zelle A1 geschrieben:
      Private Sub CommandButton1_Click()
      Range("A1").Value = TextBox1.Text
      End Sub
  2. Erweiterte Nutzung:

    • Erstelle eine Liste von Werten in einer Userform und lasse die Auswahl in eine Zelle übertragen, indem du eine ComboBox verwendest.

Tipps für Profis

  • Verwende Fehlerbehandlung:

    • Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um unerwartete Eingaben abzufangen.
      On Error GoTo ErrorHandler
      ' Dein Code hier
      Exit Sub
      ErrorHandler:
      MsgBox "Bitte überprüfen Sie Ihre Eingabe."
  • Benutzerfreundlichkeit erhöhen:

    • Füge Beschriftungen und Anweisungen in deiner Userform hinzu, um die Benutzererfahrung zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich den Wert aus einer Zelle in die Textbox übernehmen?
Du kannst den folgenden Code in das UserForm_Initialize-Ereignis einfügen:

TextBox1.Text = Range("B5").Value

2. Kann ich auch mehrere Textboxen verwenden?
Ja, du kannst mehrere Textboxen erstellen und mit ähnlichem Code mehrere Zellen gleichzeitig füllen oder aus ihnen lesen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige