ich habe eine Userform in einer xlsb eingerichtet. Die Übernahme in die Tabelle dauert aber ~6 Sekunden. Kann man das optimieren?
Vielen Dank
Sven A.
Private Sub cmdUebernahme_Click()
Dim lastrow As Long
lastrow = Worksheets("XX").Range("C500").End(xlUp).Row + 1
With Sheets("XX")
.Cells(lastrow, 2).Value = Me.txtAuftragsnummer
.Cells(lastrow, 3).Value = Me.cmbNC1Einsatz
.Cells(lastrow, 4).Value = Me.cmbNC1Weg
.Cells(lastrow, 5).Value = CLng(Me.txtMenge)
.Cells(lastrow, 6).Value = Me.ComboBox2
.Cells(lastrow 7).Value = Me.ComboBox1
.Cells(lastrow, 8).Value = Me.TextBox1 & " " & cmbUhrzeit
End With
Unload frm
End Sub