Office: textbox splitten

hallo

hab da mal ne frage

ich hab in meiner userform zwei listbox einmal mit den monatszahlken und einmal mit den jahreszahlen z.b in der monats listbox(monat_garantie) werden die zahlen von 1-12 geladen und in der listbox(jahr_garantie) werden alle jahre 1990,1991-2020 geladen die kann man auswaählen und wenn man den button aktiviert dan setzt er den text von der listbox.text plus dem zeichen "/" und dem text von der anderen listbox in einem string namens setzergarantie und übergibt es einer textbox in dem excel sheet
problem: beim zurückladen kann man die zahlen nicht in den jeweiligen listboxen wieder zurückladen ???text irgendwie splitten??

bitte um hilfe

danke im vorraus

:)

 

Hallo t.,

wenn Du aus den Listboxinhalten "8" und "2008" z.B. den String "8/2008" erstellst, dann kannst Du diesen String mit Hilfe der SPLIT()-Funktion (ab Excel 2000) wieder trennen.
Hier ein Beispiel : Mit Commandbutton1 wird der ausgewählte Monat/Jahr als String in eine Textbox übertragen, mit Commandbutton2 wird der String aus der Textbox wieder in die beiden Listboxen übertragen :

VBA-Code:

Private Sub CommandButton1_Click()     Dim strText As String     'Hier wird der String zusammengesetzt :     strText = Listbox_Monat_Garantie.Text & "/" & ListBox_Jahr_Garantie     TextBox1 = strText End Sub Private Sub CommandButton2_Click()     Dim strText As String     strText = TextBox1     'Hier wird der String wieder in die Listboxen aufgeteilt :     Listbox_Monat_Garantie = Split(strText, "/")(0)     ListBox_Jahr_Garantie = Split(strText, "/")(1) End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Anstelle der Variablen strText kannst Du natürlich auch direkt auf die Textbox oder eine Zelle etc. zugreifen !

 

klaptt net der bringt mit ne fehlermeldung


Code:

index außerhalb des gültigen bereichs

 

Hallo t.,

den Textinhalt einer Textbox aus der Symbolleiste "Zeichnen" musst Du über ihren Textframe und deren Eigenschaft "Characters" ansprechen :

Listbox_Monat_Garantie.text = Split(Worksheets("Eingabe").Shapes("txt_Ablauf_Garantie").textframe.characters.text, "/")(0)

Die anderen Zuweisungen entsprechend !

 

also muss ich an dem code was verändern ??

 

Hallo t.,

ich finde es ganz schön unverschämt von Dir, zu erwarten, dass andere Dir alles aus der Nase ziehen !

Ich tippe mir hier Gehirnzellen und Finger wund, um ganz konkrete Codes für DICH zu posten und Du machst Dir weder die Mühe Deine Beiträge mit einer freundlichen Begrüßung einzuleiten noch konkret zu beschreiben, WAS Du gemacht hast, WAS nicht funktioniert, oder an welcher Stelle Dein Code hängt etc. *mad.gif*
Gib Dir mal einen Ruck und überlege, wer hier etwas von wem möchte !!
Sorry für meinen Ärger, aber solch ein unkonstruktives Verhalten wie von Dir gezeigt, hält tendentiell hilfsbereite Forumsbesucher wie mich davon ab, Dir weiterhin zu helfen !