Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert aus Zelle in Textbox schreiben

Forumthread: Wert aus Zelle in Textbox schreiben

Wert aus Zelle in Textbox schreiben
29.08.2019 13:49:54
Dominik
Hallo zusammen,
suche dringend hilfe bei einem vba problem. in tabelle 1 in Spalte A stehen nummern, wenn ich jetzt eine nummer anklicke soll der vba code die nummer in tabelle 2 in spalte b suchen, wenn er sie gefunden hat soll eine userform geöffnet werden und die textbox 2 soll mit dem wert aus zeile 3 befüllt werden die textbox3 mit dem wert aus zeile 4 usw. ist das möglich.
vielen dank für eure Hilfe
Gruß dominik
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispielmappe bitte hochladen. o.w.T.
29.08.2019 13:56:36
Werner
AW: Wert aus Zelle in Textbox schreiben
29.08.2019 15:05:57
Beverly
Hi Dominik,
vom Prinzip her so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngZelle As Range
If Target.Column = 1 Then
Set rngZelle = Worksheets("Tabelle2").Find(Target.Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Cancel = True
'
Allerdings würde ich das Doppelcklick-Ereignis verwenden und nicht den Klick in die Zelle.
Außerdem ist mir unkler, was du mit "und die textbox 2 soll mit dem wert aus zeile 3 befüllt werden die textbox3 mit dem wert aus zeile 4 usw." meinst - was ist Zeile 3 und was ist Zeile 4, also welche Spalte und welches Tabellenblatt?

Anzeige
AW: Wert aus Zelle in Textbox schreiben
29.08.2019 17:17:16
Dominik
hallo karin danke schonmal für dein rückmeldung.
in tabellenblatt 1 klicke ich auf bestimmte kundennummern, diese befinden sich auch in tabellenblatt 2. wenn man jetzt einen doppelklick auf die kundennummer macht, soll sich eine userform öffnen in deren textboxen jetzt die kundendaten wie name, Str., PLz, Ort aus tabellenblatt 2 übernommen werden. also bsp. klicke ich in tabelle 1 auf a5 und da steht die kundennummer 1033 diese steht in tabelle 2 in a50 und in b50 steht der name, c50 die straße usw. und wenn er die kundennummer gefunden hat soll er die wert aus tabelle2 b50, c50 usw in die textbox 2, textbox 3 usw schreiben.
hoffe das ist verständlich. kannst du mir nochmal das fertige makro dann schicken? vielen dank
gruß dominik
Anzeige
AW: Wert aus Zelle in Textbox schreiben
29.08.2019 18:19:57
Beverly
Hi Dominik,
hier der Code mit einigen Kommentaren damit du weißt was er macht:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngZelle As Range
' Doppelklick in Spalte A
If Target.Column = 1 Then
' suche in Tabelle2 Spalte A den Inhalt aus Zelle mit Doppelklick
Set rngZelle = Worksheets("Tabelle2").Columns(1).Find(Target.Value, lookat:=xlWhole)
' wurde gefunden
If Not rngZelle Is Nothing Then
Cancel = True
' TextBox1 = 1 Zelle rechts neben der gefundenen Zelle
UserForm1.TextBox1 = rngZelle.Offset(0, 1)
' TextBox2 = 2 Zellen rechts neben der gefundenen Zelle
UserForm1.TextBox2 = rngZelle.Offset(0, 2)
' TextBox3 = 3 Zellen rechts neben der gefundenen Zelle
UserForm1.TextBox3 = rngZelle.Offset(0, 3)
UserForm1.Show
End If
End If
End Sub

Anzeige
AW: Wert aus Zelle in Textbox schreiben
29.08.2019 18:31:17
Dominik
vielen dank karin, es funktioniert perfekt genau das was ich gesucht habe :D
gruß dominik
AW: Wert aus Zelle in Textbox schreiben
30.08.2019 12:55:30
Dominik
hallo Karin,
ist dieser code auch umgekehrt möglich? sprich nach dem in der textbox1 mehrere zellen stehen, kann man diese auch wieder zurück in die einzelnen zellen schreiben. das man quasi in der textbox1 nach absätzen sucht und jeden absatz in eine andere zelle schreibt.
gruß dominik
Anzeige
Wie meinst du das...
30.08.2019 14:52:53
Beverly
Hi Dominic,
..."nachdem in der textbox1 mehrere zellen stehen"? Dort steht doch der Inhalt aus nur EINER Zelle.

AW: Wie meinst du das...
01.09.2019 19:31:54
Dominik
hallo karin,
da stehen die werte aus zelle a1,b1,c1 drinne......aber ich habe online was gefunden was mir weitergeholfen hat ,trotzdem danke.
gruß dominik
Anzeige
AW: Wie meinst du das...
01.09.2019 21:42:59
Beverly
Hi Dominik,
wenn du eine Lösung gefunden hast dann poste sie bitte auch, damit alle Forumsbenutzer davon profitieren können.

;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
RE: Werte in bestimmte Zelle schreiben
Jara

Hi,
keine Ahnung wie man auf Forenbeiträge antwortet. Irgendwie etwas merkwürdig gemacht :) Deshalb sorry wenn ich ein neuen Thread aufmache.
Ich bekomme bei folgender Zeile folgende Fehlermeldung:
lngZ = Application.Max(19, .Cells(.Rows.Count, 2).End(xlUp).Row + 1) _
.Cells(lng...
17.07.2009 10:15:55
Thread-ID: 1089299
3 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
habe eine Excelmappe mit 2Tabellenblätter.
Nun möchte ich in der ersten Tabelle im Bereich von A5:J30 Daten eingeben.
Wenn ich jetzt in der zweiten Tabelle im Bereich A5:J30 Daten eingebe sollen diese
in dem Bereich der ersten Tabelle eingefügt werden mit einer anderen S...
05.11.2009 22:04:42
Thread-ID: 1114846
7 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
möchte gerne Werte im Bereich D20:F23 eingeben. Wenn in einer dieser Zellen ein Wert vorhanden ist,
so soll dieser in den Bereich A1:C23 eingetragen werden. Wenn kein Wert im Bereich D20:F23 vorhanden ist
möchte ich im Bereich A1:C23 Werte eingeben können ohne das diese mit N...
17.11.2009 00:40:54
Thread-ID: 1117756
7 Beiträge
Wert einer Formel in eine Zelle schreiben
Herbert

Gibt es in Excel eine Funktion, mit welcher ich das Ergebnis einer Formel in eine Zelle schreiben kann, sodaß der Anwender in dieser Zelle auch manuelle Einträge machen kann ohne dass er eine Formel überschreibt:
Beispiel:"schreibe" in G4 den Inhalt von sverweis(A4;Matrix;2;FALSCH)2. Problem...
10.04.2002 17:09:35
Thread-ID: 112192
2 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
VBA: "alter" Wert einer Zelle
Jonathan

Hallo zusammen!
Beim Ändern einer Zelle möchte ich per VBA abfragen, ob vor der aktuellen Eingabe bereits ein Wert in der Zelle stand.
Wie kann ich dies elegant lösen?
Danke an alle Hilfe leistenden!
LG
23.02.2010 12:00:15
Thread-ID: 1140631
4 Beiträge
Anzeige
vba: nur die werte aus einer zelle ausschneiden
mike

sanfte grüße @all,
ich hätt gern mal folgendes problem:
ich möchte mir ne schaltfläche basteln, die bei aktivierung nur den inhalt aus zelle a1 ausschneidet, und dann in zelle b1 einfügt. sprich: die formatierung (farbe, rahmen, datentyp, usw..) soll von der aktion unberührt bleiben.
25.02.2010 07:16:11
Thread-ID: 1141297
4 Beiträge
Anzeige
UserForm TextBox - Werte aus Zelle
touchmarul

.... da beiß ich mir doch die Zähne aus. Irgendetwas mache ich falsch !
In meiner UserForm blabla möchte ich, dass in der TextBox1 der Wert aus einer Zelle / einem Range erscheint:
TextBox1 = Range("Ergebnis1")
UserForm_blabla.Show
(in "Ergebnis1" steht Text) Bestimmt irgend ei...
02.07.2010 23:34:38
Thread-ID: 1165232
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Wert aus Zelle in Textbox schreiben

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei und stelle sicher, dass du zwei Tabellenblätter hast: Tabelle1 und Tabelle2.

  2. Füge eine UserForm hinzu:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen > UserForm.
    • Füge drei TextBoxen (TextBox1, TextBox2, TextBox3) zur UserForm hinzu.

  3. Füge den folgenden VBA-Code in das Codefenster von Tabelle1 ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim rngZelle As Range
   ' Doppelklick in Spalte A
   If Target.Column = 1 Then
       ' Suche in Tabelle2 Spalte A den Inhalt aus Zelle mit Doppelklick
       Set rngZelle = Worksheets("Tabelle2").Columns(1).Find(Target.Value, lookat:=xlWhole)
       ' Wurde gefunden
       If Not rngZelle Is Nothing Then
           Cancel = True
           ' TextBox1 = 1 Zelle rechts neben der gefundenen Zelle
           UserForm1.TextBox1 = rngZelle.Offset(0, 1).Value
           ' TextBox2 = 2 Zellen rechts neben der gefundenen Zelle
           UserForm1.TextBox2 = rngZelle.Offset(0, 2).Value
           ' TextBox3 = 3 Zellen rechts neben der gefundenen Zelle
           UserForm1.TextBox3 = rngZelle.Offset(0, 3).Value
           UserForm1.Show
       End If
   End If
End Sub

  4. Teste den Code: Kehre zu Excel zurück und doppelklicke auf eine Kundennummer in Tabelle1. Die UserForm sollte sich öffnen und die TextBoxen mit den entsprechenden Werten aus Tabelle2 befüllen.

Häufige Fehler und Lösungen

  • Fehler: UserForm öffnet sich nicht: Überprüfe, ob der Doppelklick auf die richtige Spalte (Spalte A) erfolgt.
  • Fehler: TextBoxen bleiben leer: Stelle sicher, dass die Suchwerte in Tabelle2 vorhanden sind und die Werte in den rechten Zellen stehen.
  • Fehler: Object variable or With block variable not set: Dies kann auftreten, wenn die gesuchte Nummer nicht gefunden wird. Stelle sicher, dass die Nummern übereinstimmen.

Alternative Methoden

Wenn du den Wert aus einer TextBox zurück in eine Zelle schreiben möchtest, kannst du den folgenden Code verwenden:

Private Sub CommandButton1_Click()
    Worksheets("Tabelle1").Range("A1").Value = UserForm1.TextBox1.Value
    Worksheets("Tabelle1").Range("B1").Value = UserForm1.TextBox2.Value
    Worksheets("Tabelle1").Range("C1").Value = UserForm1.TextBox3.Value
End Sub

Füge diesen Code in die UserForm ein und verknüpfe ihn mit einem CommandButton.

Praktische Beispiele

  • Beispiel 1: Wenn du in Tabelle1 die Kundennummer 1033 in Zelle A5 hast und diese in Tabelle2 in A50 gefunden wird, wird die UserForm geöffnet und die TextBoxen werden wie folgt befüllt:

    • TextBox1 mit dem Namen aus B50
    • TextBox2 mit der Straße aus C50
    • TextBox3 mit der PLZ aus D50

  • Beispiel 2: Wenn du mehrere Werte in TextBox1 hast und diese in Zellen aufteilen möchtest, kannst du den Text in TextBox1 nach Absätzen splitten und in die Zellen schreiben.

Tipps für Profis

  • Nutze benannte Bereiche in Excel, um den Code flexibler zu gestalten.
  • Implementiere Fehlerbehandlung im VBA-Code, um Abstürze zu vermeiden.
  • Experimentiere mit VBA-Formularen und verschiedenen Steuerelementen, um die Benutzeroberfläche zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich den Wert aus der TextBox in eine Zelle schreiben?
Verwende den Code zum Schreiben in die Zelle, den ich im Abschnitt "Alternative Methoden" beschrieben habe.

2. Kann ich mehrere Werte aus einer TextBox in verschiedene Zellen aufteilen?
Ja, du kannst den Text in der TextBox nach einem bestimmten Trennzeichen aufteilen und in die gewünschten Zellen schreiben.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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