Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
String aus Zelle in Textboxen aufsplitten
12.05.2006 13:15:11
Psus82
Tach zusammen,
ich habe eine Zelle (13,1) deren Inhalt immer dieses Schema hat:
12bla-12bla-12bla-12bla
(Text kann unterschiedlich lang sein ist aber immer mit nem "-" getrennt)
Nun möchte ich diesen String aufsplitten und in vier Textboxen in einer Userform schreiben.
Die Textboxen haben unterschiedliche Namen und der Inhalt soll dann so aussehen:
Textbox1 = "12bla"
Textbox2 = "12bla"
.
.
.
Mein Codeteil dafür sieht so aus.
Nur leider funktioniert der nicht.
Sub FillEditmask()
Dim SRow As Integer
Dim Namecomp1 As String
Dim strArray As Variant
Dim AssemblyDyxcomp1 As String
Dim strArray2 As Variant
On Error GoTo Ende
If Selection.Row "größer gleich" 20 Then
SRow = Selection.Row
Namecomp1 = ThisWorkbook.Sheets(1).Range("A" & SRow).Value
strArray = Split(Namecomp1, "-")
UserForm2.EName1.Text = strArray(1)
UserForm2.EName2.Text = strArray(2)
AssemblyDyxcomp1 = ThisWorkbook.Sheets(1).Range("B" & SRow).Value
strArray2 = Split(AssemblyDyxcomp1, "-")
UserForm2.EAssemblyDyx.Text = strArray2(1)
UserForm2.EAssemblyDyx2.Text = strArray2(2)
UserForm2.EAssemblyDyx3.Text = strArray2(3)
UserForm2.EAssemblyDyx4.Text = strArray2(4)"
Habe "größergleich" geschrieben weil er die Zeichen hier nicht annehemen wollte weil er sie für HTML Tags hält.
Danke im Vorraus.
Greetz
Psus82

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

Betreff
Datum
Anwender
Anzeige
AW: String aus Zelle in Textboxen aufsplitten
12.05.2006 13:17:49
Psus82
Das mit der Zelle war natürlich nur ein Beispiel wie man an meinem Code erkennt.
AW: String aus Zelle in Textboxen aufsplitten
12.05.2006 13:33:42
u_
Hallo,
die Arrays sind 0-Basiert!
UserForm2.EAssemblyDyx.Text = strArray2(0)
etc.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige