Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übernehmen bis zum Trennzeichen

Übernehmen bis zum Trennzeichen
21.10.2004 15:12:33
Frank
Hallo Excelperten!
Ist es möglich, folgendes in UserForm zu realisieren? Beispiel: In Zelle A1 steht folgendes: "Peter, Müller, München, 96253" etc. Nun möchte ich die Werte gerne getrennt in Textboxen einer Userform übernehmen. Also in Textbox1 sollte Peter stehen, in Textbox2 Müller usw. Ist sowas mit Excel machbar, auch für größere Tabellen mit ein paar hundert Einträgen? Vielleicht hat ja jemand von Euch eine Idee.
Irgendwie so...
UserForm1.Textbox1.Value = Tabelle1.Range("A1").Value (bis zum Komma?)
UserForm1.Textbox2.Value = Tabelle1.Range("A1").Value (zwischen Komma 1 und Komma 2)
usw.
MfG
Frank

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

Betreff
Datum
Anwender
Anzeige
AW: Übernehmen bis zum Trennzeichen
ChrisL
Hi Frank
Irgendwie so... ;-)

Private Sub CommandButton1_Click()
Dim strText As String
strText = "Peter, Müller, München, 96253"
TextBox1 = Left(strText, InStr(strText, ",") - 1)
strText = Right(strText, Len(strText) - InStr(strText, ","))
TextBox2 = Left(strText, InStr(strText, ",") - 1)
strText = Right(strText, Len(strText) - InStr(strText, ","))
TextBox3 = Left(strText, InStr(strText, ",") - 1)
strText = Right(strText, Len(strText) - InStr(strText, ","))
TextBox4 = strText
End Sub

Gruss
Chris
AW: Übernehmen bis zum Trennzeichen
21.10.2004 15:52:44
Frank
Hallo Chris,
das ist exakt das, was ich erreichen wollte! Vielen Dank!!! Ich verstehe es zwar noch nicht ganz, aber es funktioniert... einfach klasse!
Gruß
Frank
Anzeige

302 Forumthreads zu ähnlichen Themen

Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
Anzeige
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Automatisches Auslesen von Teilnehmerlisten
Teilnehmerlisten

Hallo,
nachdem mir hier so nett, schnell und kompetent geholfen wurde, traue ich mich mit meiner nächsten Frage an den Start und hoffe das es für mein Problem auch eine Lösung gibt.
Ich bekomme Teilnehmerlisten in denen Teilnehmer und Kurse bunt gemixt sind wie in der Beispiel-Datei zu...
26.08.2009 17:19:14
Thread-ID: 1098835
4 Beiträge
Zeichenfolge in einem String färben
Mandy

Hi,
ich habe eine Spalte mit viele Zellen und Text. Nun möchte ich innerhalb der Spalte alle Zellen durchlaufen und alle Zeichenfolgen "###" rot färben.
Wie kann ich denn das mit einem Makro machen.
Danke
Mandy
15.09.2009 09:59:36
Thread-ID: 1102845
13 Beiträge
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge

Links zu Excel-Dialogen

CommandButton TextBox

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
20
7
3
5
13
4
14
3
12
2
7
7
13
3
3
5
3
2
1
6
11
3
1
5
9