Hallo,
in eine Tabelle lasse ich die Werte von Combo, und Textbox übertragen
Lspalte = 61
Lzeile = 2
For Each obj In frm3.Controls
Select Case TypeName(obj)
Case "ComboBox"
Cells(1, Lspalte) = obj.Name 'nur zu Prüfzwecken
Cells(Lzeile , Lspalte) = obj.Text
Lspalte = Lspalte+ 1
End Select
Next obj
Lspalte = 65
For Each obj In frm3.Controls
Select Case TypeName(obj)
Case "TextBox"
Cells(1, Lel) = obj.Name
Cells(Lzeile , Lspalte) = obj.Text
Lspalte = Lspalte + 1
End Select
Next obj
Die ComboBox Namen cboA1, cboA2, cboA3, cboA4
Die Textboxen txtA1, - txtA12
Die Übertragung erfolgt cboA3,A1,A2,A4 , txt1-10, txt12, txt11
Wie kann ich festlegen das die Übertragung Aufsteigend verläuft.
Danke!
Gruß, Olga