Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textbox mit darin enthaltenen Tabs auslesen

Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 09:40:48
Ecki
Guten Morgen liebe Excel-VBA-Profis

ich habe folgendes Problem:
von einer Tabellenzeile eines anderen Programmes (Navision) kopiere ich folgende Variablen (FID, Name, Vorname, Geburtsdatum), um sie dann in TextBox1 einzufügen:
die Variablen kommen vom Navision mittels Tabulatoren ( - tab- ) getrennt.
Das sieht dann in der TextBox1 so aus:
12345678 Name Vorname 01.01.1980
(12345678 - tab- Name - tab- Vorname - tab- 01.01.1980)

Ich habe die Vatriablen definiert:
Dim FID_Name_Vorname_GebDat As String

Dim FID As String
Dim Name_Vorname As String
Dim GebDat As String
Dim Name_Vorname_GebDat As String

Set frm = UserForm1
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
FID_Name_Vorname_GebDat = .TextBox1.Value
FID = Left(.TextBox1.Value, 8)
GebDat = Right(.TextBox1.Value, 8)
Name_Vorname = Left(FID_Name_Vorname_GebDat, Len(FID_Name_Vorname_GebDat) - 10) 'das stimmt natürlich nicht
Name_Vorname_GebDat = Name_Vorname & ", " & GebDat


Nun möchte ich FID und Geburtsdatum abtrennen, was ich wie oben beschrieben gemacht habe:
FID = Left(.TextBox1.Value, 8)

GebDat = Right(.TextBox1.Value, 8)


Meine Frage:
kann ich mir einen String bauen, der Name, Vorname, Geburtsdatum enthält? Ich weiß nicht, wie ich mit den Tabulatoren verfahren soll :-/

Danke für Eure Hilfe.
Liebe Grüße von Ecki

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 09:56:25
Alwin Weisangler
Hallo Ecki,

das macht man mit der Funktion Split so:


Private Sub TextBox1_Change()
Dim tmp
tmp = Split(TextBox1, Chr(9))
End Sub

die Elemente einer Variable zuweisen schaffts du sicherlich selbst.

Gruß Uwe
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 10:20:03
Ecki
Lieber Ulf

Herzlichen Dank für die rasche Antwort. Ich habe jetzt mal alle Antworten angeschaut und eingearbeuitet - heraus kommen leider leere Variablen für Name und Vorname...

Dim FID_Name_Vorname_GebDat As String

Dim varStamm As Variant
Dim FID As String
Dim GebDat As String
Dim Name As String
Dim Vorname As String
Dim Name_Vorname_GebDat As String
FID_Name_Vorname_GebDat = FID & vbTab & Name & vbTab & Vorname & vbTab & GebDat
varStamm = Split(FID_Name_Vorname_GebDat, vbTab, , vbTextCompare)

Set frm = UserForm1
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
FID_Name_Vorname_GebDat = .TextBox1.Value
FID = Left(.TextBox1.Value, 8)
GebDat = Right(.TextBox1.Value, 10)
Name_Vorname_GebDat = Name & ", " & Vorname & ", " & GebDat


ActiveCell.Value = Name_Vorname_GebDat 'Name, Vorname, Geb.Dat


Ich möchte die ActiveCell mit Name, Vorname, GebDat befüllen.
Jetzt habe ich leider " , ,GebDat"

Was mache ich falsch?
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 10:26:28
Ecki
Lieber Uwe

Dankeschön, aber ich bekomme es tatsächlich nicht hin...
Muss wohl noch ein wenig tüfteln.
Ich möchte in der Aktiven Zelle Name, Vorname, Geburtsdatum stehen haben. Aber Name und Vorname bleiben leer...

Private Sub CommandButton1_Click()

Dim FID_Name_Vorname_GebDat As String

Dim varStamm As Variant
Dim FID As String
Dim GebDat As String
Dim Name As String
Dim Vorname As String
Dim Name_Vorname_GebDat As String
FID_Name_Vorname_GebDat = FID & vbTab & Name & vbTab & Vorname & vbTab & GebDat
varStamm = Split(FID_Name_Vorname_GebDat, vbTab, , vbTextCompare)

Set frm = UserForm1
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
FID_Name_Vorname_GebDat = .TextBox1.Value
FID = Left(.TextBox1.Value, 8)
GebDat = Right(.TextBox1.Value, 10)
Name_Vorname_GebDat = Name & ", " & Vorname & ", " & GebDat

ActiveCell.Value = Name_Vorname_GebDat 'Name, Vorname, Geb.Dat


Kannst Du mir noch einen Tipp geben?
LG von Ecki
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 10:32:06
RPP63
Moin!
Du füllst zwar VarStamm, verarbeitest es aber nicht!

Gruß Ralf
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 11:13:27
Ecki
Vielen Dank Uwe, Deine Anleitung hat mein Problem gelöst - perfekt.
Liebe Grüße von Ecki
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 09:59:39
Ulf
Hi,
~


Dim strGesamt As String
Dim varStamm As Variant
strGesamt = "12345678" & vbTab & "Max" & vbTab & "Mustermann" & vbTab & "01.01.1980"
varStamm = Split(strGesamt, vbTab, , vbTextCompare)
Debug.Print "PersNr: " & varStamm(0)
Debug.Print "Vorname: " & varStamm(1)
Debug.Print "Nachname: " & varStamm(2)
Debug.Print "GebDat: " & varStamm(3)

hth
Ulf
Anzeige
AW: Textbox mit darin enthaltenen Tabs auslesen
26.10.2024 10:11:16
schauan
Hallöchen,

Du könntest mal die split-Funktion ausprobieren mit vbtab als Trennzeichen.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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