Textboxeinträge in Zellen verteilen
02.01.2004 22:40:55
Renato
Bevor ich noch alle Haare verliere, bitte ich euch um Hilfe.
In einer Userform habe ich insgesamt 10 Textboxen und eine Listbox untergebracht. Je nach ausgewähltem Land, sollen die Textboxeinträge in die zugehörigen Zellen der Excel-Tabelle eingetragen werden.
Der untenstehende Code funktioniert... Da ich jedoch 39 Listbox-Einträge habe, wird das ganze recht langatmig.
Wäre froh, wenn mir mal jemand mit einem "attraktiveren" auf die Sprünge helfen könnte. Im Hinterkopf habe ich Zählvariablen, mit denen ich das Zellenoffset und Spaltenoffset so ändern kann, dass die Einträge auch am richtigen Ort stehen.
intLand = lstDetails.ListIndex
Select Case intLand
Case 0
Cells(11, 2) = Cells(11, 2).Value + txtTagesfahrzeit.Value
Cells(11, 3) = Cells(11, 3).Value + txtTageMax.Value
Cells(11, 4) = Cells(11, 4).Value + txtWochMax.Value
Cells(11, 5) = Cells(11, 5).Value + txtOhnePause.Value
Cells(11, 6) = Cells(11, 6).Value + txtKurzePause.Value
Cells(11, 7) = Cells(11, 7).Value + txtTäglRuhez.Value
Case 1
Cells(12, 2) = Cells(12, 2).Value + txtTagesfahrzeit.Value
Cells(12, 3) = Cells(12, 3).Value + txtTageMax.Value
Cells(12, 4) = Cells(12, 4).Value + txtWochMax.Value
usw.usw.
Der Code zählt zwar schön... aber das war's dann auch schon :-(
Komme einfach nicht weiter... ev. ist ja auch der Ansatz falsch.
intReihenOffset = 11
intZeilenOffset = 2
For Each ctrlControl In frmDetails.Controls
If Left(TypeName(ctrlControl), 7) = "TextBox" Then
intTextboxcounter = intTextboxcounter + 1
intZeilenOffset = intTextboxcounter + 1
Cells(intReihenOffset, intZeilenOffset) = Cells(intReihenOffset, intZeilenOffset).Value + txtTagesfahrzeit.Value
End If
Next
Vielen Dank für eure Hilfe.
Renato