Code ändern
29.08.2004 20:01:05
Erich
habe noch ein kleines Problem mit nachfolgenden code
geschrieben von Beni (Nochmals danke)
Private Sub CommandButton1_Click()
Dim intIndex As Integer
With Sheets(1)
lz = .Cells(65536, 1).End(xlUp).Row + 1
For intIndex = 1 To 90
.Cells(lz, intIndex) = Controls("ComboBox" & CStr(intIndex)).Value
Next intIndex
End With
End Sub
Frage:
was muss ich an den code verändern, das ich vor den 90 Comboboxen noch die werte aus 4 Label in die Tabelle eintragen kann?
für eure Hilfe wäre ich euch sehr dankbar.
gruß
erich
Anzeige