Zellinhalt in zwei Texboxen aufteilen
16.02.2004 19:17:05
Dirk
ich habe unter "UserForm_Initialize()" folgende Programmzeilen stehen
Private Sub UserForm_Initialize()
txbVorN = Left(Cells(1, 1), InStr(1, Cells(1, 1), ",") - 1)
txbNachN = Right(Cells(1, 1), InStr(1, Cells(1, 1), ",") - 1)
End Sub
Diese Programmanweisung soll bewirken, dass ich Namen (Nach- und Vorname / z.B. Mustermann, Peter) auf zwei TextBoxen in einer UserForm aufteilen kann, uzw. in TextBox "txbVorN" und "txbNachN". Die Auswahl des Namen erfolgt über eine ComboBox (cboNamen).
Schreibe ich die beiden Anweisungen (txbVorN .../txbNachN ...), wie oben geschrieben, dann erhalte ich den Prozedurfehler Nr 5 (Warum?). Schreibe ich die Anweisung unter z.B. "Private_Sub_cboNamen...", dann läßt sich die Prozedur zwar ausführen, jedoch werden die Namen nicht sauber getrennt.Entweder erscheint das Komma in den TextBoxen oder Teile des Vor- bzw. Nachnamen werden in die jeweils andere TextBox mit hinein geschrieben.
??????
Ich hoffe das es das letzte mal ist, dass ich mit diesem Problem nerven muß. Leider kann ich aufgrund der aufwendigen Dateistruktur nicht anders verfahren.
Für die Hilfe schon einmal Danke im vorraus.
Gruß Dirk
Anzeige