Hilfe bei Code anpassen
16.01.2003 17:18:57
Jens
ich habe ein Problem mit einem Code, undzwar will ich per CommandButton die Werte aus den TextBoxen 13 bis 16 in die Listbox3 kopieren. Ich habe den Code schon in einer anderen UF eingesetzt aber dabei die Textboxen 1 bis 4 kopiert und es funktioniert auch. Wie muß ich den Code ändern um die Textboxen 13 bis 16 zu kopieren? Ich habe schon versucht die Zeile "For iCounter = 1 To 4" einfach durch "13 To 16" zu ersetzen aber da bekomme ich eine Fehlermeldung in der Zeile. Wer kann mir helfen?
Private Sub CommandButton8_Click()
With ListBox3
.ColumnWidths = "1cm;6cm;0,75cm"
.AddItem TextBox15.Value
.List(Zeilen, 1) = TextBox16.Value
.List(Zeilen, 2) = TextBox14.Value
.List(Zeilen, 3) = TextBox13.Value
Zeilen = Zeilen + 1
End With
For iCounter = 1 To 4
Controls("TextBox" & iCounter).Text = ""
Next iCounter
End Sub
Danke im voraus Jens