Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.

141 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
30
6
12
2
6
6
1
6
3
3
5
3
2
12
5
4
9
6
2
2
2
4
5