Optimierung Datenübergabe UF an Sheet
14.10.2015 16:29:54
PQuest:-)
ich habe ein Userform mit ca. 20 Controls. Davon sind 16 Textfelder, die mit Datumsangaben ausgefüllt werden. Der Anfang von meinem Code sieht so aus und klappt auch:
Private Sub cmdSave_Click()
Dim lngLastRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Termine")
lngLastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws
.Cells(lngLastRow + 1, 1) = cbID.Value
.Cells(lngLastRow + 1, 2) = txtName
.Cells(lngLastRow + 1, 3) = CDate(txtTV1.Value)
.Cells(lngLastRow + 1, 4) = CDate(txtSV.Value)
.Cells(lngLastRow + 1, 5) = CDate(txtIDV.Value)
End With
End Sub
Frage an die Optimierungsexperten:Kann ich, und wenn ja wie, den Datenübertrag in die Tabelle so optimieren, dass ich nicht stupide 16 Zeilen von fast identischem Inhalt runtertippen muss?
Evtl. kommen später noch mehr Felder hinzu und dann wird die Befehlsliste unerträglich lang.
Sollten noch Infos benötigt werden kann ich sie bei Nachfrage liefern.
Danke,
PQuest:-)